tonpow.for

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

	PROGRAM TONPOW
	DIMENSION X(2),Y(2)
	X(1)=-1.2
	X(2)=1.5
	CALL POWELL(X,Y,FY,2,5000,ICOVG,0.0001,0.0001,1)
	WRITE(6,1)Y,FY,ICOVG
1	FORMAT(5X,3E21.10,2X,I5//)
	STOP
	END