 |
 |
 |
| 24小時(shí)熱門(mén)版塊排行榜 |
- >論壇更新日志 (5990)
- >導(dǎo)師招生 (1248)
- >考研 (1112)
- >蟲(chóng)友互識(shí) (751)
- >文獻(xiàn)求助 (369)
- >考博 (224)
- >休閑灌水 (179)
- >碩博家園 (112)
- >基金申請(qǐng) (82)
- >公派出國(guó) (64)
- >論文投稿 (64)
- >論文道賀祈福 (59)
- >招聘信息布告欄 (54)
- >教師之家 (53)
- >博后之家 (51)
- >SciFinder/Reaxys (39)
 |
 |
 |
||
 |
 |
 |
 |
 |
| 6 | 1/1 | 返回列表 |
| 查看: 1396 | 回復(fù): 5 | ||
歡迎你來(lái)了新蟲(chóng) (小有名氣)
|
[求助]
運(yùn)行結(jié)果不隨輸入變化
|
|
結(jié)果可以運(yùn)行，但是結(jié)果不會(huì)隨著輸入變化，這是為什么呀？ 發(fā)自小木蟲(chóng)Android客戶端 |
回復(fù)此樓» 猜你喜歡
0856化工原理
已經(jīng)有5人回復(fù)
-
289求調(diào)劑
已經(jīng)有4人回復(fù)
-
材料與化工085600調(diào)劑求老師收留
已經(jīng)有4人回復(fù)
-
301求調(diào)劑
已經(jīng)有4人回復(fù)
-
（081700）化學(xué)工程與技術(shù)-298分求調(diào)劑
已經(jīng)有5人回復(fù)
-
售SCI一區(qū)T0P文章，我:8.O.5.5.1.O.5.4,科目齊全,可+急
已經(jīng)有8人回復(fù)
-
求調(diào)劑
已經(jīng)有5人回復(fù)
-
一志愿中科大材料與化工。353分能調(diào)劑到哪？
已經(jīng)有7人回復(fù)
-
337一志愿華南理工0805材料求調(diào)劑
已經(jīng)有5人回復(fù)
-
伙伴們，祝我生日快樂(lè)吧
已經(jīng)有4人回復(fù)
raymond137
金蟲(chóng) (正式寫(xiě)手)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 1823.8
- 紅花: 1
- 帖子: 808
- 在線: 62.2小時(shí)
- 蟲(chóng)號(hào): 9463435
- 注冊(cè): 2018-07-14
- 性別: GG
- 專(zhuān)業(yè): 電子學(xué)與信息系統(tǒng)
2樓2021-05-21 07:06:37
歡迎你來(lái)了
新蟲(chóng) (小有名氣)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 233.1
- 散金: 15
- 帖子: 131
- 在線: 20.9小時(shí)
- 蟲(chóng)號(hào): 21285787
- 注冊(cè): 2020-02-28
- 專(zhuān)業(yè): 原子和分子物理
|
module contants implicit none real::a1, a2 real::ed = 9.91, edm = 14.5 real::b2 = 2.3 real::kb = 1.380649e-23 real::a_i = 0.08 real::a_j = 4.33d-5 real(kind=8)::h = 1.06e-34 real(kind=8)::w = 2.37e3 integer::b1 = 3390end module contants real function gos(x) use contants implicit none real:: x real(kind=4):: m, m1, m2 real(kind=4):: em1 real::a_1, b_1 integer::j, v integer::tv, t0, trot, tread *,x,tv,t0,trot,t a_1 = a1 - (b1/trot) - (b1/t0) a1 = -3*a_i*kb*t/(2*ed) a2 = -3*a_j*kb*t/(2*ed) if (v >= 0 .and. v < 9) then m1 = 0 m2 = 9 b_1 = b1 m = 1 em1 = (m1 + 0.5)*h*w gos= exp(x*em1 + a_1*m1)*((1 - exp((m2 - m1)*(x*b_1*kb + a_1)))/(1 - exp(x*b_1*kb + a_1))) else if (v >= 9 .and. v < 31) then m1 = 9 m2 = 31 b_1 = 0.75*b1 m = 2 em1 = (m1 + 0.5)*h*w gos= exp(x*em1 + a_1*m1)*((1 - exp((m2 - m1)*(x*b_1*kb + a_1)))/(1 - exp(x*b_1*kb + a_1))) else if (v >= 31 .and. v < 55) then m1 = 31 m2 = 55 b_1 = 0.45*b1 m = 3 em1 = (m1 + 0.5)*h*w gos= exp(x*em1 + a_1*m1)*((1 - exp((m2 - m1)*(x*b_1*kb + a_1)))/(1 - exp(x*b_1*kb + a_1))) end if! fl=q+d+c write(*,*) gos return end function program piok !use contants implicit none real::y,x real,external::gos y=gos(x) ! print*,gos end 發(fā)自小木蟲(chóng)Android客戶端 |
3樓2021-05-21 11:18:56
歡迎你來(lái)了
新蟲(chóng) (小有名氣)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 233.1
- 散金: 15
- 帖子: 131
- 在線: 20.9小時(shí)
- 蟲(chóng)號(hào): 21285787
- 注冊(cè): 2020-02-28
- 專(zhuān)業(yè): 原子和分子物理
|
module contants implicit none real::a1, a2 real::ed = 9.91, edm = 14.5 real::b2 = 2.3 real::kb = 1.380649e-23 real::a_i = 0.08 real::a_j = 4.33d-5 real(kind=8)::h = 1.06e-34 real(kind=8)::w = 2.37e3 integer::b1 = 3390 end module contants real function gos(x) use contants implicit none real:: x real(kind=4):: m, m1, m2 real(kind=4):: em1 real::a_1, b_1 integer::j, v integer::tv, t0, trot, t read *,x,tv,t0,trot,t a_1 = a1 - (b1/trot) - (b1/t0) a1 = -3*a_i*kb*t/(2*ed) a2 = -3*a_j*kb*t/(2*ed) if (v >= 0 .and. v < 9) then m1 = 0 m2 = 9 b_1 = b1 m = 1 em1 = (m1 + 0.5)*h*w gos= exp(x*em1 + a_1*m1)*((1 - exp((m2 - m1)*(x*b_1*kb + a_1)))/(1 - exp(x*b_1*kb + a_1))) else if (v >= 9 .and. v < 31) then m1 = 9 m2 = 31 b_1 = 0.75*b1 m = 2 em1 = (m1 + 0.5)*h*w gos= exp(x*em1 + a_1*m1)*((1 - exp((m2 - m1)*(x*b_1*kb + a_1)))/(1 - exp(x*b_1*kb + a_1))) else if (v >= 31 .and. v < 55) then m1 = 31 m2 = 55 b_1 = 0.45*b1 m = 3 em1 = (m1 + 0.5)*h*w gos= exp(x*em1 + a_1*m1)*((1 - exp((m2 - m1)*(x*b_1*kb + a_1)))/(1 - exp(x*b_1*kb + a_1))) end if ! fl=q+d+c write(*,*) gos return end function program piok !use contants implicit none real::y,x real,external::gos y=gos(x) ! print*,gos end 發(fā)自小木蟲(chóng)Android客戶端 |
4樓2021-05-21 11:26:32
raymond137
金蟲(chóng) (正式寫(xiě)手)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 1823.8
- 紅花: 1
- 帖子: 808
- 在線: 62.2小時(shí)
- 蟲(chóng)號(hào): 9463435
- 注冊(cè): 2018-07-14
- 性別: GG
- 專(zhuān)業(yè): 電子學(xué)與信息系統(tǒng)
|
我是做C++的。你這個(gè)是什么語(yǔ)言代碼？Fortran？建議你用debug模式，加幾個(gè)斷點(diǎn)，分步跟蹤。 發(fā)自小木蟲(chóng)Android客戶端 |
5樓2021-05-21 11:53:14
歡迎你來(lái)了
新蟲(chóng) (小有名氣)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 233.1
- 散金: 15
- 帖子: 131
- 在線: 20.9小時(shí)
- 蟲(chóng)號(hào): 21285787
- 注冊(cè): 2020-02-28
- 專(zhuān)業(yè): 原子和分子物理
6樓2021-05-21 11:59:59
相關(guān)版塊跳轉(zhuǎn)
我要訂閱樓主 歡迎你來(lái)了 的主題更新
| 6 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 0856化工原理 +5 | z2839474511 2026-03-10 | 5/250 |
|
|---|---|---|---|---|
|
|
[考研] 求調(diào)劑 +5 | yfihxh 2026-03-09 | 5/250 |
|
|
|
[考研] 一志愿中科大材料與化工。353分能調(diào)劑到哪？ +5 | MayUxw1 2026-03-08 | 7/350 |
|
|
[考研] 材料工程,326分，求調(diào)劑 +4 | KRSLSR 2026-03-10 | 4/200 |
|
|
|
[考研]
一志愿天津大學(xué)材料與化工275求調(diào)劑
 10+5
