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
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]
#求助#


