用fortran语言写出“混沌问题的模拟,考察非线性迭代方程Xn+1=λXn(1-Xn),当0<λ<=4时,画出λ-X的图像

2024-11-24 00:23:42
推荐回答(1个)
回答1:

IMPLICIT NONE
REAL(8)::X(10000),LM
INTEGER::N
WRITE(*,*) '请输入 x 的初值和迭代系数 λ 的值:'
READ(*,*) X(1),LM
OPEN(12,FILE='ABC.TXT')
DO N=1,10000-1
X(N+1)=LM*X(N)*(1.0-X(N))
WRITE(12,*) X(N+1)
ENDDO
CLOSE(12)
END
! 程序已经过调试,放心使用。