如何在 Maple 中修复这两个有角度的边界
How to fix these two angled boundaries in Maple
我在 Maple 上完成了这个动画。我希望在一个点相遇的两侧是固定的。其他两个直边的方式相同。在 Maple 中是否可行,如果不可行,是否可以在 MatLab 中实现?如何实现?
with(plots):
animate(plot3d,[sin(Pi*(t-x))*sin(Pi*y)*Heaviside(t-x)-sin(Pi*(t+x))*sin(Pi*y)*Heaviside(t+x),x=0..4,y=piecewise(x>=0 and x<2,1/2-x/4,0)..piecewise(x>=0 and x<2,1/2+x/4,1)],t=-2*Pi..2*Pi, frames=90);
非常感谢。
原文,
with(plots):
animate(plot3d,
[sin(Pi*(t-x))*sin(Pi*y)*Heaviside(t-x)
-sin(Pi*(t+x))*sin(Pi*y)*Heaviside(t+x),
x=0..4,
y=piecewise(x>=0 and x<2,1/2-x/4,0)
..piecewise(x>=0 and x<2,1/2+x/4,1)],
t=-2*Pi..2*Pi, frames=90);
这就是你想要的吗?
with(plots):
adjustor:=sin(Pi*piecewise(x>=0 and x<2,(y-1/2)/(x/2)+1/2,y)):
animate(plot3d,
[sin(Pi*(t-x))*adjustor*Heaviside(t-x)
-sin(Pi*(t+x))*adjustor*Heaviside(t+x),
x=0..4,
y=piecewise(x>=0 and x<2,1/2-x/4,0)
..piecewise(x>=0 and x<2,1/2+x/4,1)],
t=-2*Pi..2*Pi, frames=45);
我在 Maple 上完成了这个动画。我希望在一个点相遇的两侧是固定的。其他两个直边的方式相同。在 Maple 中是否可行,如果不可行,是否可以在 MatLab 中实现?如何实现?
with(plots):
animate(plot3d,[sin(Pi*(t-x))*sin(Pi*y)*Heaviside(t-x)-sin(Pi*(t+x))*sin(Pi*y)*Heaviside(t+x),x=0..4,y=piecewise(x>=0 and x<2,1/2-x/4,0)..piecewise(x>=0 and x<2,1/2+x/4,1)],t=-2*Pi..2*Pi, frames=90);
非常感谢。
原文,
with(plots):
animate(plot3d,
[sin(Pi*(t-x))*sin(Pi*y)*Heaviside(t-x)
-sin(Pi*(t+x))*sin(Pi*y)*Heaviside(t+x),
x=0..4,
y=piecewise(x>=0 and x<2,1/2-x/4,0)
..piecewise(x>=0 and x<2,1/2+x/4,1)],
t=-2*Pi..2*Pi, frames=90);
这就是你想要的吗?
with(plots):
adjustor:=sin(Pi*piecewise(x>=0 and x<2,(y-1/2)/(x/2)+1/2,y)):
animate(plot3d,
[sin(Pi*(t-x))*adjustor*Heaviside(t-x)
-sin(Pi*(t+x))*adjustor*Heaviside(t+x),
x=0..4,
y=piecewise(x>=0 and x<2,1/2-x/4,0)
..piecewise(x>=0 and x<2,1/2+x/4,1)],
t=-2*Pi..2*Pi, frames=45);