版塊導(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)版塊排行榜

北京石油化工學(xué)院2026年研究生招生接收調(diào)劑公告

返回列表

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

liming9398

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

應(yīng)助: 1 (幼兒園)
金幣: 780.9
散金: 89
紅花: 1
帖子: 361
在線: 1009.2小時(shí)
蟲(chóng)號(hào): 610070
注冊(cè): 2008-09-23
專(zhuān)業(yè): 代數(shù)學(xué)

[求助] numerical recipes in fortan 代碼的疑惑已有1人參與

SUBROUTINE flmoon(n,nph,jd,frac)
   INTEGER jd,n,nph
   REAL frac,RAD
   PARAMETER (RAD=3.14159265/180.)
   INTEGER i
   REAL am,as,c,t,t2,xtra
   c=n+nph/4.
   t=c/1236.85
   t2=t**2
   as=359.2242+29.105356*c
   am=306.0253+385.816918*c+0.010730*t2
   jd=2415020+28*n+7*nph
   xtra=0.75933+1.53058868*c+(1.178e-4-1.55e-7*t)*t2
   if(nph.eq.0.or.nph.eq.2)then
      xtra=xtra+(0.1734-3.93e-4*t)*sin(RAD*as)-0.4068*sin(RAD*am)
   else if(nph.eq.1.or.nph.eq.3)then
      xtra=xtra+(0.1721-4.e-4*t)*sin(RAD*as)-0.6280*sin(RAD*am)
   else
      pause 'nph is unknown in flmoon'
   endif
   if(xtra.ge.0.)then
      i=int(xtra)
   else
      i=int(xtra-1.)
   endif
   jd=jd+i
   frac=xtra-i
   return
   END
fotran77b標(biāo)準(zhǔn)謝的，為什么要用八位或者九位的常數(shù)給real數(shù)據(jù)RAD，as,am賦值？單精度不是最多七位嗎，多了有意義嗎？

回復(fù)此樓

» 猜你喜歡

309求調(diào)劑已經(jīng)有3人回復(fù)
070300化學(xué)354求調(diào)劑已經(jīng)有4人回復(fù)
330分求調(diào)劑已經(jīng)有3人回復(fù)
299求調(diào)劑已經(jīng)有8人回復(fù)
一志愿北京理工大學(xué)本科211材料工程294求調(diào)劑已經(jīng)有6人回復(fù)
300求調(diào)劑，材料科學(xué)英一數(shù)二已經(jīng)有8人回復(fù)
招收生物學(xué)/細(xì)胞生物學(xué)調(diào)劑已經(jīng)有5人回復(fù)
070305高分子化學(xué)與物理 304分求調(diào)劑已經(jīng)有7人回復(fù)
289求調(diào)劑已經(jīng)有13人回復(fù)
一志愿哈爾濱工業(yè)大學(xué)材料與化工方向336分已經(jīng)有9人回復(fù)

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

求 Risk, Hazards & Crisis in Public Policy期刊縮寫(xiě) 已經(jīng)有6人回復(fù)
應(yīng)蟲(chóng)友要求，共享《Catalysis in C1 Chemistry》已經(jīng)有292人回復(fù)
【轉(zhuǎn)載】物理著作 The Theory of Transport Phenomena in Solids 已經(jīng)有86人回復(fù)
Nuclear-Power-in-China-Market-Outlook-to-2020 已經(jīng)有19人回復(fù)
Postdoctoral Position in the MSE in NC state university 已經(jīng)有15人回復(fù)
求分子動(dòng)力學(xué)入門(mén)fortran程序代碼已經(jīng)有1人回復(fù)
急問(wèn)：連續(xù)資助項(xiàng)目的申請(qǐng)代碼1必須與原青年科學(xué)基金項(xiàng)目保持一致嗎？已經(jīng)有8人回復(fù)
International Journal for Numerical Methods in Engineering二審時(shí)間已經(jīng)有13人回復(fù)
International Journal for Numerical Methods in Engineering 審稿周期已經(jīng)有10人回復(fù)
Numerical Recipes in Fortran 已經(jīng)有181人回復(fù)
【原創(chuàng)+分享】書(shū)寫(xiě)金Au(111)面塊體電極的代碼已經(jīng)有4人回復(fù)

1樓 2012-05-14 11:05:53

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

hklulu

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

000

應(yīng)助: 18 (小學(xué)生)
金幣: 2645
散金: 61
紅花: 3
帖子: 341
在線: 154.9小時(shí)
蟲(chóng)號(hào): 108850
注冊(cè): 2005-11-18
專(zhuān)業(yè): 原子和分子物理

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

奧，當(dāng)然有意義：
32位機(jī)的單雙精度的數(shù)據(jù)：?jiǎn)尉鹊挠行?shù)字：6位；雙精度的有效數(shù)字：15位
64位機(jī)器上有最大18位有效數(shù)字和4932為指數(shù)的類(lèi)型。

有些計(jì)算需要有效位數(shù)1000多位，比如Pi的計(jì)算等，這時(shí)候就需要自己編寫(xiě)程序來(lái)控制有效位數(shù)的輸出。我記著10年前，我為了在PC上輸出20位有效位數(shù)，親自編寫(xiě)了一個(gè)多有效位（名為doubledoubledboule類(lèi)型）的程序，不過(guò)現(xiàn)在網(wǎng)上多的很，樓主可以自己找一找，如果感興趣的話。

贊一下

回復(fù)此樓

4樓2012-05-14 13:47:26

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

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

hklulu

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

000

應(yīng)助: 18 (小學(xué)生)
金幣: 2645
散金: 61
紅花: 3
帖子: 341
在線: 154.9小時(shí)
蟲(chóng)號(hào): 108850
注冊(cè): 2005-11-18
專(zhuān)業(yè): 原子和分子物理

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

感謝參與，應(yīng)助指數(shù) +1

哈哈，新手吧。

八位不是指的數(shù)字的位數(shù)，而是二進(jìn)制的8B，就是通常用64位二進(jìn)制數(shù)字來(lái)表示雙精度數(shù)字。

此位非彼位。

贊一下

回復(fù)此樓

2樓2012-05-14 11:26:38

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

liming9398

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

應(yīng)助: 1 (幼兒園)
金幣: 780.9
散金: 89
紅花: 1
帖子: 361
在線: 1009.2小時(shí)
蟲(chóng)號(hào): 610070
注冊(cè): 2008-09-23
專(zhuān)業(yè): 代數(shù)學(xué)

可能我沒(méi)說(shuō)清楚3.14159265不就是九位的嗎，可RAD是real類(lèi)型的也就是單精度類(lèi)型的，最多七位有效數(shù)字啊，賦值時(shí)寫(xiě)這么多位還有意義嗎，同樣的問(wèn)題出現(xiàn)在給real類(lèi)型數(shù)據(jù)as賦值時(shí)表達(dá)式中出現(xiàn)29.105356，也超過(guò)7位有效數(shù)字啊

贊一下

回復(fù)此樓

3樓2012-05-14 11:51:31

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

Carpathia

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

應(yīng)助: 35 (小學(xué)生)
金幣: 5.6
散金: 12
紅花: 2
帖子: 140
在線: 24.9小時(shí)
蟲(chóng)號(hào): 1070633
注冊(cè): 2010-08-06
性別: GG
專(zhuān)業(yè): 動(dòng)力學(xué)與控制

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

感謝參與，應(yīng)助指數(shù) +1

建議ls看清楚lz的問(wèn)題
lz說(shuō)得沒(méi)錯(cuò)，給單精度賦值超過(guò)位數(shù)是沒(méi)有意義的，同樣給雙精度數(shù)賦值也要加上D0才有意義。Fortran默認(rèn)的是單精度數(shù)。

贊一下

回復(fù)此樓

追求理想的道路上東張西望

5樓2012-05-15 15:02:48

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

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

普通表情龍兔虎貓

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

[考研] 300求調(diào)劑，材料科學(xué)英一數(shù)二 +8	leaflight 2026-03-24	8/400	2026-03-29 01:31 by fmesaito
[考研] 071000生物學(xué)求調(diào)劑，初試成績(jī)343 +7	小小甜面團(tuán) 2026-03-25	7/350	2026-03-28 20:25 by 唐沐兒
[考研] 304求調(diào)劑 +6	曼殊2266 2026-03-27	6/300	2026-03-28 14:10 by 唐沐兒
[考研] 0703化學(xué)/290求調(diào)劑/本科經(jīng)歷豐富/工科也可 +9	丹青奶蓋 2026-03-26	10/500	2026-03-28 07:45 by barnett0632
[考研] 331環(huán)境科學(xué)與工程求調(diào)劑 +3	熠然好運(yùn)氣 2026-03-27	3/150	2026-03-28 04:11 by fmesaito
[考研] 352分化工與材料 +5	海納百川Ly 2026-03-27	5/250	2026-03-28 03:39 by fmesaito
[考研] 265求調(diào)劑11408 +3	劉小鹿lu 2026-03-27	3/150	2026-03-27 20:53 by nihaoar
[考研] 266求調(diào)劑 +11	陽(yáng)陽(yáng)哇塞 2026-03-27	12/600	2026-03-27 17:56 by yu221
[考研] 085600，材料與化工321分調(diào)劑 +4	大饞小子 2026-03-27	6/300	2026-03-27 14:11 by 松花缸1201
[考研] 085601 材料工程 313分求調(diào)劑 +5	Ong3 2026-03-27	5/250	2026-03-27 12:24 by goldfish51
[考研] 317求調(diào)劑 +7	蛋黃咸肉粽 2026-03-26	7/350	2026-03-27 02:29 by fmesaito
[考研] 294分080500材料科學(xué)與工程求調(diào)劑 +4	柳溪邊 2026-03-26	4/200	2026-03-26 21:14 by XPU李慶
[考研] 352求調(diào)劑 +4	大米飯！ 2026-03-22	4/200	2026-03-26 16:40 by 不吃魚(yú)的貓
[考研] 一志愿河工大 081700 276求調(diào)劑 +4	地球繞著太陽(yáng)轉(zhuǎn) 2026-03-23	4/200	2026-03-26 14:27 by zzll406
[考研] 考研一志愿蘇州大學(xué)初始315（英一）求調(diào)劑 +3	sbdksD 2026-03-24	4/200	2026-03-25 18:16 by xcjcqu
[考研] 0854人工智能方向招收調(diào)劑 +4	章小魚(yú)567 2026-03-24	4/200	2026-03-25 13:29 by 2177681040
[考研] 調(diào)劑 +4	13853210211 2026-03-24	4/200	2026-03-24 19:44 by ms629
[考研] 一志愿北化315 求調(diào)劑 +3	akrrain 2026-03-24	3/150	2026-03-24 19:35 by 了了了了。。
[考研] 材料專(zhuān)碩找調(diào)劑 +5	哈哈哈吼吼吼哈 2026-03-23	5/250	2026-03-24 19:07 by 了了了了。。
[考研] 284求調(diào)劑 +3	yanzhixue111 2026-03-23	6/300	2026-03-23 22:58 by pswait