I want to join two animations, but displayed subsequently, not simultaniously, As far as I got, I have:
plot2 := plots[animate](plot, [tau, z = -(1/2)*J .. (1/2)*J, color = red, legend = shear*stress], h = 1 .. 1+1/sqrt(3));
plot3 := plots[animate](plot, [tau, z = -(1/2)*h .. (1/2)*h, color = red, legend = shear*stress], h = 0 .. 1);
display([plot2, plot3], insequence = true);
my functions are difined as
tau := h-1+(4/3)*(1/sqrt(3)-h+1)*sqrt(3)*(sqrt(3)*((1/4)*J^2-z^2)/(J^2*b))
tau := (4/3)*sqrt(3)*((1/4)*h^2-z^2)/(h^2*b)
Both plots work individually, however, they have successive ranges. I wondered if I could make 1 plot, with an if statement wether to plot tau or tau depending on where the animation is in the range h. Does anyone know about a solution?