求助波的干涉程序修改,现在效果不太明显
mathematica吧
全部回复
仅看楼主
level 2
lemon2021ZX 楼主
我现在的动画干涉过程和效果都不太明显,想问下可以怎么去调节呢?
Clear[lbk]"Global`*"[rbk]A1 = 1; w1 = 1; \[lbk]CurlyPhi[rbk]1 = 0; k1 = 1; k2 = 1;Manipulate[lbk]Plot3D[lbk]A1*Cos[lbk]w1*t + \[lbk]CurlyPhi[rbk]1 - k1*Sqrt[lbk]x^2 + y^2[rbk][rbk] + A2*Cos[lbk]w2*t + \[lbk]CurlyPhi[rbk]2 - k2*Sqrt[lbk]x^2 + (y - 5)^2[rbk][rbk], {x, -20, 20}, {y, -20, 20}, AxesLabel -> {"x", "y", "wave1+wave2"}, Mesh -> None, ColorFunction -> "Rainbow", ColorFunctionScaling -> False, PlotPoints -> 150[rbk], {t, 0, 10}, {A2, 1, 3}, {w2, 1, 3}, {\[lbk]CurlyPhi[rbk]2, 0, 3}[rbk]

#求助#
2024年05月19日 01点05分 1
level 9
不太明白什么是“不明显”, 你可以在 ColorFunction 上入手让波峰和波谷区别大一点,比如
Clear["Global`*"]; A1 = 1; w1 = 1; \[CurlyPhi]1 = 0; k1 = 1; k2 = 1; \
Manipulate[
Plot3D[A1*Cos[w1*t + \[CurlyPhi]1 - k1*Sqrt[x^2 + y^2]] +
A2*Cos[w2*t + \[CurlyPhi]2 - k2*Sqrt[x^2 + (y - 5)^2]], {x, -20,
20}, {y, -20, 20}, AxesLabel -> {"x", "y", "wave1+wave2"},
Mesh -> None, ColorFunction -> (Hue[#3] &), PlotPoints -> 150,
PlotRange -> {{-20, 20}, {-20, 20}, {-4, 4}}], {t, 0, 10}, {A2, 1,
3}, {w2, 1, 3}, {\[CurlyPhi]2, 0, 3}]
或者
Clear["Global`*"]; A1 = 1; w1 = 1; \[CurlyPhi]1 = 0; k1 = 1; k2 = 1; \
Manipulate[
Plot3D[A1*Cos[w1*t + \[CurlyPhi]1 - k1*Sqrt[x^2 + y^2]] +
A2*Cos[w2*t + \[CurlyPhi]2 - k2*Sqrt[x^2 + (y - 5)^2]], {x, -20,
20}, {y, -20, 20}, AxesLabel -> {"x", "y", "wave1+wave2"},
Mesh -> None, ColorFunction -> (Blend[{Red, White, Blue}, #3] &),
PlotPoints -> 150,
PlotRange -> {{-20, 20}, {-20, 20}, {-4, 4}}], {t, 0, 10}, {A2, 1,
3}, {w2, 1, 3}, {\[CurlyPhi]2, 0, 3}]
2024年05月20日 14点05分 2
1