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

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

返回列表

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

liming9398

金蟲 (正式寫手)

應(yīng)助: 1 (幼兒園)
金幣: 780.9
散金: 89
紅花: 1
帖子: 361
在線: 1009.2小時(shí)
蟲號(hào): 610070
注冊(cè): 2008-09-23
專業(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ù)此樓

» 猜你喜歡

一志愿大連理工大學(xué)材料求調(diào)劑已經(jīng)有5人回復(fù)
材料與化工調(diào)劑一志愿大連海事085600，349 已經(jīng)有6人回復(fù)
一志愿中海洋320化學(xué)工程與技術(shù)學(xué)碩求調(diào)劑已經(jīng)有4人回復(fù)
材料科學(xué)與工程調(diào)劑已經(jīng)有11人回復(fù)
311求調(diào)劑一志愿合肥工業(yè)大學(xué) 已經(jīng)有4人回復(fù)
一志愿食品科學(xué)與工程083200求調(diào)劑已經(jīng)有4人回復(fù)
材料科學(xué)與工程求調(diào)劑已經(jīng)有10人回復(fù)
一志愿北化085600材料專碩275|有文章專利｜求調(diào)劑已經(jīng)有11人回復(fù)
一志愿南京航空航天大學(xué) ，080500材料科學(xué)與工程學(xué)碩已經(jīng)有4人回復(fù)
085600材料與化工調(diào)劑已經(jīng)有15人回復(fù)

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

求 Risk, Hazards & Crisis in Public Policy期刊縮寫已經(jīng)有6人回復(fù)
應(yī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é)入門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)+分享】書寫金Au(111)面塊體電極的代碼已經(jīng)有4人回復(fù)

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

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

jackplay

金蟲 (小有名氣)

應(yīng)助: 4 (幼兒園)
金幣: 1120.8
紅花: 1
帖子: 128
在線: 88小時(shí)
蟲號(hào): 2945895
注冊(cè): 2014-01-24
性別: GG
專業(yè): 分析化學(xué)

c語(yǔ)言中，如果最多有效位的數(shù)是這段函數(shù)的有效位，所以較少有效數(shù)位的數(shù)其實(shí)省去了最后的0而已，不知道是不是可以類比

發(fā)自小木蟲Android客戶端

贊一下

回復(fù)此樓

maths physics chemistry

7樓2016-01-09 08:21:30

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

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

hklulu

木蟲 (正式寫手)

000

應(yīng)助: 18 (小學(xué)生)
金幣: 2645
散金: 61
紅花: 3
帖子: 341
在線: 154.9小時(shí)
蟲號(hào): 108850
注冊(cè): 2005-11-18
專業(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

金蟲 (正式寫手)

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

可能我沒(méi)說(shuō)清楚3.14159265不就是九位的嗎，可RAD是real類型的也就是單精度類型的，最多七位有效數(shù)字啊，賦值時(shí)寫這么多位還有意義嗎，同樣的問(wèn)題出現(xiàn)在給real類型數(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

木蟲 (正式寫手)

000

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

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

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

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

贊一下

回復(fù)此樓

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

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

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

普通表情龍兔虎貓

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

[考研] 材料與化工調(diào)劑一志愿大連海事085600，349 +6	吃的不少 2026-03-30	6/300	2026-03-31 04:17 by fmesaito
[考研] 抱歉 +4	田洪有 2026-03-30	4/200	2026-03-30 21:26 by mumin1990
[考研] 281求調(diào)劑 +5	亞克西good 2026-03-26	7/350	2026-03-30 20:42 by dophin1985
[考研] 一志愿鄭州大學(xué)，080500學(xué)碩，總分317分求調(diào)劑 +10	舉個(gè)栗子oi 2026-03-24	11/550	2026-03-30 19:31 by michael2011
[考研] 0703化學(xué)321分求調(diào)劑 +10	三dd. 2026-03-30	11/550	2026-03-30 19:24 by markhwc
[考研] 295材料工程專碩求調(diào)劑 +10	1428151015 2026-03-27	10/500	2026-03-30 19:00 by 源_2020
[考研] 292求調(diào)劑 +13	是妍子也是研子 2026-03-30	13/650	2026-03-30 18:01 by 小徐0109
[考研] 070300化學(xué)354求調(diào)劑 +7	101次希望 2026-03-28	7/350	2026-03-30 13:22 by Iveryant
[考研] 求調(diào)劑 +7	青春裁為三截 2026-03-29	7/350	2026-03-30 13:14 by laoshidan
[考研] 318求調(diào)劑 +7	陳晨79 2026-03-30	7/350	2026-03-30 10:49 by 探123
[考研] 材料與化工304求B區(qū)調(diào)劑 +4	邱gl 2026-03-26	7/350	2026-03-30 08:39 by 探123
[考研] 【求調(diào)劑】085601材料工程專碩 \| 總分272 \| +7	腳滑的守法公民 2026-03-27	7/350	2026-03-29 20:21 by dophin1985
[考研] 316求調(diào)劑 +7	江辭666 2026-03-26	7/350	2026-03-28 21:28 by sanrepian
[考研] 343求調(diào)劑 +5	愛(ài)羈絆 2026-03-28	5/250	2026-03-28 20:53 by 唐沐兒
[考研] 復(fù)試調(diào)劑 +3	raojunqi0129 2026-03-28	3/150	2026-03-28 15:27 by 落�？伤�
[考研] 283求調(diào)劑 +7	A child 2026-03-28	7/350	2026-03-28 12:05 by zllcz
[考研] 085600，材料與化工321分調(diào)劑 +4	大饞小子 2026-03-27	6/300	2026-03-27 14:11 by 松花缸1201
[考研] 材料與化工304求B區(qū)調(diào)劑 +3	邱gl 2026-03-25	3/150	2026-03-25 19:03 by Ainin_
[考研] 【2026考研調(diào)劑】制藥工程 284分求相關(guān)專業(yè)調(diào)劑名額 +4	袁奐奐 2026-03-25	8/400	2026-03-25 14:32 by lbsjt
[考研] 求調(diào)劑 +3	李李不服輸 2026-03-25	3/150	2026-03-25 13:03 by cmz0325