| 查看: 2308 | 回复: 7 | |||
| 当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖 | |||
[交流]
【交流】合流超比函数的 fortran程序(自己搞定了,不过也希望你来交流)
|
|||
|
哪位虫子手里有合流超比函数(Hypergeometric 1F1)的fortran程序,能不能分享一下,我自己写了一个,可是和mathematic算的结果不一样。 1F1(a,b,c)=1+a*c/(b*1!)+a(a+1)*c^2/(b(b+1)*2!) +a(a+1)(a+2)*c^3/(b(b+1)(b+2)*3!)+...... 先在这里谢谢了。。。。。。。 PS:哈哈,刚才写了一个,感觉大体上能对上了,为了以后大家用着方便,我就贴一下我写的程序,希望你来一起交流,呵呵...... fortran77格式的: program fhgfh implicit real*8(a-z) a=0.5 garm=2.5 f=4 z=confluent(a,garm,f) write(*,*) z end c confluent hypergeometric function real*8 function confluent(a,garm,z) implicit real*8(a-z) confluent=1.0 do 11 ii=1,120 confluent=confluent+lianchen(a,ii)*z**ii/ 1 (lianchen(garm,ii)*FACTORIAL(ii)) 11 CONTINUE return END REAL*8 FUNCTION lianchen(a,N) IMPLICIT REAL*8(A-Z) lianchen=a do 22 ii=1,N-1 lianchen=lianchen*(a+ii) 22 CONTINUE return END REAL*8 FUNCTION FACTORIAL(N) IMPLICIT REAL*8(A-Z) FACTORIAL=1.0 DO 101 I=1,N FACTORIAL=FACTORIAL*I 101 CONTINUE return END [ Last edited by janecool on 2011-3-25 at 20:30 ] |
» 猜你喜欢
国社科系统bug了,是不是要放榜了?
已经有6人回复
申博发邮件
已经有6人回复
各位大神,目前国内有哪些比较好用的逆合成软件?
已经有7人回复
售一区SCI文章T0P,我:8O.551.O54,科目全,可十急
已经有4人回复
售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急
已经有3人回复
售SCI一区文章,我:8.O.551.O.5.4,科目全,可伽急
已经有3人回复
售SCI文章,我:8O.5.5.1O.54,科目全,可十急
已经有3人回复
售SCI文章,我:8O.5.5.1O.54,科目全,可十急
已经有3人回复
售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急
已经有4人回复
售SCI一区T0P文章,我:8.O.55.1.O.54,科目齐全,可+急
已经有4人回复
» 本主题相关价值贴推荐,对您同样有帮助:
FORTRAN新手 求助主程序循环问题
已经有10人回复
fortran中到底该如何比较两个实数是否相等
已经有8人回复
怎能让fortran调用c的fopen和fileio函数
已经有3人回复
Fortran中子程序与函数的区别
已经有7人回复
如何改变fortran的浮点精度
已经有28人回复
【求助】如何写FORTRAN程序实现求平均最近邻距离
已经有34人回复
» 抢金币啦!回帖就可以得到:
浙江理工大学材料学院长江学者团队招收推免研究生
+2/184
澳大利亚皇家墨尔本理工大学(RMIT)理学院招收2027博士生
+1/50
澳大利亚皇家墨尔本理工大学(RMIT)理学院招收2027博士生
+1/49
事业编制!国科温州研究院与清华/北大联合诚招副研、助研、科研助理、博士后及硕博学
+1/45
求助邢其毅第四版基础有机化学PDF版
+1/42
招收 哈工大深圳﹣大湾区大学联合培养博士生1名,材料与化工专业,2027年入学
+1/40
加拿大UBC博士/博士后招聘|人工智能 × 电池
+1/36
加拿大UBC博士后招聘|人工智能 × 电池
+1/34
地质大学北京招收2027级地质资源与地质工程申请考核制博士
+1/28
招收 哈工大深圳﹣大湾区大学联合培养博士生1名,材料与化工专业,2027年入学
+1/17
招收 哈工大深圳﹣大湾区大学联合培养博士生1名,材料与化工专业,2027年入学
+1/16
【推免招生】招收材料、化工、环境、冶金类推免生
+1/14
中国科大-合肥国家实验室冷原子量子网络团队招聘启事
+2/8
英国拉夫堡大学-CSC 合作渠道 |电池方向招收 2027 博士生(免学费+生活费, 30个名额)
+1/7
北航宁波研究院招聘全职博士后
+1/5
【生物材料与生物打印专题征稿】Scopus期刊,免APC
+1/4
英国拉夫堡大学-CSC 合作渠道 |电池方向招收 2027 博士生(免学费+生活费, 30个名额)
+1/4
无人机方向 博士后与青年教师招聘公告
+1/3
口腔特刊客座招募客编Biofunctional Materials牙科生物功能材料专题,Scopus期刊
+1/2
博士申请
+1/2
7楼2013-12-03 00:35:48
2楼2011-03-26 10:13:36
3楼2011-03-26 11:01:33
4楼2011-03-26 11:52:59










回复此楼
on 2011-3-26 at 10:23 ]