版塊導(dǎo)航: 正在加載中...

登錄注冊

應(yīng)《網(wǎng)絡(luò)安全法》要求，自2017年10月1日起，未進行實名認證將不得使用互聯(lián)網(wǎng)跟帖服務(wù)。為保障您的帳號能夠正常使用，請盡快對帳號進行手機號驗證，感謝您的理解與支持！

24小時熱門版塊排行榜

返回列表

宇天旅夢

銅蟲 (小有名氣)

應(yīng)助: 0 (幼兒園)
金幣: 338.6
紅花: 1
帖子: 134
在線: 57小時
蟲號: 2178982
注冊: 2012-12-10
性別: MM
專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)

[求助] 編一個fortran程序

需要一個fortran程序，比較簡單的那種，例如f=((5x+6z)*e^(2i) )/(2x-z),其中z=(3y-1)*(x+2)

要求輸出的結(jié)果是三列數(shù)據(jù)，分別對應(yīng)x,y,f .并且每列有20個數(shù)。

這三組數(shù)據(jù)是要導(dǎo)入orgin中進行圖像模擬的。
初學(xué)fortran，很多東西還不連貫。
請大師們對上面給的式子編個程序示范一下。

回復(fù)此樓

» 猜你喜歡

0854 考研調(diào)劑招生了！AI 方向已經(jīng)有14人回復(fù)
328求調(diào)劑已經(jīng)有3人回復(fù)
一志愿重慶大學(xué)085700資源與環(huán)境，總分308求調(diào)劑已經(jīng)有5人回復(fù)
招08考數(shù)學(xué) 已經(jīng)有14人回復(fù)
一志愿上海交大生物與醫(yī)藥專碩324分，求調(diào)劑已經(jīng)有4人回復(fù)
0854電子信息求調(diào)劑 324 已經(jīng)有3人回復(fù)
303求調(diào)劑已經(jīng)有3人回復(fù)
336求調(diào)劑已經(jīng)有3人回復(fù)
306求調(diào)劑已經(jīng)有9人回復(fù)
工科0856求調(diào)劑已經(jīng)有4人回復(fù)

» 本主題相關(guān)價值貼推薦，對您同樣有幫助:

fortran里一個子程序不運行是怎么回事已經(jīng)有13人回復(fù)
fortran讀寫問題已經(jīng)有6人回復(fù)
一百個FORTRAN任務(wù)怎么能一次提交SSH計算已經(jīng)有3人回復(fù)
急求fortran運行錯誤原因，在線等已經(jīng)有7人回復(fù)
請教 fortran 運行錯誤的原因已經(jīng)有13人回復(fù)
FORTRAN新手求助主程序循環(huán)問題已經(jīng)有10人回復(fù)
大家?guī)臀铱匆粋€fortran的程序，我總是計算不出正確的結(jié)果已經(jīng)有20人回復(fù)
請教一個fortran小程序編譯出錯的問題，謝謝已經(jīng)有9人回復(fù)
如何用fortran編寫高斯白噪聲程序已經(jīng)有6人回復(fù)
【求助】Fortran語言賦值問題？已經(jīng)有3人回復(fù)
有關(guān)fortran的一次而問題，希望大家能幫幫忙，謝謝已經(jīng)有4人回復(fù)
寫了一個fortran90的小程序，編譯通不過，請大俠幫忙已經(jīng)有59人回復(fù)
【求助】如何寫FORTRAN程序?qū)崿F(xiàn)求平均最近鄰距離已經(jīng)有34人回復(fù)
【求助】FORTRAN寫文件時每行開頭都多了一個空格？已經(jīng)有6人回復(fù)
【求助】用fortran怎么描述下面這樣的情況，我是新手，請大家?guī)兔?/a> 已經(jīng)有8人回復(fù)

【轉(zhuǎn)帖】intel Fortran編譯器的一個“危險”優(yōu)化已經(jīng)有9人回復(fù)
【求助】請問一下fortran的可視化編程已經(jīng)有7人回復(fù)
【交流】Fortran語言答疑專帖已經(jīng)有157人回復(fù)

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

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

phy_yo

鐵蟲 (小有名氣)

應(yīng)助: 3 (幼兒園)
金幣: 452.3
散金: 1667
紅花: 121
帖子: 255
在線: 60.8小時
蟲號: 2414907
注冊: 2013-04-12
性別: GG
專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)

【答案】應(yīng)助回帖

感謝參與，應(yīng)助指數(shù) +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

贊一下

回復(fù)此樓

網(wǎng)絡(luò)錯誤無法獲取數(shù)據(jù)

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

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

宇天旅夢

銅蟲 (小有名氣)

應(yīng)助: 0 (幼兒園)
金幣: 338.6
紅花: 1
帖子: 134
在線: 57小時
蟲號: 2178982
注冊: 2012-12-10
性別: MM
專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)

引用回帖:

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 是虛數(shù)

贊一下

回復(fù)此樓

3樓2013-08-24 22:35:22

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