|
穿只靴子 2026-03-07 | 20/1000 |
|
|
|
[碩博家園] 深圳大學(xué)碩士招生（2026秋，傳感器方向，僅錄取第一志愿） +4 | xujiaoszu 2026-03-11 | 6/300 |
|
|
|
[考研] 0703求調(diào)劑 +4 | jtyq001 2026-03-10 | 4/200 |
|
|
|
[考研] 標(biāo)題:撿漏預(yù)警|08工科/09農(nóng)學(xué)調(diào)劑!英語(yǔ)要求低，過(guò)線即有機(jī)會(huì)! +7 | 馬超放煙花 2026-03-07 | 12/600 |
|
|
|
[考研] 313分生物學(xué)求調(diào)劑 +5 | Yyt楊1 2026-03-09 | 7/350 |
|
|
|
[考研] 一志愿天大化工（085600）調(diào)劑總分338 +5 | 蔡大美女 2026-03-09 | 5/250 |
|
|
|
[考研] 考研一志愿長(zhǎng)安大學(xué)材料與化工309分請(qǐng)求調(diào)劑 +6 | dtdxzxx 2026-03-06 | 8/400 |
|
|
|
[考研] 0832食品科學(xué)與工程293調(diào)劑 +3 | 東東不東 2026-03-07 | 3/150 |
|
|
|
[考研] 290 材料與化工求調(diào)劑 +7 | Nebulala 2026-03-08 | 7/350 |
|
|
|
[考研] 347求調(diào)劑 +4 | 浮云滿足 2026-03-07 | 4/200 |
|
|
|
[考研] 085701環(huán)境工程專(zhuān)業(yè)，初試305，均過(guò)國(guó)家A區(qū)線 +7 | 卡卡來(lái)了@ 2026-03-07 | 8/400 |
|
|
|
[考研] 材料科學(xué)（0805）338 求調(diào)劑 +7 | xiaokang3286 2026-03-07 | 7/350 |
|
|
|
[考研] 一志愿211 085600 280數(shù)二英二求調(diào)劑 +3 | 月山斜 2026-03-06 | 3/150 |
|
|
|
[考研] 276求調(diào)劑 本科天津工業(yè)大學(xué) 一志愿北京化工大學(xué)0855 +4 | 路lyh123 2026-03-06 | 6/300 |
|
|
|
[考研] 求調(diào)劑，學(xué)校研究所都可以，材料與化工267分 +6 | wmx1 2026-03-05 | 6/300 |
|
|
|
[考研] 復(fù)試調(diào)劑 +5 | 呼呼？~+123456 2026-03-05 | 5/250 |
|