| 查看: 2747 | 回复: 17 | ||
[求助]
编一个fortran程序
|
|
需要一个fortran程序，比较简单的那种，例如f=((5x+6z)*e^(2i) )/(2x-z),其中z=(3y-1)*(x+2) 要求输出的结果是三列数据，分别对应x,y,f .并且每列有20个数。 这三组数据是要导入orgin中进行图像模拟的。 初学fortran，很多东西还不连贯。 请大师们对上面给的式子编个程序示范一下。 |
回复此楼» 猜你喜欢
一志愿985，本科211，0817化学工程与技术319求调剂
已经有4人回复
-
311求调剂
已经有6人回复
-
0703化学调剂 290分有科研经历，论文在投
已经有4人回复
-
化学工程321分求调剂
已经有6人回复
-
本人考085602 化学工程 专硕
已经有9人回复
-
材料与化工一志愿南昌大学327求调剂推荐
已经有7人回复
-
326求调剂
已经有3人回复
-
焦虑
已经有8人回复
-
308求调剂
已经有4人回复
-
NSFC申报书里申请人简历中代表性论著还需要在申报书最后的附件里面再上传一遍吗
已经有14人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 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
20