with(plots) :
plot([x,x — 3,2,4],x = 0..8,j> = 0..5, thickness =3, legend = ["y=x" "y=x-3","y=2';"y=4"]);
y=x
y=x-3
y=2
y^
implicitplot{ [x = O, x = 1, y = 2-;c,_y = 3-jc],jc =-0.5 ..1.5, j =-0.5
..3.5, thickness = 3 , /egenrf = ["x=0'; "x=ľ; "y=2x',' "y=3x"|, color = [ blue, green, magenta, cyan ]);
1 i ■ i  ' i ■ i
0,2 0,40,6 0,8 lb 1,2 1,4
x=0
x=l
y=2x
y=3x
plot{[x,x \,x=-l ..2,y=-l ..2, thickness = 3, legend = [ "y=x" "y=xA2']);
y=K ^-^ y=xT,2
implicitplotl   y = 0,y = sqrt — \,x = y,x = sqrt  —
,x=-0.5
..1.5,.y =-0.5 ..1.5, thickness = 3 , color = [blue,green, magenta, cyan ], legend = ["y=0'; "y=sqrt(Pi/2)',' "x=y';"y=sqr1(Pi/2)"]);
1,5-		1/
1,0-0,5-		
0,5                /C /            -0,5 J	0,5                      1,0	1,5
y=0 -------y=sqrt(Pi/2)
^7
y=sqrt(Pi/2)
implicitploty [x = y, x = 4-y  — 3 J, x =-3 ..5,y =-2 ..2, thickness = 3 , color = [blue, cyan ], legend = ["x=yA2','"x=4yA2-3']);
%^2 --------^Af-2-3
implicitplot3d[[z = x  +y ,x + y = l,x = 0,y = 0,z = 0\,x = 0..2,y = O ..2, z = O ..2, numpoints = 1000Q color = [blue, green, grey, grey, grey]);
implicitplot3d\[z = tT + y ,x + y = l , z = Oj, jc = O..2,y = O..2,z = O ..2, numpoints = 1000Q color = [blue, green, grey ]);
implicitplot{[x  + y =l,x   +y  — 4,y — \x\\,x—-2..2,y—-2 ..2, thickness = 3 , color = [blue, cyan, green ], legend = ["xA2+yA2=r; "xA2+yA2=4'; "y=|x|'*|, numpoints = 35000);
^2+7^2= 1 ------   x^2+y^2^ -------y=|x|
implicitplot[[x  + y =4-x,x  + y = %-x,y=x,y=2-x\,x = Q..%,y =-4.A, thickness = 3 , color = [blue, cyan, violet, orange ], legend = ["xA2+yA2=4x',' "xA2+yA2=8x',' "y=x'; "y=2x'], numpoints = 35000J;
irl+fl^x
I^2+yA2=Sx
y=x
y=2x
implicitplot{[x  + y^ = l,jc   +y =x,x = 0,x= l\,x =-l ..l,y=-1.5 ..1.5, thickness = 3 , color = [blue, cyan, magenta, orange ], legend = ["xA2+yA2=l',' "xA2+yA2=x',' "x=0'; "x=ľ], numpoints = 35000);
^2+3^2=1    -----^2+^2^%-------x=0 -------k=1
implicitplot3d\[z = iC + y ,z = 2 — [x  + y )\,x =-2..2,y =-2..2,i =-1 ..3, numpoints — 1000Q color — [green, blue]);
ploty [x ,2 — x \,x=-2 ..2,y =-1 ..3, thickness = 3, color = [green, blue]);
implicitplot3d{ [x  + y  + žt = l,x = 0,x=y,z = 0\,x = 0..l.2,y = 0 .. 1.2, z = O.. 1.2, numpoints = 1OOOQ co/or = [ blue, grey, green, grey]);