版块导航: 正在加载中...

登录注册

应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜

返回列表

jyd3611

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 1.8
帖子: 33
在线: 10小时
虫号: 2059571
注册: 2012-10-14
性别: GG
专业: 光学

[求助] δ函数或者comb怎么编程

如何在matlab上编写二维梳状函数

回复此楼

» 猜你喜欢

计算机、0854电子信息（085401-058412）调剂已经有4人回复
基金申报已经有3人回复
国自然申请面上模板最新2026版出了吗？已经有9人回复
溴的反应液脱色已经有6人回复
纳米粒子粒径的测量已经有7人回复
常年博士招收(双一流，工科) 已经有4人回复
推荐一本书已经有10人回复
参与限项已经有5人回复
有没有人能给点建议已经有5人回复
假如你的研究生提出不合理要求已经有12人回复

1楼 2013-04-16 20:46:21

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

ifelseend

捐助贵宾 (著名写手)

小蜜蜂

应助: 32 (小学生)
金币: 280.2
散金: 1839
红花: 17
帖子: 1589
在线: 212.9小时
虫号: 1792988
注册: 2012-05-03
专业: 原子和分子物理

【答案】应助回帖

感谢参与，应助指数 +1

你考虑一下，能不能把 $\delta$ 函数化简掉。就是继续推导推导。

赞一下

回复此楼

always_move_forward,_step_by_step.

2楼2013-04-17 08:39:43

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

jyd3611

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 1.8
帖子: 33
在线: 10小时
虫号: 2059571
注册: 2012-10-14
性别: GG
专业: 光学

引用回帖:

2楼: Originally posted by ifelseend at 2013-04-17 08:39:43
你考虑一下，能不能把\delta函数化简掉。就是继续推导推导。

变成e指数的傅里叶变换形式吗？

赞一下

回复此楼

3楼2013-04-17 15:45:38

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

ifelseend

捐助贵宾 (著名写手)

小蜜蜂

应助: 32 (小学生)
金币: 280.2
散金: 1839
红花: 17
帖子: 1589
在线: 212.9小时
虫号: 1792988
注册: 2012-05-03
专业: 原子和分子物理

引用回帖:

3楼: Originally posted by jyd3611 at 2013-04-17 15:45:38
变成e指数的傅里叶变换形式吗？...

具体的吧，说不好，只是说，你看看这样是不是可以看看可以这样做。有的时候 $\delta$ 函数在中间部分。也许你变化一下就没有了。比如时域变到频域什么的。

赞一下

回复此楼

always_move_forward,_step_by_step.

4楼2013-04-17 21:20:42

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

Hades_h

金虫 (小有名气)

应助: 0 (幼儿园)
金币: 962.8
红花: 1
帖子: 235
在线: 68.5小时
虫号: 2212832
注册: 2012-12-29
性别: GG
专业: 光学

Fortran编过，matlab不会。

赞一下

回复此楼

坚持到底！

5楼2013-04-18 17:03:44

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

jyd3611

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 1.8
帖子: 33
在线: 10小时
虫号: 2059571
注册: 2012-10-14
性别: GG
专业: 光学

引用回帖:

5楼: Originally posted by Hades_h at 2013-04-18 17:03:44
Fortran编过，matlab不会。

能把你变过的代码贴上吗，我参考下，谢谢了！！！

赞一下

回复此楼

6楼2013-04-18 23:15:25

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

Hades_h

金虫 (小有名气)

应助: 0 (幼儿园)
金币: 962.8
红花: 1
帖子: 235
在线: 68.5小时
虫号: 2212832
注册: 2012-12-29
性别: GG
专业: 光学

★ ★ ★ ★ ★ ★
华丽的飘过: 金币+6, 3q 2013-04-26 03:52:51

引用回帖:

6楼: Originally posted by jyd3611 at 2013-04-18 23:15:25
能把你变过的代码贴上吗，我参考下，谢谢了！！！...

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

!子函数结束

!----------------------------------------------------------------

赞一下(1人)

回复此楼

» 本帖已获得的红花（最新10朵）

jyd3611

坚持到底！

7楼2013-04-20 16:10:30

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

jyd3611

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 1.8
帖子: 33
在线: 10小时
虫号: 2059571
注册: 2012-10-14
性别: GG
专业: 光学

送红花一朵

引用回帖:

7楼: Originally posted by Hades_h at 2013-04-20 16:10:30
Program main

implicit none

Real,External :: Gamma

Write(*,*) "Gamma=",Gamma(X) !输出Gamma积分结果

End

!子函数,计算Gamma积分

REAL Function Gamma(X)

implicit none

...

谢谢！！！

回复此楼

8楼2013-04-20 19:52:04

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