h2:=plot(subs(TR=0.8,PR),VR=0.4..4.0,color=yellow):h2;
h3:=plot(subs(TR=1.0,PR),VR=0.4..4.0,color=green):h3;
h4:=plot(subs(TR=1.2,PR),VR=0.4..4.0,color=red):h4;
display({h1,h2,h3,h4});
::
ANIMATION MULTIPLOT ::
with(plots):
plot(cos(theta),theta=0..1/2*Pi);
p1:=plot(subs(A=1,f=2,y),theta=0..1/2*Pi,color=blue,legend="f=2"):p1;
p2:=plot(subs(A=1,f=4,y),theta=0..1/2*Pi,color=green,legend="f=4"):p2;
p3:=plot(subs(A=1,f=6,y),theta=0..1/2*Pi,color=yellow,legend="f=6"):p3;
p4:=plot(subs(A=1,f=8,y),theta=0..1/2*Pi,color=cyan,legend="f=8"):p4;
display({p1,p2,p3,p4});
animate(subs(A=8,y),theta=0..1/2*Pi,f=2..8);
:: MY ARTISTIC SKILLS ::
plot3d((1.3)^x*sec(y),x=-2..2*Pi,y=-2..Pi,coords=spherical,style=patch);
animate( [u*csc(t),u*tan(t),t=-Pi..Pi],u=1..9,view=[-8..8,-8..8]);
:: JUNCTION ::
animate3d((1.3)^x*cos(u*y),x=-5..2*Pi,y=0..6.32,u=-1..8,coords=cylindrical);
:: MILLENIUM SOUVENIOR ::
