| 查看: 1928 | 回复: 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 ] |
» 猜你喜欢
材料与化工一志愿南昌大学327求调剂推荐
已经有8人回复
0703 物理化学调剂
已经有5人回复
化学工程321分求调剂
已经有7人回复
0703化学调剂 290分有科研经历,论文在投
已经有7人回复
308求调剂
已经有3人回复
本人考085602 化学工程 专硕
已经有10人回复
焦虑
已经有9人回复
0856求调剂
已经有3人回复
283求调剂
已经有11人回复
深圳大学硕士招生(2026秋,传感器方向,仅录取第一志愿)
已经有8人回复
» 本主题相关价值贴推荐,对您同样有帮助:
FORTRAN新手 求助主程序循环问题
已经有10人回复
fortran中到底该如何比较两个实数是否相等
已经有8人回复
怎能让fortran调用c的fopen和fileio函数
已经有3人回复
Fortran中子程序与函数的区别
已经有7人回复
如何改变fortran的浮点精度
已经有28人回复
【求助】如何写FORTRAN程序实现求平均最近邻距离
已经有34人回复
» 抢金币啦!回帖就可以得到:
崂山国家实验室博士后岗位招聘
+2/204
深圳技术大学集成电路与光电芯片学院郝俊杰课题组诚聘博士后、研究助理、访问学生
+2/138
郑州大学付永柱课题组诚招2026年入学博士生
+1/81
太原理工大学博士招生 电池负极材料 固态电解质方向 有工作经验者优先
+1/79
西北工业大学光子学研究团队诚聘博士后!
+2/48
青岛大学泰山学者课题组招2026年申请考核制博士
+1/34
厦门大学航空航天学院智能制造课题组招2026年申请审核制博士生1名
+1/22
医学327分专硕调剂
+1/16
福建师范大学化学与材料学院杜克钊团队博士/硕士招生
+1/15
学术/专业硕士调剂——化学、资源与环境
+1/15
【2026博士招生/博后招聘】北京航空航天大学潘彪课题组——AI芯片设计方向
+1/14
福州大学国家级人才汤育欣教授课题组2026年招收”申请考核制“储能电池方向博士研究生
+1/13
2026年上海大学王亮课题组招收电催化或光催化研究背景的博士生
+2/10
华中科技大学管理学院招聘社会用工(科研助理)1名
+1/9
哈尔滨理工大学材料与化学工程学院 纳米功能材料与光电催化团队 招收硕士研究生
+1/7
南方科技大学基础免疫与微生物学系招聘科研助理1-2名,从事微生物与免疫学方向研究
+1/7
重庆大学药学院闫海龙课题组拟招收2026年申请考核制博士研究生
+1/5
中国科学院地球化学研究所招科研助理
+1/4
药学专硕一志愿苏大本科苏大寻求B区高校调剂名额
+1/2
招收理论凝聚态物理/纳米光学/量子计算方向博士、硕士研究生/博士后
+1/1
2楼2011-03-26 10:13:36
3楼2011-03-26 11:01:33
4楼2011-03-26 11:52:59
5楼2011-03-26 15:31:09
6楼2011-03-26 16:16:39
7楼2013-12-03 00:35:48
8楼2013-12-03 20:52:55













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