| 查看: 1369 | 回复: 4 | |||
| 本帖产生 1 个 程序强帖 ，点击这里进行查看 | |||
ian_zhangty木虫 (著名写手)
|
[求助]
请问，我想用fortran计算统计中的p值以及95%信度空间
|
||
| 请问有没有现成的程序，谢谢 |
回复此楼» 猜你喜欢
时间戳变了，能看出什么问题？
已经有10人回复
-
重要消息，中午系统在维护
已经有8人回复
-
欢迎发来filecode的Mz6后的代码验证其规律
已经有105人回复
-
明天放榜？
已经有4人回复
-
投稿咨询
已经有6人回复
-
两姐妹，一个辛辛苦苦30岁工作当大学教师，另一个23岁就工作当开车教练
已经有5人回复
-
时间戳又变了8-15
已经有26人回复
-
今天维护系统维护 祝所有人 高中
已经有9人回复
-
哪位老哥知道今年的国自然具体哪一天放榜？
已经有16人回复
-
2027广东省杰青
已经有8人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 请问这种“粘手”玩具的具体材料是什么？如何制备成大块的软胶垫？
已经有10人回复
- 化工计算基础
已经有468人回复
- 用MS中的Forcite计算冰，结果发现温度波动异常的大，感觉像做周期性的震荡衰减
已经有6人回复
- 请问对于生产制剂的原料药产地变更的申请，其变更说明该怎么写
已经有8人回复
- 【求助】Fortran语言赋值问题？
已经有3人回复
- 【求助】Arcgis与GS+在地统计分析中的区别
已经有39人回复
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
2楼2011-08-05 23:00:50
ian_zhangty
木虫 (著名写手)
- 程序强帖: 1
- 应助: 1 (幼儿园)
- 金币: 4350.4
- 散金: 68
- 红花: 3
- 帖子: 1048
- 在线: 88.3小时
- 虫号: 296621
- 注册: 2006-11-12
- 专业: 植物学研究的新技术、新方
3楼2011-08-06 09:10:28
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
【答案】应助回帖
ian_zhangty(金币+4): 2011-08-06 10:36:46
| 那就上我说的那两个上面找找，也可以去看看 R (http://www.r-project.org) 或者 dataplot (http://www.itl.nist.gov/div898/software/dataplot/) 的源码中关于 p 的计算。后者主要是 fortran 编的，前者有一部分是 C，有一部分是 fortran，还有大部分是 R.... |
4楼2011-08-06 09:32:22
ian_zhangty
木虫 (著名写手)
- 程序强帖: 1
- 应助: 1 (幼儿园)
- 金币: 4350.4
- 散金: 68
- 红花: 3
- 帖子: 1048
- 在线: 88.3小时
- 虫号: 296621
- 注册: 2006-11-12
- 专业: 植物学研究的新技术、新方
【答案】应助回帖
★ ★ ★ ★ ★ ★
jjdg(金币+1): 感谢分享你的解决方案 2011-08-06 15:28:45
dubo(金币+5, 程序强帖+1): good 2011-08-21 14:01:09
jjdg(金币+1): 感谢分享你的解决方案 2011-08-06 15:28:45
dubo(金币+5, 程序强帖+1): good 2011-08-21 14:01:09
|
已经解决，方案如下，谢谢 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
