master.for

优化算法,是FORTRUN语言写。都经过了运行。

      PROGRAM TONDSC
	DIMENSION X(2),Y(2),S(2)

	X(1)=-1.2
	X(2)=1.5
	S(1)=24.4
	S(2)=12.
	FX=5.2
	IOBF=0
	ITER=0
	CALL DSCPOW(X,FX,Y,FY,S,S,2,2,0.001,1,ITER,IEX)
	WRITE(6,1)Y,FY,IEX
1	FORMAT(5X,3E21.10,2X,I5//)
	STOP
	END