| 查看: 2697 | 回复: 17 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[求助]
编一个fortran程序
|
|||
|
需要一个fortran程序，比较简单的那种，例如f=((5x+6z)*e^(2i) )/(2x-z),其中z=(3y-1)*(x+2) 要求输出的结果是三列数据，分别对应x,y,f .并且每列有20个数。 这三组数据是要导入orgin中进行图像模拟的。 初学fortran，很多东西还不连贯。 请大师们对上面给的式子编个程序示范一下。 |
回复此楼» 猜你喜欢
招博士
已经有4人回复
-
救命帖
已经有7人回复
-
限项规定
已经有6人回复
-
西南交通大学国家级人才团队2026年博士研究生招生（考核制）—机械、材料、力学方向
已经有3人回复
-
英文综述是否需要润色及查重
已经有5人回复
-
为什么nbs上溴 没有产物点出现呢
已经有9人回复
-
最失望的一年
已经有18人回复
|
我把x,y的虚数形式换了，改了点东西，运行时没显示错误，可是运行结果没有，弹出来的就只有黑框，不知道怎么回事，代码如下： program xcx real*8 x(5),y(5) integer k，n complex*16 i,f open(10,file='xcx.dat',status='unknown') i=(0,1) x(1)=0 y(2)=0 do 3 n=1,4 !/数组变量必须是整数才行 你可以想一下为什么这里是4/ x(n+1)=x(n)+0.1 y(n+1)=y(n)+0.1 3 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(10,*)x(k),y(k),f !/这样数据才会写入xcx.dat/ 2 continue pause end |
13楼2013-08-25 19:46:30
2楼2013-08-24 20:27:45
3楼2013-08-24 22:35:22
4楼2013-08-24 23:14:52