| 查看: 2805 | 回复: 17 | ||
[求助]
编一个fortran程序
|
|
需要一个fortran程序，比较简单的那种，例如f=((5x+6z)*e^(2i) )/(2x-z),其中z=(3y-1)*(x+2) 要求输出的结果是三列数据，分别对应x,y,f .并且每列有20个数。 这三组数据是要导入orgin中进行图像模拟的。 初学fortran，很多东西还不连贯。 请大师们对上面给的式子编个程序示范一下。 |
回复此楼» 猜你喜欢
求调剂
已经有3人回复
-
一志愿北京化工大学，初试成绩350求调剂
已经有14人回复
-
复试调剂
已经有4人回复
-
323分（计算机视觉和大模型项目）能直接上手
已经有3人回复
-
311分 22408 求调剂
已经有3人回复
-
320分人工智能调剂
已经有7人回复
-
一志愿郑大0705求调剂
已经有4人回复
-
0703化学
已经有10人回复
-
301求调剂
已经有10人回复
-
306分材料与化工求调剂
已经有6人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 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人回复
2楼2013-08-24 20:27:45
3楼2013-08-24 22:35:22
4楼2013-08-24 23:14:52
|
运行不了啊，提示有11个错。我用的是fortran90. 下面这些是显示的错误： --------------------Configuration: Textxcx - Win32 Debug-------------------- Compiling Fortran... C:\Users\Administrator\Desktop\Textxcx.for C:\Users\Administrator\Desktop\Textxcx.for(6) : Error: Syntax error, found IDENTIFIER 'X' when expecting one of: ( % . = => input (*,*) x,y -------------------^ C:\Users\Administrator\Desktop\Textxcx.for(10) : Error: Syntax error, found INTEGER_CONSTANT '20' when expecting one of: <END-OF-STATEMENT> ; <IDENTIFIER> do 2 1,20 -------------^ C:\Users\Administrator\Desktop\Textxcx.for(11) : Error: Syntax error, found IDENTIFIER 'Y' when expecting one of: * :: , <END-OF-STATEMENT> ; : ) (/ [ + - . ] /) ** / > // .LT. < ... z=(3y(i)-1)*(x(i)+2) ----------^ C:\Users\Administrator\Desktop\Textxcx.for(12) : Error: Unrecognized token '^' skipped f=((5x+6z)*e^(2i) )/(2x-z) ------------------^ C:\Users\Administrator\Desktop\Textxcx.for(12) : Error: Syntax error, found IDENTIFIER 'X' when expecting one of: * :: , <END-OF-STATEMENT> ; : ) (/ [ + - . ] /) ** / > // .LT. < ... f=((5x+6z)*e^(2i) )/(2x-z) -----------^ C:\Users\Administrator\Desktop\Textxcx.for(3) : Error: A specification statement cannot appear in the executable section. parameter(i=(0,1)) ------^ C:\Users\Administrator\Desktop\Textxcx.for(4) : Error: A specification statement cannot appear in the executable section. complex*16 x,y,z,x(20),y(20) --------^ C:\Users\Administrator\Desktop\Textxcx.for(7) : Error: This name has not been declared as an array. [X] x(i)=x ------^ C:\Users\Administrator\Desktop\Textxcx.for(8) : Error: This name has not been declared as an array. [Y] y(i)=y ------^ C:\Users\Administrator\Desktop\Textxcx.for(10) : Error: An unterminated block exists. do 2 1,20 ^ C:\Users\Administrator\Desktop\Textxcx.for(10) : Error: This label is undefined. [21] do 2 1,20 ---------^ Error executing df.exe. Textxcx.exe - 11 error(s), 0 warning(s) |
5楼2013-08-24 23:27:37
【答案】应助回帖
★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
宇天旅梦: 金币+15, ★★★★★最佳答案, 很帮助 2013-08-25 22:31:16
宇天旅梦: 金币+15, ★★★★★最佳答案, 很帮助 2013-08-25 22:31:16
|
抱歉 之前写得太着急了 所以献丑啦 哈哈 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*, "insert xr,","xi,","yr,","yi" read*, x1,x2,y1,y2 x(k)=cmplx(x1,x2) y(k)=cmplx(y1,y2) 1 continue do 2 k=1,20 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 2 continue pause end 以上 fortran77测试后可用 x，y的输入是键盘输入 |
6楼2013-08-25 09:21:29
7楼2013-08-25 10:50:28
8楼2013-08-25 14:29:45
9楼2013-08-25 17:02:44
10楼2013-08-25 19:05:52
10