\e
\p19
default(parisize,"16M"); \\ Needed for --graphic=svg
t=plothsizes();
plotinit(0,t[1]-11,t[2]-11)
plotscale(0,0,1000,0,1000);
plotbox(0,500,500)
plotdraw(0)
write("pari0.svg", plotexport("svg", 0))
plotcolor(0,2);
plotmove(0,0,900); plotlines(0,900,0)
plotlines(0,vector(5,k,50*k),vector(5,k,10*k*k))
plotmove(0,243,583); plotcursor(0)
plot(x=-1,1,floor(x))
plot(x=-1,1,-floor(x))
plot(x=0,1,-0.29)
plot(x=-5,5,sin(x))
ploth(x=-5,5,sin(x))
ploth(t=0,2*Pi,[sin(5*t),sin(7*t)])
ploth(t=0,2*Pi,[sin(5*t),sin(7*t)],"Parametric",100)
ploth(t=0,2*Pi,[sin(5*t),sin(7*t)],"Parametric|Recursive",100)
plothraw(vector(501,k,k-1),vector(501,k,(k-1)*(k-1)/500));
plothraw(vector(501,k,k-1),vector(501,k,(k-1)*(k-1)/500),1);
plotpoints(0,225,334)
plotpoints(0,vector(10,k,10*k),vector(10,k,5*k*k))
write("pari1.svg", plothexport("svg", x=-5,5,sin(x)));
write("pari2.svg", plothrawexport("svg", vector(501,k,k-1),vector(501,k,(k-1)*(k-1)/500),1));
plotmove(0,50,50);plotrbox(0,50,50)
plotrline(0,150,100)
plotcolor(0,4);
plotcursor(0)
plotrmove(0,5,5); plotcursor(0)
plotrpoint(0,20,20)
plotmove(0,100,100); plotstring(0,Pi)
plotmove(0,200,200); plotstring(0,"(0,0)")
plotdraw([0,10,10])
write("pari3.svg", plotexport("svg",[0,10,10]))
ploth(x=0,1, x^3,"Splines")
ploth(x=0,1, [x^2,x^3],"Parametric|Splines")
plotinit(1);
plotcopy(0,1, 300,0);
plotclip(1);
plotdraw([1,10,10]);
plotkill(1);

plotinit(1);
plotcopy(0,1, 1/2,0, 1);
plotclip(1);
plotdraw([1,10,10]);
plotkill(1);

plotinit(1);
plotcopy(0,1, 1/2,1/3, 3);
plotclip(1);
plotdraw([1,10,10]);
plotkill(1);

plotinit(1);
plotcopy(0,1, 1/3,1/3, 5);
plotclip(1);
plotdraw([1,10,10]);
plotkill(1);

plotinit(1);
plotcopy(0,1, 1/3,1/3, 7);
plotclip(1);
plotdraw([1,10,10]);

s = plothsizes();
plotinit(1,s[1]-1,s[2]-1); plotscale(1,-3,3,-3,3);
plotrecthraw(1, [[-3.0+6/100*j,-3.0+6/100*j] | j<-[0..100]]);
plotdraw(1);

plotinit(1,s[1]-1,s[2]-1); plotscale(1,-3,3,-3,3);
v=vector(100,j,-3+6/100*j);
plotrecthraw(1, [v,v,apply(sqr,v),apply(x->x^3,v)]);
plotdraw(1);

plotinit(1,s[1]-1,s[2]-1); plotscale(1,-3,3,-3,3);
plotrecthraw(1, [apply(sqr,v),apply(x->x^3,v), apply(cos,v), apply(sin,v)],1);
plotdraw(1);

plotinit(1,s[1]-1,s[2]-1); plotscale(1,-3,3,-3,3);
plotrecthraw(1, [apply(x->exp(I*x),v),apply(x->x*exp(I*x),v)],4096);
plotdraw(1);

/*errors*/
plotinit(-1)
plotinit(100)
plotmove(-1,0,0)
plotmove(100,0,0)
plotcopy(0,1,2,1,1)
plotcopy(0,1,-1,1,1)
plotcopy(0,1,1,2,1)
plotcopy(0,1,1,-1,1)
ploth(x=0,2*Pi,if (x <1, [cos(x),sin(x)], 1),"Parametric")
ploth(t=0,2*Pi,[sin(5*t),sin(7*t)],"Recursive",100)
ploth(x=0,2*Pi,1,"Parametric")
ploth(x=0,1,x,,1)
default(graphcolormap,["white","black","gray","violetred","red","green","blue","gainsboro","purple"])
default(graphcolors,[7,4,9,8,5,6])
ploth(X=-1,9,vector(6,k,sin(X+k)))
