24小时热门版块排行榜

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

宇天旅梦

铜虫 (小有名气)

应助: 0 (幼儿园)
金币: 356.2
红花: 1
帖子: 138
在线: 57.8小时
虫号: 2178982
注册: 2012-12-10
性别: MM
专业: 半导体光电子器件

[求助] 编一个fortran程序

需要一个fortran程序，比较简单的那种，例如f=((5x+6z)*e^(2i) )/(2x-z),其中z=(3y-1)*(x+2)

要求输出的结果是三列数据，分别对应x,y,f .并且每列有20个数。

这三组数据是要导入orgin中进行图像模拟的。
初学fortran，很多东西还不连贯。
请大师们对上面给的式子编个程序示范一下。

回复此楼

» 猜你喜欢

售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急已经有3人回复
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急已经有3人回复
售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急已经有3人回复
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急已经有3人回复
售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急已经有5人回复
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急已经有7人回复
上海工程技术大学激光智能制造课题组 2027级博士研究生招生已经有6人回复
课题组招2027级博士上海工程技术大学激光智能制造方向已经有6人回复
现代”学阀”该如何界定已经有14人回复
师弟论文见刊大半年才想起来申请专利，还能抢救一下吗？已经有4人回复

» 本主题相关价值贴推荐，对您同样有帮助:

fortran里一个子程序不运行是怎么回事已经有13人回复
fortran读写问题已经有6人回复
一百个FORTRAN任务怎么能一次提交SSH计算已经有3人回复
急求fortran运行错误原因，在线等已经有7人回复
请教 fortran 运行错误的原因已经有13人回复
FORTRAN新手求助主程序循环问题已经有10人回复
大家帮我看一个fortran的程序，我总是计算不出正确的结果已经有20人回复
请教一个fortran小程序编译出错的问题，谢谢已经有9人回复
如何用fortran编写高斯白噪声程序已经有6人回复
【求助】Fortran语言赋值问题？已经有3人回复
有关fortran的一次而问题，希望大家能帮帮忙，谢谢已经有4人回复
写了一个fortran90的小程序，编译通不过，请大侠帮忙已经有59人回复
【求助】如何写FORTRAN程序实现求平均最近邻距离已经有34人回复
【求助】FORTRAN写文件时每行开头都多了一个空格？已经有6人回复
【求助】用fortran怎么描述下面这样的情况，我是新手，请大家帮忙已经有8人回复
【转帖】intel Fortran编译器的一个“危险”优化已经有9人回复
【求助】请问一下fortran的可视化编程已经有7人回复
【交流】Fortran语言答疑专帖已经有157人回复

1楼 2013-08-24 18:46:41

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

宇天旅梦

铜虫 (小有名气)

应助: 0 (幼儿园)
金币: 356.2
红花: 1
帖子: 138
在线: 57.8小时
虫号: 2178982
注册: 2012-12-10
性别: MM
专业: 半导体光电子器件

引用回帖:

6楼: Originally posted by phy_yo at 2013-08-25 09:21:29
抱歉之前写得太着急了所以献丑啦哈哈
parameter(n=20)
integer k
real*8 x1,x2,y1,y2
complex*16 z,x(n),y(n),i,f
open(10,file='data.dat',status='unknown')
i=(0,1)
do 1 k=1,20
print*, &q ...

嗯，多谢啦。

程序运行时为什么要输入4个数，式子只要x,y啊，
print*, "insert xr,","xi,","yr,","yi"
      read*, x1,x2,y1,y2
      x(k)=cmplx(x1,x2)
      y(k)=cmplx(y1,y2)
这一段为何要这样？

如果x按照从0开始，每运行出一个结果后自动加0.1,
y从0开始，每次加0.01，这样自动输入数据，不用手动，这怎么弄啊。

赞一下

回复此楼

7楼2013-08-25 10:50:28

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

查看全部 18 个回答

phy_yo

铁虫 (小有名气)

应助: 3 (幼儿园)
金币: 452.3
散金: 1667
红花: 121
帖子: 255
在线: 60.8小时
虫号: 2414907
注册: 2013-04-12
性别: GG
专业: 凝聚态物性 II ：电子结构

【答案】应助回帖

感谢参与，应助指数 +1

open(10,file='data.dat',status='unknown')
real*8 x,y,z,x(20),y(20)
do 1 i=1,20
input (*,*) x,y
x(i)=x
y(i)=y
1 continue
do 2 1,20
z=(3y(i)-1)*(x(i)+2)
f=((5x+6z)*e^(2i) )/(2x-z)
write(*,*) x(i),y(i),f
write(10,*) x(i),y(i),f
2 continue
pause
end

赞一下

回复此楼

网络错误无法获取数据

2楼2013-08-24 20:27:45

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

宇天旅梦

铜虫 (小有名气)

应助: 0 (幼儿园)
金币: 356.2
红花: 1
帖子: 138
在线: 57.8小时
虫号: 2178982
注册: 2012-12-10
性别: MM
专业: 半导体光电子器件

引用回帖:

2楼: Originally posted by phy_yo at 2013-08-24 20:27:45
open(10,file='data.dat',status='unknown')
real*8 x,y,z,x(20),y(20)
do 1 i=1,20
input (*,*) x,y
x(i)=x
y(i)=y
1 continue
do 2 1,20
z=(3y(i)-1)*(x(i)+2)
f=((5x+6z)*e^(2i) )/(2x-z)
write(*,* ...

式子中的 i 是虚数