喵宅苑 MewoGarden × 技术宅社区II | Z站 Z Station 棒棒哒纯文字二次元技术社区

正文

作者:jinbeihuang

看了下，都没有关于Fortran的，本人现在正在学习计算物理，用Fortran编写程序求方程根，解线性方程组，求矩阵本征值等，有兴趣或有需要的可以讨论下，Fortran很容易上手，学过C的不用花多少力气就能掌握，Fortran在科学计算里应用很广，可移植性高，不过用来科学计算的多，所以没有其他语言那么普及，有兴趣的可以看看彭国伦编著的Fortran95程序设计。#9x

物理专业

作者:小新爱

物理专业+1

查看回复

来讨论下高斯消元法和牛顿迭代法

作者:柒指

@@18!!来讨论下高斯消元法和牛顿迭代法下面这个是用牛顿迭代法计算三元一次方程 a,b,c,d都是自己输入 PROGRAM MAIN_ROOT IMPLICIT NONE REAL::ROOT,A,B,C,D,X0,X write( *,* ) "PLEASE INPUT A,B,C,D,X0" READ (*,*) A,B,C,D,X0 X=ROOT(A,B,C,D,X0) write(*,*) X END PROGRAM MAIN_ROOT FUNCTION ROOT(A,B,C,D,X0) RESULT(ROOT_RESULT) IMPLICIT NONE REAL,INTENT(IN)::A,B,C,D,X0 REAL::ROOT_RESULT reAL::X1,F,F1 X1 = X0 F=A*X1**3+B*X1**2+C*X1+D write(*,*) F DO WHILE(ABS(F).GT.1E-6) F=A*X1**3+B*X1**2+C*X1+D F1=3*A*X1*X1+2*B*X1+C X1 = X1-F/F1 write(*,*) X1 ROOT_RESULT = X1 END DO END FUNCTION ROOT DO WHILE(ABS(F).GT.1E-6)想问下LZ这里的括号内的代码怎么理解

查看回复

居然搜到了

作者:manmiray

居然搜到了fortran，谢谢楼主提供学习信息

查看回复

技术区真的挺冷清的

作者:jinbeihuang