如何在 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);