|
本人借鉴徐士良的Fortran常用算法程序集的拟牛顿法求解非线性方程组,方程总共3个方程3个未知量,求解发现计算老是出现error,或者fail求解失败。初值与计算步长也不知道如何选取,附件中是我编写的程序,求大神支招。
GAUSS.F90与NTN.F90是借鉴的徐士良的程序(电子版可在百度上随意搜到---[size=14.3999996185303px]Fortran常用算法程序集)。FS为我的方程,NTN0是主函数。FS中的Fa,Fr,M分别为轴向力,径向力与力矩,数值可变化,一般更改Fa为0-40000,Fr=0,M=0。 X为未知量,y为方程组。
如果大神有高招,如果方便的话,希望不吝赐教。多谢。
|
|