公告:1)网站程序升级:Q2A升级到1.8.6,Wordpress升级到5.7.2
2)修复了头像加载慢与提交问题反应慢等问题
2021-06-16

欢迎来到 Mathematica 问答社区

提问时请贴上文本代码

语法高亮:在编辑器中点击

被禁止的话题:广告破解

请阅读:《提问的智慧》

备用域名:mma.ooo

支持LaTex数学公式
行内公式标识符:\$ 或“$\backslash ($”+“$\backslash )$”,
行间公式标识符:\$\$ 或 “$\backslash [$”+“$\backslash ]$”

社区建议QQ群:365716997

分类

0 投票
110 浏览

本人是第一天编程,是个小笨蛋

 

以下是我写的程序

f = 1
z0 = 2
z = 3
\[Theta] = 4.0
b1 = z0 + z - (z*z0*Sec[\[Theta]])/f
b2 = z0 + z - (z*z0*Cos[\[Theta]])/f
d1 = 1 - (z0*Sec[\[Theta]])/f
d2 = 1 - (z0*Cos[\[Theta]])/f
w0 = 5
\[Lambda] = 6
k = (2 \[Pi])/\[Lambda]
w1 = (2 b1*w0^2)/(2 b1 + I*k*(1 - z/f*Sec[\[Theta]])*w0^2)
w2 = (2 b2*w0^2)/(2 b2 + I*k*(1 - z/f*Cos[\[Theta]])*w0^2)

m = 7
f1 = ((I/2)^(m + 1))*(k*w1*w2*(w1^2 - w2^2)^(m/2))/(b1*b2)^(1/2)
f2 = ((k*w1)/(2 b1))^2 + I*(k*d1)/(2 b1)
f3 = ((k*w2)/(2 b2))^2 + I*(k*d2)/(2 b2)
f4 = (k*w1^2)/(2 b1 (w1^2 - w2^2)^(1/2))
l = 8
f5 = (I*Sign[l] k*w2^2)/(2 b2 (w1^2 - w2^2)^(1/2))
Amplitude[x_, y_] := 
 f1*Exp[-(f2*x^2 + f3*y^2)] HermiteH[l, f4*x^2 + f5*y^2]

请问程序写道这里之后如何画图

分类:绘图 | 用户: osu947691 (11 分)

1个回答

0 投票

由于函数结果在复数域,建议只取实部、虚部、模,比如下面取模的例子

Plot3D[Abs[Amplitude[x, y]], {x, 0, 1}, {y, 0, 1}]

另外,自定义函数的命名,建议以小写字母开始,比如 amplitude

用户: 野鹤 (5.0k 分)
...