matlab菲涅尔衍射光强分布,求助!!!用颜色表示的菲涅尔衍射的光强分布图

该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

a = 0.001

x0 = 0

y0 = 0

z0 = -0.5

z = 0.1

\[Lambda] = 5*10^-7

k = 2*10^6

A = 1000

f[\[Xi]_, \[Eta]_, x_,

y_] := ((-(x0/Sqrt[z0^2 + x0^2 + y0^2]) - x/Sqrt[

z^2 + x^2 + y^2]) \[Xi] + (-(y0/Sqrt[z0^2 + x0^2 + y0^2]) - y/

Sqrt[z^2 + x^2 + y^2]) \[Eta] +

1/2*((1/Sqrt[z0^2 + x0^2 + y0^2] + 1/Sqrt[

z^2 + x^2 + y^2])*(\[Xi]^2 + \[Eta]^2) - (-(x0/Sqrt[

z0^2 + x0^2 + y0^2])*\[Xi] + -(y0/Sqrt[

z0^2 + x0^2 + y0^2])*\[Eta])^2/Sqrt[

z0^2 + x0^2 +

y0^2] - (x/Sqrt[z^2 + x^2 + y^2]*\[Xi] +

y/Sqrt[z^2 + x^2 + y^2]*\[Eta])^2/Sqrt[

z^2 + x^2 + y^2]))*(-I*A)/\[Lambda]*

Exp[I*k (Sqrt[z0^2 + x0^2 + y0^2] + Sqrt[z^2 + x^2 + y^2])]/(

Sqrt[z0^2 + x0^2 + y0^2] + Sqrt[z^2 + x^2 + y^2])

DensityPlot[

Re[Integrate[

Exp[I*k*f[\[Xi], \[Eta], x]], {\[Xi], -a, a}, {\[Eta], -a,

a}]]^2, {x, 0, 0.1}, {y, 0, 0.1},

ColorFunction -> "BlueGreenYellow"]

这是我的代码,但是一直报错,求大佬看看有什么问题

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值