phy_yo

鐵蟲 (小有名氣)

應(yīng)助: 3 (幼兒園)
金幣: 452.3
散金: 1667
紅花: 121
帖子: 255
在線: 60.8小時
蟲號: 2414907
注冊: 2013-04-12
性別: GG
專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)

【答案】應(yīng)助回帖

引用回帖:

3樓: Originally posted by 宇天旅夢 at 2013-08-24 22:35:22
式子中的 i 是虛數(shù)

...

哦那就把real*8改成complex*16
然后再在前面加一行parameter(i=(0,1))

[ 發(fā)自手機版 http://www.gaoyang168.com/3g ]

贊一下

回復(fù)此樓

網(wǎng)絡(luò)錯誤無法獲取數(shù)據(jù)

4樓2013-08-24 23:14:52

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

宇天旅夢

銅蟲 (小有名氣)

應(yīng)助: 0 (幼兒園)
金幣: 338.6
紅花: 1
帖子: 134
在線: 57小時
蟲號: 2178982
注冊: 2012-12-10
性別: MM
專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)

引用回帖:

4樓: Originally posted by phy_yo at 2013-08-24 23:14:52
哦那就把real*8改成complex*16
然后再在前面加一行parameter(i=(0,1))
...

運行不了啊，提示有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)

贊一下

回復(fù)此樓

5樓2013-08-24 23:27:37

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

phy_yo

鐵蟲 (小有名氣)

應(yīng)助: 3 (幼兒園)
金幣: 452.3
散金: 1667
紅花: 121
帖子: 255
在線: 60.8小時
蟲號: 2414907
注冊: 2013-04-12
性別: GG
專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)

【答案】應(yīng)助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
宇天旅夢: 金幣+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的輸入是鍵盤輸入

贊一下

回復(fù)此樓

網(wǎng)絡(luò)錯誤無法獲取數(shù)據(jù)

6樓2013-08-25 09:21:29

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

宇天旅夢

銅蟲 (小有名氣)

應(yīng)助: 0 (幼兒園)
金幣: 338.6
紅花: 1
帖子: 134
在線: 57小時
蟲號: 2178982
注冊: 2012-12-10
性別: MM
專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)

引用回帖:

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個數(shù)，式子只要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開始，每運行出一個結(jié)果后自動加0.1,
y從0開始，每次加0.01，這樣自動輸入數(shù)據(jù)，不用手動，這怎么弄啊。

贊一下

回復(fù)此樓

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

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

phy_yo

鐵蟲 (小有名氣)

應(yīng)助: 3 (幼兒園)
金幣: 452.3
散金: 1667
紅花: 121
帖子: 255
在線: 60.8小時
蟲號: 2414907
注冊: 2013-04-12
性別: GG
專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)

引用回帖:

7樓: Originally posted by 宇天旅夢 at 2013-08-25 10:50:28
嗯，多謝啦。

程序運行時為什么要輸入4個數(shù)，式子只要x,y啊，
print*, "insert xr,","xi,","yr,","yi"
read*, x1,x2,y1,y2
x(k)=cmplx(x1,x2)
...

既然運算式里有虛數(shù)符號  x和y也就用虛數(shù)形式表示了  當然  如果他是實數(shù)  虛部為零就可以了
至于設(shè)定均勻步長的自變量  你仔細看看fortran的循環(huán)體格式  自己就能寫出來
如要x從0到1.9，步長為0.1  則：
x(1)=0
do 10 i=1,19
x(i+1)=x(i)+0.1
10 continue

贊一下

回復(fù)此樓

網(wǎng)絡(luò)錯誤無法獲取數(shù)據(jù)

8樓2013-08-25 14:29:45

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

宇天旅夢

銅蟲 (小有名氣)

應(yīng)助: 0 (幼兒園)
金幣: 338.6
紅花: 1
帖子: 134
在線: 57小時
蟲號: 2178982
注冊: 2012-12-10
性別: MM
專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)

引用回帖:

8樓: Originally posted by phy_yo at 2013-08-25 14:29:45
既然運算式里有虛數(shù)符號  x和y也就用虛數(shù)形式表示了  當然  如果他是實數(shù)  虛部為零就可以了
至于設(shè)定均勻步長的自變量  你仔細看看fortran的循環(huán)體格式  自己就能寫出來
如要x從0到1.9，步長為0.1  則：
x(1) ...

這個循環(huán)現(xiàn)在差不多了。
還有幾個小問題：
1、還是不明白為什么要輸入4個數(shù)呢？
2、real*8 x1,x2,y1,y2
complex*16 z,x(n),y(n),i,f 中，這里的8和16是什么意思？規(guī)定這樣嗎？
3、open語句中為何要有status='unknown'，這又表示什么？

再次感謝你的回答

贊一下

回復(fù)此樓

9樓2013-08-25 17:02:44

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

phy_yo

鐵蟲 (小有名氣)

