der.for

共轭梯度法源代码

	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