版塊導(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ù)此樓

» 猜你喜歡

280求調(diào)劑已經(jīng)有7人回復(fù)
環(huán)境領(lǐng)域全國(guó)重點(diǎn)實(shí)驗(yàn)室招收博士1-2名已經(jīng)有5人回復(fù)
303求調(diào)劑已經(jīng)有6人回復(fù)
290求調(diào)劑已經(jīng)有10人回復(fù)
0703化學(xué)求調(diào)劑總分331 已經(jīng)有3人回復(fù)
一志愿天津大學(xué)化學(xué)工藝專(zhuān)業(yè)（081702）315分求調(diào)劑已經(jīng)有8人回復(fù)
0703化學(xué)調(diào)劑已經(jīng)有3人回復(fù)
材料，紡織，生物（0856、0710），化學(xué)招生啦已經(jīng)有9人回復(fù)
一志愿中國(guó)海洋大學(xué)，生物學(xué)，301分，求調(diào)劑已經(jīng)有3人回復(fù)
0703化學(xué)調(diào)劑，六級(jí)已過(guò)，有科研經(jīng)歷已經(jīng)有9人回復(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的回帖

q1036210267

木蟲(chóng) (正式寫(xiě)手)

應(yīng)助: 26 (小學(xué)生)
金幣: 2182.2
帖子: 893
在線: 262.1小時(shí)
蟲(chóng)號(hào): 1346635

★
夕陽(yáng)西下(金幣+1):謝謝參與
jjdg(金幣+1): 2012-02-14 13:14:02
jjdg: 感謝參與 2012-02-14 13:14:07

ne 是與變量有關(guān)的函數(shù)嗎，若不是，取消ne（j）的數(shù)組定義，直接定義ne就行

贊一下

回復(fù)此樓

9樓2012-02-14 10:42:28

已閱回復(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(專(zhuān)家考核): 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ā)表

[考研] 能源材料化學(xué)課題組招收碩士研究生8-10名 +3	脫穎而出 2026-03-16	6/300	2026-03-17 21:19 by z1z2z3879
[考研] 301求調(diào)劑 +4	A_JiXing 2026-03-16	4/200	2026-03-17 17:32 by ruiyingmiao
[考研] 材料與化工專(zhuān)碩調(diào)劑 +5	heming3743 2026-03-16	5/250	2026-03-17 14:03 by 勇敢太監(jiān)王公公
[考研] 211本，11408一志愿中科院277分，曾在中科院自動(dòng)化所實(shí)習(xí) +6	Losir 2026-03-12	7/350	2026-03-17 12:09 by danranxie
[考研] 一志愿985，本科211，0817化學(xué)工程與技術(shù)319求調(diào)劑 +5	Liwangman 2026-03-15	5/250	2026-03-16 17:10 by 我的船我的海
[考研] 一志愿211 0703方向310分求調(diào)劑 +3	努力奮斗112 2026-03-15	3/150	2026-03-16 16:44 by houyaoxu
[考研] 321求調(diào)劑 +5	大米飯！ 2026-03-15	5/250	2026-03-16 16:33 by houyaoxu
[考研] 0703一志愿211 285分求調(diào)劑 +5	ly3471z 2026-03-13	5/250	2026-03-16 16:16 by 哦哦123
[考研] 070303 總分349求調(diào)劑 +3	LJY9966 2026-03-15	5/250	2026-03-16 14:24 by xwxstudy
[考研] 機(jī)械專(zhuān)碩調(diào)劑 +3	笨笨兔子 2026-03-12	3/150	2026-03-15 20:02 by 栗子粥?
[考研] 材料與化工 323 英一+數(shù)二+物化，一志愿：哈工大本人本科雙一流 +4	自由的_飛翔 2026-03-13	5/250	2026-03-14 19:39 by hmn_wj
[考研] 297一志愿上交085600求調(diào)劑 +5	指尖八千里 2026-03-14	5/250	2026-03-14 17:26 by a不易
[考研] 265求調(diào)劑 +4	威化餅07 2026-03-12	4/200	2026-03-14 17:23 by userper
[考研] 330求調(diào)劑 +3	?醬給調(diào)劑跪了 2026-03-13	3/150	2026-03-14 10:13 by JourneyLucky
[基金申請(qǐng)] 有必要更換申報(bào)口嗎 20+3	fannyamoy 2026-03-11	3/150	2026-03-14 00:52 by zhanghaozhu
[考研] 材料工程調(diào)劑 +9	咪咪空空 2026-03-12	9/450	2026-03-13 22:05 by 星空星月
[考研] 一志愿西南交大，材料專(zhuān)碩317求調(diào)劑 +5	lx8568 2026-03-11	5/250	2026-03-13 21:43 by peike
[考研] 四川大學(xué)085601材料工程專(zhuān)碩初試294求調(diào)劑 +4	祝我們好在冬天 2026-03-11	4/200	2026-03-13 21:39 by peike
[考研] 材料與化工085600調(diào)劑求老師收留 +9	jiaanl 2026-03-11	9/450	2026-03-13 20:22 by JourneyLucky
[考研] 【考研調(diào)劑求收留】 +3	Ceciilia 2026-03-11	3/150	2026-03-13 20:18 by JourneyLucky