公告：本站正式转型为非交互式静态网站！ 转型：本站将通过笔记和博客的形式继续为大家服务，关于 Mathematica 问答服务请移步至QQ群：365716997。 联系：如有问题请联系QQ群管理员，或发送邮件至：lixuan.xyz@qq.com。 感谢：最后非常感谢大家多年来的支持与帮助！ 参考：《互联网跟帖评论服务管理规定》《中华人民共和国网络安全法》《网络信息内容生态治理规定》《互联网用户账号信息管理规定》
—— 2022-11-27
欢迎来到 Mathematica 问答社区
● 提问时请贴上文本代码
● 语法高亮：在编辑器中点击
● 被禁止的话题：广告，破解
● 请阅读：《提问的智慧》
● 备用域名：mma.ooo
● 支持LaTex数学公式： 行内公式标识符：\$ 或“$\backslash ($”+“$\backslash )$”， 行间公式标识符：\$\$ 或 “$\backslash [$”+“$\backslash ]$”
● 社区建议QQ群：365716997
538 问题
531 回答
1.5k 留言
229 用户
本人是第一天编程，是个小笨蛋
以下是我写的程序
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]
请问程序写道这里之后如何画图
由于函数结果在复数域，建议只取实部、虚部、模，比如下面取模的例子
Plot3D[Abs[Amplitude[x, y]], {x, 0, 1}, {y, 0, 1}]
另外，自定义函数的命名，建议以小写字母开始，比如 amplitude。
