sub gval.for

来自「非线性回归问题SQP解法」· FOR 代码 · 共 10 行

FOR
10
字号
	SUBROUTINE GVAL(N,ME,MI,M,NAMAX,X,OGRA,CGRA)
	DOUBLE PRECISION X(N),OGRA(N),CGRA(NAMAX,M)
	OGRA(1)=-1.0D0
	OGRA(2)=-1.0D0	CGRA(1,1)=-2.0D0*X(1)
	CGRA(2,1)=-2.0D0*X(2)
	CGRA(1,2)=-2.0D0*X(1)
	CGRA(2,2)=1.0D0
	RETURN
	END

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?