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 + -
显示快捷键?