高分求助！FORTRAN编程
发布网友
发布时间：2022-04-21 20:56
共3个回答
热心网友
时间：2023-09-20 07:52
open(77,file='dat.txt',status='unknown')
do 10 i=1,n
t=(i-1)*h
write (*,50) t
write(*,100)(z(j,i),j=1,m)
write(77,*)t,z(1,i),z(2,i)
10 continue
close(77)
然后再用excel打开上面的数据文件画图即可~~
热心网友
时间：2023-09-20 07:53
我的一个编程很厉害的师兄给的建议是：FORTAN语言擅长的主要是科学计算，而对于用FORTAN来画图，太为难它了，但是我们可以通过fortran计算得出一堆数据，再采用origin，mathmatica,MATLAB或者等软件处理这些数据作图！
修改后的部分：（在主程序这一块）
t=0.0
y(1)=25.0
y(2)=2.0
h=1.0
m=2
n=21
call lgkt(t,y,m,h,n,z,f,d,b)
write(*,*)
do 10 i=1,n
t=(i-1)*h
!自己记着t是从0到20就行!
write(*,100)(z(j,i),j=1,m)
10 continue
50 format(1x,'t=',f7.3)
100 format(1x,d13.6,3x,d13.6)
end
解释如此做的原因：
（1）自己记着t是从0到20，不在输出界面上再表示了，把输出y(1)和y(2)的输出语句这样修改，如此在输出界面就只有我们要的数据了；
（2）接下来把得到的数据保存（可以在DOS界面全选再复制，或者用OPEN语句把数据保存在文本里）；
（3）接着把数据输入到origin里面，t自己输入（比方说x一栏0-20），y(1)或者y(2)对应y一栏。如此做出来的应该是两条曲线（origin可以实现两图一起表示出来）。
祝你能够得到你想要的结果，如有不懂可以再联系！
参考资料：FORTRAN 77(谭浩强、田淑清、清华大学出版社)
热心网友
时间：2023-09-20 07:53
