| 查看: 1238 | 回复: 9 | |||
[求助]
δ函数或者comb怎么编程
|
| 如何在matlab上编写二维梳状函数 |
回复此楼» 猜你喜欢
271求调剂
已经有28人回复
-
302求调剂
已经有9人回复
-
有没有学校材料专业收跨调(一志愿085410)
已经有14人回复
-
297求调剂
已经有20人回复
-
考研求调剂
已经有8人回复
-
288求调剂，一志愿华南理工大学071005
已经有19人回复
-
人工智能320调剂08工类还有机会吗
已经有15人回复
-
290求调剂
已经有20人回复
-
一志愿沪9，326求生物学调剂
已经有4人回复
-
材料工程085601，270求调剂
已经有41人回复
2楼2013-04-17 08:39:43
3楼2013-04-17 15:45:38
4楼2013-04-17 21:20:42
5楼2013-04-18 17:03:44
6楼2013-04-18 23:15:25
★ ★ ★ ★ ★ ★
华丽的飘过: 金币+6, 3q 2013-04-26 03:52:51
华丽的飘过: 金币+6, 3q 2013-04-26 03:52:51
|
Program main implicit none Real,External :: Gamma Write(*,*) "Gamma=",Gamma(X) !输出Gamma积分结果 End !子函数,计算Gamma积分 REAL Function Gamma(X) implicit none integer i Real X,Y,S,T,U Real :: A(11)=(/0.0000677106,-0.0003442342,0.0015397681,-0.0024467480,0.0109736958,-0.0002109075,0.0742379071,0.0815782188,0.4118402578,0.4227843370,1.0/) IF (X<=0) THEN Write(*,*) "ERR**X<0" Gamma=-1.0 End IF Y=X IF (Y<=1.0) THEN T=1.0/(Y*(Y+1.0)) Y=Y+2.0 ELSE IF (Y<=2.0) THEN T=1.0/Y Y=Y+1.0 ELSE IF (Y<=3.0) THEN T=1.0 ELSE T=1.0 10 IF (Y>3.0) THEN Y=Y-1.0 T=T*Y GOTO 10 END IF ENd IF S=A(1) U=Y-2.0 Do i=1,10 S=S*U+A(i+1) END do S=S*T Gamma=S Return END !子函数结束 !---------------------------------------------------------------- |
» 本帖已获得的红花（最新10朵）
jyd36117楼2013-04-20 16:10:30
8楼2013-04-20 19:52:04
9楼2013-04-20 20:08:03
10楼2013-04-21 09:00:13
