ton.for

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

	PROGRAM TON
	DIMENSION X(2),Y(2),GX(2)
	IOBF=1
	IDER=1
	X(1)=-1.2
	X(2)=1.5
	CALL DFPBFS(X,Y,FY,GX,2,1000,ICOVG,0.000001,1)
	WRITE(6,1)Y,FY,ICOVG
1	FORMAT(5X,3E21.10,2X,I5//)
	STOP
	END