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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » mathematica中如何求卷积，附件中mathematica程序该怎么写，我写的结果不对。
21/1返回列表
查看: 1916  |  回复: 1
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

lingyigewo

银虫 (小有名气)

[求助] mathematica中如何求卷积，附件中mathematica程序该怎么写，我写的结果不对。

Matlab 程序中的surf函数对应在mathematica里面的那个命令来画图？
附件中是计算的式子表达形式，我在这里对于卷积处理这一块儿不会，请帮助。画出来的结果不对啊，求助，谢谢先。
mathematica程序：
a = b = 2.5; L = 60; d = 20; c = 0.5;
A = (c/d)^2;
t = ((-a^3  b/4)^3 + (-b^3  a/4)^3 + 2 a b L^2 - 3 a^3 b m ^2 -
       3 a b^3 n^2)/2/L^4/A;
mm = Table[t, {m, -4, 4}, {n, -4, 4}];
Print[mm];
x = 2 m a/d;
y = 2 n b/d;
Ea = (HeavisideTheta[x + c/d] -
     HeavisideTheta[x - c/d]) (HeavisideTheta[y + c/d] -
     HeavisideTheta[y - c/d]);
Print[ListConvolve[Ea, t], {m, -4, 4}, {n, -4, 4}]
nn = Table[{x, y, t}, {m, -4, 4}, {n, -4, 4}];
Print[nn]
ListPointPlot3D[nn]
回复此楼

» 本帖附件资源列表

  • 欢迎监督和反馈：小木虫仅提供交流平台，不对该内容负责。
    本内容由用户自主发布，如果其内容涉及到知识产权问题，其责任在于用户本人，如对版权有异议，请联系邮箱：xiaomuchong@tal.com
  • 附件 1 : 计算式子.doc
    • 2013-11-06 17:11:28, 201.23 K

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2013-11-06 17:12:27
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wanghan838

金虫 (正式写手)

【答案】应助回帖

感谢参与，应助指数 +1
你附件里的计算公式的双重求和为什么在程序里没有了？
赞一下 回复此楼
2楼2013-11-07 11:07:26
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 lingyigewo 的主题更新
21/1返回列表
普通表情 龙 兔 虎 猫
信息提示
关闭
请填处理意见
关闭