tons.for

来自「优化算法,是FORTRUN语言写。都经过了运行。」· FOR 代码 · 共 16 行

	PROGRAM TONS
	DIMENSION X(4)
	FT=0.0001
	X(1)=3
	X(2)=-1
	X(3)=0.
	X(4)=1.
	CALL FLESIM(X,FX,4,FT,4.,1,4000,ICOVG)
	WRITE(6,1)
1	FORMAT(5X,17HFINAL RESULTS ARE//)
	WRITE(6,2)ICOVG
2	FORMAT(5X,I5//)
	WRITE(6,3)X,FX
3	FORMAT(5X,5E21.10,//)
	STOP
	END