主程序:Newton迭代法計(jì)算方程的根 use NEWTON OPEN(UNIT=11,FILE='FOUT1510.TXT') OPEN(UNIT=12,FILE='IM_RESULT1510.TXT') CALL SOLVE(X,ITER) WRITE(11,46)X,ITER46 FORMAT(T5,'Newton迭代法計(jì)算方程的根',//,&
Solve for Smises and deqpl using Newton's method deqpl=0.d0 Et=E*xn*(1.d0+E*eqplas/Sy)**(xn-1) do kewton=1,newton rhs=Smises-(3.d0*eg)*deqpl-Sf deqpl=deqpl+rhs/((3.d0*eg)+