Utilice lenguaje fortran para escribir "Simulación del problema del caos, examine la ecuación iterativa no lineal Xn 1=λXn (1-Xn), cuando 0lt; λlt; = 4, dibuje la imagen de λ-X

NINGUNO IMPLÍCITO

REAL(8)：：X(10000),LM

INTEGER：：N

ESCRIBIR(*, *) 'Ingrese el valor inicial de x y el valor del coeficiente de iteración λ:'

READ(*, *) X(1), LM

OPEN(12, ARCHIVO=' ABC.TXT')

DO N=1,10000-1

X(N 1)=LM*X(N)*(1.0-X(N) )

ESCRIBIR(12,*) X(N 1)

ENDDO

CLOSE(12)

END

! El programa ha sido depurado, no dudes en utilizarlo.