| 查看: 2701 | 回复: 17 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[求助]
编一个fortran程序
|
|||
|
需要一个fortran程序，比较简单的那种，例如f=((5x+6z)*e^(2i) )/(2x-z),其中z=(3y-1)*(x+2) 要求输出的结果是三列数据，分别对应x,y,f .并且每列有20个数。 这三组数据是要导入orgin中进行图像模拟的。 初学fortran，很多东西还不连贯。 请大师们对上面给的式子编个程序示范一下。 |
回复此楼» 猜你喜欢
退学或坚持读
已经有7人回复
-
多组分精馏求助
已经有6人回复
-
免疫学博士有名额，速联系
已经有8人回复
-
26申博求博导推荐-遥感图像处理方向
已经有5人回复
-
国家级人才课题组招收2026年入学博士
已经有6人回复
-
交叉科学部支持青年基金，对三无青椒是个机会吗？
已经有7人回复
-
青椒八年已不青，大家都被折磨成啥样了？
已经有15人回复
-
国家基金申请书模板内插入图片不可调整大小?
已经有6人回复
|
我把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