level 1
大婊哥🍄
楼主
Manipulate[
DensityPlot[
1 + Cos[(4 \[Pi]/(\[Lambda]*10^-9)*((d)*10^-3*(Sqrt[
m^2 - n^2*Sqrt[(x^2 + y^2)/(f^2 + x^2 + y^2)]])))], {x, -3,
3}, {y, -3, 3}, PlotPoints -> 200, PlotRange -> All,
ImageSize -> 1.05 {400, 400}, PerformanceGoal -> "Speed"],
Row[{Control@{{\[Lambda], 632.8, "波长\[Lambda](nm)"}, 450, 750,
Appearance -> "Labeled", ImageSize -> Small},
Control@{{d, 0.027, "空气膜厚度d(mm)"}, -0.2, 0.2,
Appearance -> "Labeled", ImageSize -> Small},
Control@{{f, 20, "透镜焦距"}, 10, 40, Appearance -> "Labeled",
ImageSize -> Small},
Control@{{m, 1, "介质2折射率"}, 1, 4, Appearance -> "Labeled",
ImageSize -> Small},
Control@{{n, 1, "介质1折射率"}, 1, 4, Appearance -> "Labeled",
ImageSize -> Small}}], ControlPlacement -> Top]
这个代码跑出来的图不对,但是不知道怎么改了
2024年04月16日 06点04分
1
DensityPlot[
1 + Cos[(4 \[Pi]/(\[Lambda]*10^-9)*((d)*10^-3*(Sqrt[
m^2 - n^2*Sqrt[(x^2 + y^2)/(f^2 + x^2 + y^2)]])))], {x, -3,
3}, {y, -3, 3}, PlotPoints -> 200, PlotRange -> All,
ImageSize -> 1.05 {400, 400}, PerformanceGoal -> "Speed"],
Row[{Control@{{\[Lambda], 632.8, "波长\[Lambda](nm)"}, 450, 750,
Appearance -> "Labeled", ImageSize -> Small},
Control@{{d, 0.027, "空气膜厚度d(mm)"}, -0.2, 0.2,
Appearance -> "Labeled", ImageSize -> Small},
Control@{{f, 20, "透镜焦距"}, 10, 40, Appearance -> "Labeled",
ImageSize -> Small},
Control@{{m, 1, "介质2折射率"}, 1, 4, Appearance -> "Labeled",
ImageSize -> Small},
Control@{{n, 1, "介质1折射率"}, 1, 4, Appearance -> "Labeled",
ImageSize -> Small}}], ControlPlacement -> Top]
这个代码跑出来的图不对,但是不知道怎么改了
