| 查看: 1957 | 回复: 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 ] |
» 猜你喜欢
0703求调剂383分
已经有9人回复
求调剂
已经有8人回复
化学调剂求助
已经有7人回复
一志愿哈尔滨工业大学085600英一数二337分求调剂
已经有12人回复
085600,320分求调剂
已经有16人回复
一志愿211,化学学硕,310分,本科重点双非,求调剂
已经有12人回复
0703化学调剂325分
已经有10人回复
085600,321分求调剂
已经有12人回复
化学357分,考研调剂
已经有12人回复
一志愿南昌大学,085600,344分求调剂
已经有8人回复
» 本主题相关价值贴推荐,对您同样有帮助:
FORTRAN新手 求助主程序循环问题
已经有10人回复
fortran中到底该如何比较两个实数是否相等
已经有8人回复
怎能让fortran调用c的fopen和fileio函数
已经有3人回复
Fortran中子程序与函数的区别
已经有7人回复
如何改变fortran的浮点精度
已经有28人回复
【求助】如何写FORTRAN程序实现求平均最近邻距离
已经有34人回复
» 抢金币啦!回帖就可以得到:
(重庆)长江师范学院老师招收材料与化工专硕调剂生,待遇优厚
+3/216
汕头大学胡良胜课题组招收化学、化工、材料方向调剂研究生3名
+1/182
江西科技师范大学 材料与能源招收调剂研究生
+1/87
【调剂信息】山东科技大学材料助剂研究团队招收调剂硕士研究生
+1/86
高分子材料 调剂——材料-化学方向优先
+1/69
武汉纺织大学学硕调剂
+2/50
河南工业大学化学化工学院 2026 年硕士调剂正在进行!
+1/35
华南师范大学大分子体系多尺度模拟与实验研究团队招收2026年考研调剂生
+1/20
中科大科学岛分院2026年工程博士申请考核制-博士招生,4月10日截止
+1/10
Top-88悉尼科技大学数据科学/AI 招收2027年入学 校奖 博士生1到2名(国际和本地学生)
+1/6
上海应用技术大学化工学院招收调剂
+1/5
江西科技师范大学敖海勇教授课题组招收理学考研调剂生
+1/5
滁州学院0860生物与医药专业调剂57人
+1/5
王金凤教授团队
+1/5
湖北师范大学招调剂啦
+1/3
诚邀具备数据科学、计算机科学或化学等相关知识的同学加入团队
+1/3
0854,0858调剂招生
+1/3
齐齐哈尔大学化学与化学工程学院招收专硕调剂
+1/2
点进来,有惊喜,保正经
+1/1
广东省五邑大学MOFs催化功能材料课题组招收化学/材料背景调剂生
+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 ]