應(yīng)助: 3 (幼兒園)
金幣: 452.3
散金: 1667
紅花: 121
帖子: 255
在線: 60.8小時
蟲號: 2414907
注冊: 2013-04-12
性別: GG
專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)

引用回帖:

9樓: Originally posted by 宇天旅夢 at 2013-08-25 17:02:44
這個循環(huán)現(xiàn)在差不多了。
還有幾個小問題：
1、還是不明白為什么要輸入4個數(shù)呢？
2、real*8 x1,x2,y1,y2
complex*16 z,x(n),y(n),i,f 中，這里的8和16是什么意思？規(guī)定這樣嗎？
3、open語句中為何要有 ...

虛數(shù)可以看成兩個實數(shù)組成實部一個虛部一個
real*8 x1,x2,y1,y2 就是定義四個精度為8位的實數(shù) 這樣就可以組成兩個虛數(shù)
complex*16 z,x(n),y(n),i,f 就好理解了就是定義精度為8位的虛數(shù)（實質(zhì)是兩個精度為8的實數(shù)）
status='unknown' 是規(guī)定新建的文本沒有特別要求就以這個做聲明

贊一下

回復(fù)此樓

網(wǎng)絡(luò)錯誤無法獲取數(shù)據(jù)

10樓2013-08-25 19:05:52

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

相關(guān)版塊跳轉(zhuǎn) 我要訂閱樓主宇天旅夢的主題更新

返回列表

最具人氣熱帖推薦 [查看全部]		作者	回/看	最后發(fā)表

[考研] 0854 考研調(diào)劑招生了！AI 方向 +3	pk3725069 2026-03-19	14/700	2026-03-23 14:44 by Jack_333
[考研] 276求調(diào)劑。有半年電池和半年高分子實習(xí)經(jīng)歷 +8	材料學(xué)257求調(diào)劑 2026-03-23	9/450	2026-03-23 13:01 by ztnimte
[考研] 307求調(diào)劑 +3	余意卿 2026-03-21	3/150	2026-03-23 10:32 by Iveryant
[考研] 085600材料與化工 +10	安全上岸！ 2026-03-16	10/500	2026-03-23 09:31 by Jy?
[考研] 070300，一志愿北航320求調(diào)劑 +3	Jerry0216 2026-03-22	5/250	2026-03-23 09:16 by 。。堂堂
[考研] 環(huán)境學(xué)碩288求調(diào)劑 +6	皮皮皮123456 2026-03-22	6/300	2026-03-22 16:52 by i_cooler
[考研] 尋找調(diào)劑 +4	倔強芒? 2026-03-21	4/200	2026-03-22 16:14 by 木托莫露露
[考研] 298求調(diào)劑一志愿211 +3	上岸6666@ 2026-03-20	3/150	2026-03-22 15:50 by ColorlessPI
[考研] 生物學(xué)調(diào)劑 +5	Surekei 2026-03-21	5/250	2026-03-22 14:39 by tcx007
[考研] 303求調(diào)劑 +5	安憶靈 2026-03-22	6/300	2026-03-22 12:46 by 素顏傾城1988
[考研] 求調(diào)劑 +7	Auroracx 2026-03-22	7/350	2026-03-22 12:38 by 素顏傾城1988
[考研] 330求調(diào)劑0854 +3	assdll 2026-03-21	3/150	2026-03-21 13:01 by 搏擊518
[考研] 一志愿天津大學(xué)化學(xué)工藝專業(yè)（081702）315分求調(diào)劑 +12	yangfz 2026-03-17	12/600	2026-03-21 03:30 by JourneyLucky
[考研] 化學(xué)求調(diào)劑 +4	臨澤境llllll 2026-03-17	5/250	2026-03-21 02:23 by JourneyLucky
[考研] 材料專業(yè)求調(diào)劑 +6	hanamiko 2026-03-18	6/300	2026-03-21 00:24 by JourneyLucky
[考研] 308求調(diào)劑 +3	阿姐阿姐家啊 2026-03-18	3/150	2026-03-20 23:24 by JourneyLucky
[考研] 321求調(diào)劑 +9	何潤采123 2026-03-18	11/550	2026-03-20 23:19 by JourneyLucky
[考研] 一志愿南理工085701環(huán)境302求調(diào)劑院校 +3	葵梓衛(wèi)隊 2026-03-20	3/150	2026-03-20 19:28 by zhukairuo
[考研] 320求調(diào)劑0856 +3	不想起名字112 2026-03-19	3/150	2026-03-19 22:53 by 學(xué)員8dgXkO
[考研] 085600材料與化工求調(diào)劑 +6	緒幸與子 2026-03-17	6/300	2026-03-19 13:27 by houyaoxu

24小時熱門版塊排行榜

[求助] 編一個fortran程序

» 猜你喜歡

» 本主題相關(guān)價值貼推薦，對您同樣有幫助:

【答案】應(yīng)助回帖

【答案】應(yīng)助回帖

【答案】應(yīng)助回帖

» 本主題相關(guān)價值貼推薦，對您同樣有幫助: