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

» 猜你喜歡

材料化工340求調(diào)劑已經(jīng)有4人回復(fù)
一志愿廈門(mén)大學(xué)材料工程專(zhuān)碩354找調(diào)劑�。�！已經(jīng)有6人回復(fù)
271求調(diào)劑已經(jīng)有20人回復(fù)
一志愿085600中科院寧波所276分求調(diào)劑已經(jīng)有24人回復(fù)
一志愿北交大材料工程總分358 已經(jīng)有4人回復(fù)
0856材料與化工調(diào)劑，339 已經(jīng)有11人回復(fù)
一志愿鄭大材料工程290求調(diào)劑已經(jīng)有19人回復(fù)
266分，一志愿電氣工程，本科材料，求材料專(zhuān)業(yè)調(diào)劑已經(jīng)有9人回復(fù)
372分材料與化工（085600）一志愿湖南大學(xué)求調(diào)劑已經(jīng)有3人回復(fù)
一志愿南師大0703化學(xué) 275求調(diào)劑已經(jīng)有6人回復(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的回帖

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è)回答

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的回帖

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è)回答

普通表情龍兔虎貓

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

[考研] 372分材料與化工（085600）一志愿湖南大學(xué)求調(diào)劑 +3	藍(lán)箋片 2026-04-02	3/150	2026-04-02 11:19 by wanghuan83214
[考研] 348求調(diào)劑 +3	吳彥祖24k 2026-04-02	3/150	2026-04-02 10:47 by Creta
[考研] 292分，材料與化工，申請(qǐng)調(diào)劑 +19	程晴之 2026-04-01	22/1100	2026-04-02 10:29 by 氯化亞硝酰
[考研] 311求調(diào)劑 +16	zchqwer 2026-04-01	18/900	2026-04-02 10:15 by 不吃魚(yú)的貓
[考研] 重慶大學(xué)材料與化工085600，初試370+，求求調(diào)劑建議 +5	shzhou_ 2026-04-01	6/300	2026-04-02 10:05 by olim
[考研] 372求調(diào)劑 +3	jj涌77 2026-04-02	3/150	2026-04-02 09:57 by olim
[考研] 085601一志愿中山大學(xué)深圳材料工程330求調(diào)劑 +7	pipiver 2026-03-30	7/350	2026-04-02 07:58 by 尚水閣主
[考研] 求調(diào)劑，一志愿南京師范大學(xué)計(jì)算機(jī)專(zhuān)碩，初試373，六級(jí)通過(guò)， +3	計(jì)算機(jī)追夢(mèng)人 2026-04-01	3/150	2026-04-02 07:57 by fxue1114
[考研] 296求調(diào)劑 +4	汪��？！ 2026-03-31	7/350	2026-04-01 22:04 by 客爾美德
[考研] 一志愿西安交大材料學(xué)碩（英一數(shù)二）347，求調(diào)劑到高分子/材料相關(guān)專(zhuān)業(yè) +7	zju51 2026-03-31	9/450	2026-04-01 19:35 by CFQZAFU
[考研] 286求調(diào)劑 +5	lim0922 2026-03-26	5/250	2026-04-01 19:08 by 客爾美德
[考研] 材料科學(xué)與工程339求調(diào)劑 +11	hyz0119 2026-03-31	12/600	2026-04-01 18:40 by 偉大河北
[考研] 285求調(diào)劑 +7	AZMK 2026-03-30	13/650	2026-04-01 17:00 by 七度不信任
[考研] 省雙一流重點(diǎn)一本大學(xué)招收調(diào)劑 +4	wwwwffffff 2026-03-31	7/350	2026-04-01 15:23 by wwwwffffff
[考研] 材料調(diào)劑 +10	Eujd1 2026-03-31	11/550	2026-04-01 11:23 by ivanqyq
[考研] 一志愿：西北大學(xué)，英一數(shù)一408-284分求調(diào)劑 +7	12.27 2026-03-27	7/350	2026-03-31 21:59 by lbsjt
[考研] 一志愿華東師范大學(xué)有機(jī)化學(xué)專(zhuān)業(yè)，初試351分，復(fù)試被刷求調(diào)劑! +9	真名有冰 2026-03-29	10/500	2026-03-31 18:01 by xhai2011
[考研] 材料求調(diào)劑一志愿哈工大總分298分，前三科223分 +11	dongfang59 2026-03-27	11/550	2026-03-31 16:51 by Wang200018
[考研] 福建理工大學(xué)材料學(xué)院先進(jìn)合金團(tuán)隊(duì)招收考研調(diào)劑學(xué)生 +3	大華金商都 2026-03-30	4/200	2026-03-31 01:04 by 方英俊602
[考研] 296求調(diào)劑 +10	彼岸t 2026-03-29	10/500	2026-03-30 10:50 by 探123