der.for

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

	SUBROUTINE DER(X,GX)
	DIMENSION X(2),GX(2)
	GX(1)=-400*X(1)*(X(2)-X(1)*X(1))-2*(1-X(1))
	GX(2)=200*(X(2)-X(1)*X(1))
	RETURN
	END