Pintoja
to 7.2.02
> restart:
Warning, the name changecoords has been redefined
>
with(plots):setoptions3d(axes=boxed,orientation=[-30,50]):
zoom:=(f,x0,y0,w)->plot3d(f(x,y),x=x0-w/2..x0+w/2,y=y0-w/2..y0+w/2,axes=BOX):
>
#read("c:\\opetus\\maple\\v201.mpl"):
#read("/home/apiola/opetus/peruskurssi/v2-3/201/maple/v201.mpl");
#read("/p/edu/mat-1.414/maple/v201.mpl"):with(plots):
Aluksi satulapinta
> plot3d(x*y,x=-3..3,y=-3..3);
> contourplot(x*y,x=-3..3,y=-3..3,grid=[25,25],contours=[-2,-1,1,2],filled=true);
> korkeusk:=(x,c)->c/x;
> plot([seq(korkeusk(x,c),c=[-2,-1,1,2])],x=-3..3,y=-3..3,color=[green,brown,blue,red]);
> pystyy:=seq(x*y,y=[-2,1,0,1,2]);pystyx:=seq(x*y,x=[-2,1,0,1,2]);
> plot([pystyy],x=-3..3,z=-3..3);
Toinen esimerkki
> restart:with(plots):setoptions3d(axes=boxed,orientation=[-30,50]):
Warning, the name changecoords has been redefined
> f:=(x,y)->x/(x^2+y^2);
>
plot3d(f(x,y),x=-2..2,y=-2..2,view=[-2..2,-2..2,-10..10]);
> contourplot(f(x,y),x=-2..2,y=-2..2,contours=[1,0.5]);
Tässäpä contourplot meni harhaan! (versiossa 6 )
Tämä kuva on oikein (versio 7). Laskenta pisteitä lisäämällä saataisiin parempi kuva.
Piirretään ympyräalueen päällä. Oikeita korkeuskäyriä näkyy kuvassa.
>
plot3d(f(x,y),x=-2..2,y=-sqrt(4-x^2)..sqrt(4-x^2),view=[-2..2,-2..2,-8..20],style=patchcontour);
Lasketaan korkeuskäyrät napakoordinaatistossa.(taululla).
> x:=(1/C)*cos(Theta)^2; y:=(1/C)*cos(Theta)*sin(Theta);
> C:=1:plot([x,y,Theta=0..2*Pi],'x'=-2..2,'y'=-2..2,scaling=constrained);
>
C:=1: kuva1:=plot([x,y,Theta=0..2*Pi],'x'=-2..2,'y'=-2..2,scaling=constrained,color=blue):
C:=2: kuva2:=plot([x,y,Theta=0..2*Pi],'x'=-2..2,'y'=-2..2,scaling=constrained,color=green):
C:=0.5: kuva3:=plot([x,y,Theta=0..2*Pi],'x'=-2..2,'y'=-2..2,scaling=constrained,color=red):
> display(kuva1,kuva2,kuva3);
>