http://vyuka.safarikovi.org/  

Ukázka některých ploch

>   with(plots):

Kulová plocha:

>   x^2+y^2+z^2-r^2=0;

x^2+y^2+z^2-r^2 = 0

>   f:=x^2+y^2+z^2-25;

f := x^2+y^2+z^2-25

>   implicitplot3d(f,x=-6..6,y=-6..6,z=-6..6,grid=[20,20,20],style=hidden,axes=normal,scaling=constrained);

[Maple Plot]

Trojosý elipsoid:

>   x^2/a^2+y^2/b^2+z^2/c^2-1=0;

x^2/a^2+y^2/b^2+z^2/c^2-1 = 0

>   f1:=x^2/3^2+y^2/4^2+z^2/2^2-1;

f1 := 1/9*x^2+1/16*y^2+1/4*z^2-1

>   implicitplot3d(f1,x=-4..4,y=-5..5,z=-4..4,grid=[20,20,20],style=hidden,axes=normal,scaling=constrained);

[Maple Plot]

Jednodílný hyperboloid:

>   x^2/a^2+y^2/b^2-z^2/c^2-1=0;

x^2/a^2+y^2/b^2-z^2/c^2-1 = 0

>   f2:=x^2/2^2+y^2/2^2-z^2/3^2-1;

f2 := 1/4*x^2+1/4*y^2-1/9*z^2-1

>   implicitplot3d(f2,x=-4..4,y=-4..4,z=-4..4,grid=[20,20,20],style=hidden,axes=normal,scaling=constrained);

[Maple Plot]

Dvojdílný hyperboloid:

>   x^2/a^2+y^2/b^2-z^2/c^2+1=0;

x^2/a^2+y^2/b^2-z^2/c^2+1 = 0

>   f3:=x^2/3^2+y^2/3^2-z^2/2^2+1;

f3 := 1/9*x^2+1/9*y^2-1/4*z^2+1

>   implicitplot3d(f3,x=-10..10,y=-10..10,z=-10..10,grid=[20,20,20],style=hidden,axes=normal,scaling=constrained);

[Maple Plot]

Kužel:

>   x^2/a^2+y^2/b^2-z^2/c^2=0;

x^2/a^2+y^2/b^2-z^2/c^2 = 0

>   f4:=x^2/2^2+y^2/2^2-z^2/4^2;

f4 := 1/4*x^2+1/4*y^2-1/16*z^2

>   implicitplot3d(f4,x=-10..10,y=-10..10,z=-10..10,grid=[40,40,40],style=hidden,axes=normal,scaling=constrained);

[Maple Plot]

Eliptický paraboloid:

>   x^2/p^2+y^2/q^2-2*z=0;

x^2/p^2+y^2/q^2-2*z = 0

>   f5:=x^2/2^2+y^2/3^2-2*z;

f5 := 1/4*x^2+1/9*y^2-2*z

>   implicitplot3d(f5,x=-10..10,y=-10..10,z=-10..10,grid=[20,20,20],style=hidden,axes=normal,scaling=constrained);

[Maple Plot]

[Maple Plot]

Hyperbolický paraboloid:

>   x^2/p^2-y^2/q^2+2*z=0;

x^2/p^2-y^2/q^2+2*z = 0

>   f6:=x^2/2^2-y^2/3^2+2*z;

f6 := 1/4*x^2-1/9*y^2+2*z

>   implicitplot3d(f6,x=-10..10,y=-10..10,z=-10..10,grid=[20,20,20],style=hidden,axes=normal,scaling=constrained);

[Maple Plot]

Eliptická válcová plocha:

>   x^2/a^2+y^2/b^2-1=0;

x^2/a^2+y^2/b^2-1 = 0

>   f7:=x^2/4^2+y^2/5^2-1;

f7 := 1/16*x^2+1/25*y^2-1

>   implicitplot3d(f7,x=-10..10,y=-10..10,z=-10..10,grid=[20,20,20],style=hidden,axes=normal,scaling=constrained);

[Maple Plot]

Hyperbolická válcová plocha:

>   x^2/a^2-y^2/b^2-1=0;

x^2/a^2-y^2/b^2-1 = 0

>   f8:=x^2/4^2-y^2/5^2-1;

f8 := 1/16*x^2-1/25*y^2-1

>   implicitplot3d(f8,x=-10..10,y=-10..10,z=-10..10,grid=[20,20,20],style=hidden,axes=normal,scaling=constrained);

[Maple Plot]

Parabolická válcová plocha:

>   x^2/a^2-y=0;

x^2/a^2-y = 0

>   f9:=x^2/3^2-y;

f9 := 1/9*x^2-y

>   implicitplot3d(f9,x=-10..10,y=-10..10,z=-10..10,grid=[20,20,20],style=hidden,axes=normal,scaling=constrained);

[Maple Plot]

Plocha 10

>   1/(x^2+y^2)-z=0;

1/(x^2+y^2)-z = 0

>   f10:=1/(x^2+y^2)-z;

f10 := 1/(x^2+y^2)-z

>   implicitplot3d(f10,x=-4..4,y=-4..4,z=-10..10,grid=[30,30,30],style=hidden,axes=normal);

[Maple Plot]

up
2007 - 2011 © Jan Šafařík