 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 1200 | 回復(fù): 4 | |||
| 本帖產(chǎn)生 1 個(gè) 程序強(qiáng)帖 ，點(diǎn)擊這里進(jìn)行查看 | |||
ian_zhangty木蟲 (著名寫手)
|
[求助]
請問，我想用fortran計(jì)算統(tǒng)計(jì)中的p值以及95%信度空間
|
||
| 請問有沒有現(xiàn)成的程序，謝謝 |
回復(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à)值貼推薦，對您同樣有幫助:
- 請問這種“粘手”玩具的具體材料是什么？如何制備成大塊的軟膠墊？
已經(jīng)有10人回復(fù)
- 化工計(jì)算基礎(chǔ)
已經(jīng)有468人回復(fù)
- 用MS中的Forcite計(jì)算冰，結(jié)果發(fā)現(xiàn)溫度波動(dòng)異常的大，感覺像做周期性的震蕩衰減
已經(jīng)有6人回復(fù)
- 請問對于生產(chǎn)制劑的原料藥產(chǎn)地變更的申請，其變更說明該怎么寫
已經(jīng)有8人回復(fù)
- 【求助】Fortran語言賦值問題？
已經(jīng)有3人回復(fù)
- 【求助】Arcgis與GS+在地統(tǒng)計(jì)分析中的區(qū)別
已經(jīng)有39人回復(fù)
snoopyzhao
至尊木蟲 (職業(yè)作家)
- 程序強(qiáng)帖: 16
- 應(yīng)助: 157 (高中生)
- 貴賓: 0.02
- 金幣: 18844.7
- 紅花: 29
- 帖子: 3803
- 在線: 1422.4小時(shí)
- 蟲號: 183750
- 注冊: 2006-02-13
- 專業(yè): 污染生態(tài)化學(xué)
2樓2011-08-05 23:00:50
ian_zhangty
木蟲 (著名寫手)
- 程序強(qiáng)帖: 1
- 應(yīng)助: 1 (幼兒園)
- 金幣: 4347.9
- 散金: 68
- 紅花: 3
- 帖子: 1046
- 在線: 88小時(shí)
- 蟲號: 296621
- 注冊: 2006-11-12
- 專業(yè): 植物學(xué)研究的新技術(shù)、新方
3樓2011-08-06 09:10:28
snoopyzhao
至尊木蟲 (職業(yè)作家)
- 程序強(qiáng)帖: 16
- 應(yīng)助: 157 (高中生)
- 貴賓: 0.02
- 金幣: 18844.7
- 紅花: 29
- 帖子: 3803
- 在線: 1422.4小時(shí)
- 蟲號: 183750
- 注冊: 2006-02-13
- 專業(yè): 污染生態(tài)化學(xué)
【答案】應(yīng)助回帖
ian_zhangty(金幣+4): 2011-08-06 10:36:46
| 那就上我說的那兩個(gè)上面找找，也可以去看看 R (http://www.r-project.org) 或者 dataplot (http://www.itl.nist.gov/div898/software/dataplot/) 的源碼中關(guān)于 p 的計(jì)算。后者主要是 fortran 編的，前者有一部分是 C，有一部分是 fortran，還有大部分是 R.... |
4樓2011-08-06 09:32:22
ian_zhangty
木蟲 (著名寫手)
- 程序強(qiáng)帖: 1
- 應(yīng)助: 1 (幼兒園)
- 金幣: 4347.9
- 散金: 68
- 紅花: 3
- 帖子: 1046
- 在線: 88小時(shí)
- 蟲號: 296621
- 注冊: 2006-11-12
- 專業(yè): 植物學(xué)研究的新技術(shù)、新方
【答案】應(yīng)助回帖
★ ★ ★ ★ ★ ★
jjdg(金幣+1): 感謝分享你的解決方案 2011-08-06 15:28:45
dubo(金幣+5, 程序強(qiáng)帖+1): good 2011-08-21 14:01:09
jjdg(金幣+1): 感謝分享你的解決方案 2011-08-06 15:28:45
dubo(金幣+5, 程序強(qiáng)帖+1): good 2011-08-21 14:01:09
|
已經(jīng)解決，方案如下，謝謝 FUNCTION betai(a,b,x) REAL betai,a,b,x !USES betacf,gammln REAL bt,betacf,gammln if(x<0..or.x>1.) pause 'bad argument x in betai' if(x==0..or.x==1.) then bt=0. else bt=exp(gammln(a+b)-gammln(a)-gammln(b)+a*log(x)& +b*log(1.-x)) endif if(x<(a+1.)/(a+b+2.)) then betai=bt*betacf(a,b,x)/a return else betai=1.-bt*betacf(b,a,1.-x)/b return endif END FUNCTION betai FUNCTION betacf(a,b,x) INTEGER maxit REAL betacf,a,b,x,EPS,fpmin PARAMETER (maxit=100,EPS=3.e-7,fpmin=1.e-30) INTEGER m,m2 REAL aa,c,d,del,h,qab,qam,qap qab=a+b qap=a+1. qam=a-1. c=1. d=1.-qab*x/qap if(abs(d) h=d do m=1,maxit m2=2*m aa=m*(b-m)*x/((qam+m2)*(a+m2)) d=1.+aa*d if(abs(d) if(abs(c) h=h*d*c aa=-(a+m)*(qab+m)*x/((a+m2)*(qap+m2)) d=1.+aa*d if(abs(d) if(abs(c) del=d*c h=h*del if(abs(del-1.) return end if end do pause 'a or b too big, or maxit too small in betacf' END FUNCTION betacf FUNCTION gammln(xx) REAL gammln,xx INTEGER j DOUBLE PRECISION ser,stp,tmp,x,y,cof(6) SAVE cof,stp DATA cof,stp/76.18009172947146d0,-86.50532032941677d0,& 24.01409824083091d0,-1.231739572450155d0,& .1208650973866179d-2,-.5395239384953d-5,& 2.5066282746310005d0/ x=xx y=x tmp=x+5.5d0 tmp=(x+0.5d0)*log(tmp)-tmp ser=1.000000000190015d0 do j=1,6 y=y+1.d0 ser=ser+cof(j)/y end do gammln=tmp+log(stp*ser/x) END FUNCTION gammln program pvalue REAL df, r, t, prob df=17-2 ! 17 is sample size r=0.188446645 ! pearson coefficient t=(abs(r)*sqrt(df))/sqrt(1-r**2) prob=betai(0.5*df,0.5,df/(df+t**2)) write (*,*) prob end program pvalue |
5樓2011-08-06 10:41:54
相關(guān)版塊跳轉(zhuǎn)
我要訂閱樓主 瘦竹云淡風(fēng)輕 的主題更新
| 5 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 福建理工大學(xué)材料學(xué)院先進(jìn)合金團(tuán)隊(duì)招收考研調(diào)劑學(xué)生 +3 | 大華金商都 2026-03-30 | 4/200 |
|
|---|---|---|---|---|
|
|
[考研] 調(diào)劑 +4 | GK72 2026-03-30 | 4/200 |
|
|
[考研] 346求調(diào)劑 一志愿070303有機(jī)化學(xué) +7 | 蘿卜燉青菜 2026-03-28 | 8/400 |
|
|
|
[考研] 26考研-291分-廈門大學(xué)（085601）-柔性電子學(xué)院材料工程專業(yè)求調(diào)劑 +5 | min3 2026-03-24 | 6/300 |
|
|
|
[考研] 0703化學(xué)求調(diào)劑 +6 | 丹青奶蓋 2026-03-26 | 8/400 |
|
|
|
[考研] 334分 一志愿武理 材料求調(diào)劑 +16 | 李李不服輸 2026-03-26 | 16/800 |
|
|
|
[考研] 材料專碩調(diào)劑 +11 | 椰椰。 2026-03-29 | 11/550 |
|
|
|
[考研] 070300一志愿211，312分求調(diào)劑院校 +4 | 小黃鴨寶 2026-03-30 | 4/200 |
|
|
|
[考研] 化學(xué)工程085602 305分求調(diào)劑 +25 | RichLi_ 2026-03-25 | 25/1250 |
|
|
|
[考研] 318一志愿吉林大學(xué)生物與醫(yī)藥 求調(diào)劑 +5 | 篤行致遠(yuǎn). 2026-03-28 | 5/250 |
|
|
|
[考研] 294分080500材料科學(xué)與工程求調(diào)劑 +8 | 柳溪邊 2026-03-26 | 8/400 |
|
|
|
[考研] 調(diào)劑310 +12 | 溫柔的晚安 2026-03-25 | 13/650 |
|
|
|
[考研] 332求92調(diào)劑 +8 | 蕉蕉123 2026-03-28 | 8/400 |
|
|
|
[考研] 081200-11408-276學(xué)碩求調(diào)劑 +6 | 崔wj 2026-03-26 | 6/300 |
|
|
|
[考研] 279 分 求調(diào)劑 +4 | 睡個(gè)好覺_16 2026-03-24 | 4/200 |
|
|
|
[考研] 調(diào)劑 +3 | 李嘉圖·S·路 2026-03-27 | 3/150 |
|
|
|
[考研]
 085602化學(xué)工程求調(diào)劑。
+4
|
平樂樂樂 2026-03-26 | 4/200 |
|
|
|
[考研] 打過很多競賽，085406控制工程300分，求調(diào)劑 +3 | askeladz 2026-03-26 | 3/150 |
|
|
|
[考研] 機(jī)械學(xué)碩總分317求調(diào)劑�。。�！ +4 | Acaciad 2026-03-25 | 4/200 |
|
|
|
[考研] 各位老師您好：本人初試372分 +5 | jj涌77 2026-03-25 | 6/300 |
|