| 查看: 3143 | 回复: 17 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[求助]
编一个fortran程序
|
|||
|
需要一个fortran程序，比较简单的那种，例如f=((5x+6z)*e^(2i) )/(2x-z),其中z=(3y-1)*(x+2) 要求输出的结果是三列数据，分别对应x,y,f .并且每列有20个数。 这三组数据是要导入orgin中进行图像模拟的。 初学fortran，很多东西还不连贯。 请大师们对上面给的式子编个程序示范一下。 |
回复此楼» 猜你喜欢
各位大神，目前国内有哪些比较好用的逆合成软件？
已经有14人回复
-
国社科系统bug了，是不是要放榜了？
已经有10人回复
-
现代”学阀”该如何界定
已经有9人回复
-
课题组招2027级博士 上海工程技术大学 激光智能制造方向
已经有4人回复
-
上海工程技术大学 激光智能制造课题组 2027级博士研究生招生
已经有3人回复
-
上海工程技术大学激光智能制造课题组｜2027级博士研究生招生公告
已经有11人回复
-
申博发邮件
已经有11人回复
-
我的奶奶
已经有3人回复
|
我把x,y的虚数形式换了，改了点东西，运行时没显示错误，可是运行结果没有，弹出来的就只有黑框，不知道怎么回事，代码如下： program xcx real*8 x(5),y(5),n integer k complex*16 i,f open(10,file='xcx.dat',status='unknown') i=(0,1) do 1 k=1,5 do 3 n=0.1,0.5 x(k+1)=x(k)+0.1 y(k+1)=y(k)+0.1 3 continue read*,x,y 1 continue do 2 k=1,5 z=(3*y(k)-1)*(x(k)+2) f=((5*x(k)+6*z)*zexp(2*i))/(2*x(k)-z) write(*,*)x(k),y(k),f write(*,*)x(k),y(k),f 2 continue stop end |
12楼2013-08-25 19:16:10
2楼2013-08-24 20:27:45
3楼2013-08-24 22:35:22
4楼2013-08-24 23:14:52