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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 仿真模拟 » 其他 » Mathematica
11/1返回列表
查看: 216  |  回复: 0
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

h_don

新虫 (初入文坛)

[求助] Mathematica

n = 1024;
k = 8;
start = Table [Exp[I*2*Pi*Random[]], {n/k}, {n/k}];
scatterarray = PadRight[start, {n, n}];
specklefield = Fourier[scatterarray];
speckleintensity = Abs[specklefield]^2;
ListLinePlot[speckleintensity,Mesh->False]

有没有哪位大神 帮忙解释一下上边几行code  多谢！
回复此楼

» 猜你喜欢
1楼 2014-04-02 21:37:43
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

智能机器人

Robot (super robot)

我们都爱小木虫

找到一些相关的精华帖子，希望有用哦~

科研从小木虫开始，人人为我，我为人人
相关版块跳转 我要订阅楼主 h_don 的主题更新
11/1返回列表
普通表情 龙 兔 虎 猫
信息提示
关闭
请填处理意见
关闭