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

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

24小時(shí)熱門(mén)版塊排行榜

返回列表

【有獎(jiǎng)交流】積極回復(fù)本帖子，參與交流，就有機(jī)會(huì)分得作者夕陽(yáng)西下的 4 個(gè)金幣，回帖就立即獲得 1 個(gè)金幣，每人有 1 次機(jī)會(huì)

當(dāng)前只顯示滿足指定條件的回帖，點(diǎn)擊這里查看本話題的所有回帖

夕陽(yáng)西下

金蟲(chóng) (著名寫(xiě)手)

應(yīng)助: 138 (高中生)
貴賓: 0.041
金幣: 9247.1
帖子: 1268
在線: 1164.4小時(shí)
蟲(chóng)號(hào): 220750

[交流] 程序運(yùn)行不了問(wèn)題在哪

下面這個(gè)程序有錯(cuò)誤，怎么改呢？
program Ne
integer :: I,J, N, Ny
real::  ne(J)
real::  Hx(I)
N=1000
Ny=1000
Dx=0.1
Dt=0.1
n0=5E+2
m=2.1
p=2
Te=5
q=0.6E-19
E=2
k=0.514E-9
v=n0*k
Hx(0)=sqrt(8*Te/pm)*ne*(1-0.25)
Hx(I)=-(q/m*v)*E(ne/(1-exp(q*E*Dx/Te)+ne/(1-exp(-q*E*Dx/Te))

open (unit=10,FILE='1.txt')
DO I=2,N-1

  DO J=2,Ny-1
HX(I)=(H1(I+1)-H1(I-1))/(2*DX)
ne(J)=(ne(J+1)-ne(J-1))/(2*Dt)
ne(J)=Hx(I)+R
end do
end do

write (10,"('N=?,Ny=?')" ne(I)
stop
end

回復(fù)此樓

» 猜你喜歡

346求調(diào)劑[0856] 已經(jīng)有7人回復(fù)
一志愿山大07化學(xué) 332分四六級(jí)已過(guò) 本科山東雙非求調(diào)劑！已經(jīng)有3人回復(fù)
310求調(diào)劑已經(jīng)有3人回復(fù)
機(jī)械專碩299求調(diào)劑至材料已經(jīng)有4人回復(fù)
070300化學(xué)319求調(diào)劑已經(jīng)有7人回復(fù)
08工科 320總分求調(diào)劑已經(jīng)有6人回復(fù)
一志愿天津大學(xué)化學(xué)工藝專業(yè)（081702）315分求調(diào)劑已經(jīng)有12人回復(fù)
307求調(diào)劑已經(jīng)有3人回復(fù)
265求調(diào)劑已經(jīng)有3人回復(fù)
301求調(diào)劑已經(jīng)有10人回復(fù)

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

matlab非線性參數(shù)擬合問(wèn)題已經(jīng)有7人回復(fù)
【求助】程序運(yùn)行已經(jīng)無(wú)錯(cuò)誤，但是輸入文件有問(wèn)題，求教。已經(jīng)有23人回復(fù)
【求助】安裝問(wèn)題，安裝后程序無(wú)法執(zhí)行已經(jīng)有12人回復(fù)
【求助】關(guān)于vector運(yùn)行效率問(wèn)題【已完結(jié)】已經(jīng)有5人回復(fù)
【求助】運(yùn)行錯(cuò)誤，大家看看問(wèn)題在哪？已經(jīng)有7人回復(fù)

» 搶金幣啦！回帖就可以得到:

查看全部散金貼

1樓 2012-02-05 22:36:24

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

emanlee

木蟲(chóng) (小有名氣)

應(yīng)助: 28 (小學(xué)生)
金幣: 3521.6
帖子: 116
在線: 125.6小時(shí)
蟲(chóng)號(hào): 1466309

★
夕陽(yáng)西下(金幣+1):謝謝參與
余澤成(金幣+1): 謝謝參與應(yīng)助！ 2012-02-21 00:28:14

如果是編譯錯(cuò)誤，一般有提示。
如果是運(yùn)行結(jié)果錯(cuò)誤的話，建議用單步執(zhí)行的方式來(lái)調(diào)試。

贊一下

回復(fù)此樓

7樓2012-02-11 14:39:11

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

查看全部 12 個(gè)回答

snoopyzhao

至尊木蟲(chóng) (職業(yè)作家)

程序強(qiáng)帖: 16
應(yīng)助: 157 (高中生)
貴賓: 0.02
金幣: 18844.7
帖子: 3803
在線: 1422.4小時(shí)
蟲(chóng)號(hào): 183750

★ ★ ★
夕陽(yáng)西下(金幣+1):謝謝參與
jjdg(金幣+1): 感謝參與 2012-02-06 10:16:30
jjdg(金幣+1): 元宵節(jié)快樂(lè) 2012-02-06 10:16:45
ben_ladeng(專家考核): 2012-02-14 12:10:21

你這個(gè)是 fortran 的程序嗎？
里面有很多變量根本就沒(méi)有定義，比如 H1
ne 是數(shù)組還是普通的變量？
I、J作為 HX 和 NE 的維度的時(shí)候沒(méi)有賦值……

你這個(gè)程序用任何一個(gè)編譯器都編譯不過(guò)去，根據(jù)編譯器的提示修改吧……

贊一下(3人)

回復(fù)此樓

2樓2012-02-05 23:25:40

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

夕陽(yáng)西下

金蟲(chóng) (著名寫(xiě)手)

應(yīng)助: 138 (高中生)
貴賓: 0.041
金幣: 9247.1
帖子: 1268
在線: 1164.4小時(shí)
蟲(chóng)號(hào): 220750

引用回帖:

2樓: Originally posted by snoopyzhao at 2012-02-05 23:25:40:
你這個(gè)是 fortran 的程序嗎？
里面有很多變量根本就沒(méi)有定義，比如 H1
ne 是數(shù)組還是普通的變量？
I、J作為 HX 和 NE 的維度的時(shí)候沒(méi)有賦值……

你這個(gè)程序用任何一個(gè)編譯器都編譯不過(guò)去，根據(jù)編譯器的提示 ...

主要是ne的問(wèn)題，ne是個(gè)函數(shù)，就是根據(jù)編譯器不知道ne該如何修改，改了很多次。

贊一下

回復(fù)此樓

3樓2012-02-06 10:01:51

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

baobiao007

木蟲(chóng) (職業(yè)作家)

應(yīng)助: 201 (大學(xué)生)
金幣: 6482.7
帖子: 3050
在線: 1009.9小時(shí)
蟲(chóng)號(hào): 505962

★
夕陽(yáng)西下(金幣+1):謝謝參與
余澤成(金幣+2): 謝謝參與應(yīng)助！ 2012-02-21 00:27:51

我感覺(jué)就程序編寫(xiě)來(lái)說(shuō)，似乎有兩個(gè)問(wèn)題：
1.  不能用變量I 直接定義數(shù)組ne的大小。
應(yīng)寫(xiě)成(按fortran90風(fēng)格)
integer,parameter:: J
   real:: ne(J)
2.  Hx(0),Hx(I)那兩行，你似乎把ne數(shù)組的下標(biāo)丟了。

贊一下(1人)

回復(fù)此樓

4樓2012-02-06 16:53:00

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

查看全部 12 個(gè)回答

提示: 如果您在30分鐘內(nèi)回復(fù)過(guò)其他散金貼，則可能無(wú)法領(lǐng)取此貼金幣

普通表情龍兔虎貓高級(jí)回復(fù) (可上傳附件)

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

[考研] 求調(diào)劑 +3	Ma_xt 2026-03-17	3/150	2026-03-21 02:05 by JourneyLucky
[考研] 一志愿華南師大 070300（化學(xué)）304分求調(diào)劑 +3	0703武芊慧雪304 2026-03-18	3/150	2026-03-21 00:48 by JourneyLucky
[考研] 一志愿西北大學(xué) ，070300化學(xué)學(xué)碩，總分287，雙非一本，求調(diào)劑。 +3	晨昏線與星海 2026-03-18	3/150	2026-03-21 00:46 by JourneyLucky
[考研] 294求調(diào)劑材料與化工專碩 +15	陌の森林 2026-03-18	15/750	2026-03-20 23:28 by JourneyLucky
[考研] 材料與化工 322求調(diào)劑 +4	然11 2026-03-19	4/200	2026-03-20 22:12 by luoyongfeng
[考研] 一志愿西安交通大學(xué) 學(xué)碩 354求調(diào)劑 +3	我想要讀研究生 2026-03-20	3/150	2026-03-20 20:13 by JourneyLucky
[考研] 工科材料085601 279求調(diào)劑 +7	困于星晨 2026-03-17	9/450	2026-03-20 17:38 by 無(wú)懈可擊111
[考研] 286分人工智能專業(yè)請(qǐng)求調(diào)劑愿意跨考！ +3	lemonzzn 2026-03-17	4/200	2026-03-20 11:04 by lemonzzn
[考研] 085601材料工程專碩求調(diào)劑 +10	慕寒mio 2026-03-16	10/500	2026-03-19 15:26 by 丁丁*
[考研] 268求調(diào)劑 +6	簡(jiǎn)單點(diǎn)0 2026-03-17	6/300	2026-03-18 09:04 by 無(wú)際的草原
[考研] 268求調(diào)劑 +8	一定有學(xué)上- 2026-03-14	9/450	2026-03-17 17:47 by laoshidan
[考研] 301求調(diào)劑 +4	A_JiXing 2026-03-16	4/200	2026-03-17 17:32 by ruiyingmiao
[考研] 一志愿蘇州大學(xué)材料工程（085601）專碩有科研經(jīng)歷三項(xiàng)國(guó)獎(jiǎng)兩個(gè)實(shí)用型專利一項(xiàng)省級(jí)立項(xiàng) +6	大火山小火山 2026-03-16	8/400	2026-03-17 15:05 by 無(wú)懈可擊111
[論文投稿] 有沒(méi)有大佬發(fā)小論文能帶我個(gè)二作 +3	增銳漏人 2026-03-17	4/200	2026-03-17 09:26 by xs74101122
[考研] 326求調(diào)劑 +4	諾貝爾化學(xué)獎(jiǎng)覬?/a> 2026-03-15	7/350	2026-03-16 17:11 by 諾貝爾化學(xué)獎(jiǎng)覬?/a>
[考研] 326求調(diào)劑 +3	mlpqaz03 2026-03-15	3/150	2026-03-16 07:33 by Iveryant
[考研] 327求調(diào)劑 +6	拾光任染 2026-03-15	11/550	2026-03-15 22:47 by 拾光任染
[考研] 26考研一志愿中國(guó)石油大學(xué)(華東)305分求調(diào)劑 +3	嘉年新程 2026-03-15	3/150	2026-03-15 13:58 by 哈哈哈哈嘿嘿嘿
[考研] 085601材料工程315分求調(diào)劑 +3	yang_0104 2026-03-15	3/150	2026-03-15 10:58 by peike
[考研] 289求調(diào)劑 +4	這么名字咋樣 2026-03-14	6/300	2026-03-14 18:58 by userper