求助,控件问题
mathematica吧
全部回复
仅看楼主
level 1
大婊哥🍄 楼主
Manipulate[
DensityPlot[
1 + Cos[(4 \[Pi]/(\[Lambda]*10^-9)*((d + (x - r)*
Sin[(\[Pi]*\[Theta])/180])*10^-3*
f/Sqrt[x^2 + y^2 + f^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.15, "空气膜厚度d(mm)"}, -0.2, 0.2,
Appearance -> "Labeled",
ImageSize -> Small},Control@{{f, 20, "透镜焦距"}, 10, 40,
Appearance -> "Labeled",
ImageSize -> Small},Control@{{r, 10, "反射镜半径(mm)"}, 0, 20,
Appearance -> "Labeled",
ImageSize -> Small},Control@{{\[Theta], 0.63, "夹角\[Theta]"}, -1,
1, 0.01, Appearance -> "Labeled", ImageSize -> Small}}],
ControlPlacement -> Top]
这个代码跑出来的
的控件旁边有个.3
2024年03月14日 12点03分 1
level 1
大婊哥🍄 楼主
2024年03月14日 12点03分 2
level 1
大婊哥🍄 楼主
请问怎么把这个.3去掉
2024年03月14日 12点03分 3
level 9
Manipulate[
DensityPlot[
1 + Cos[(4 \[Pi]/(\[Lambda]*10^-9)*((d + (x - r)*
Sin[(\[Pi]*\[Theta])/180])*10^-3*
f/Sqrt[x^2 + y^2 + f^2]))], {x, -3, 3}, {y, -3, 3},
PlotPoints -> 200, ImageSize -> 1.05 {400, 400}, PlotRange -> All,
PerformanceGoal -> "Speed"],
Row[{Control@{{\[Lambda], 632.8, "波长\[Lambda](nm)"}, 450, 750,
Appearance -> "Labeled", ImageSize -> Small},
Control@{{d, -0.15, "空气膜厚度d(mm)"}, -0.2, 0.2,
Appearance -> "Labeled", ImageSize -> Small},
Control@{{f, 20, "透镜焦距"}, 10, 40, Appearance -> "Labeled",
ImageSize -> Small},
Control@{{r, 10, "反射镜半径(mm)"}, 0, 20, Appearance -> "Labeled",
ImageSize -> Small},
Control@{{\[Theta], 0.63, "夹角\[Theta]"}, -1, 1, 0.01,
Appearance -> "Labeled", ImageSize -> Small}}],
ControlPlacement -> Top]
问题的原因是Control末尾藏了中文逗号
2024年03月15日 07点03分 4
谢谢大佬
2024年04月16日 06点04分
level 3
哥们你把符号输成中文的操作,和你想画的东西像极了我一个同学
2024年04月16日 16点04分 5
空气膜厚度d(mm),透镜焦距,反射镜半径(mm)三个控件的后面的逗号是中文的
2024年04月16日 16点04分
1