> # Prostor

> f:=(x,y)->sin(x)*y;

f := proc (x, y) options operator, arrow; sin(x)*y end proc

> plot3d(f(x,y),x=0..4*Pi,y=0..5);
# 3dgraf - parametry - funkce, meze x, meze y

[Plot]

> g:=(x,y,t)->sin(x)*cos(y)*t;

g := proc (x, y, t) options operator, arrow; sin(x)*cos(y)*t end proc

> with(plots):

Warning, the name changecoords has been redefined

> animate3d(g(x,y,t),x=-Pi..Pi, y=-Pi..Pi,t=1..2);
# 3danimace - funkce, meze x, meze y, parametr t

[Plot]

> # Implicitní funkce

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

h := 1/5*x^2-1/4*y^2+1/5*z^2 = 4

> implicitplot3d(h,x=-5..5,y=-5..5,z=-5..5);
# Implicitní funkce - funkce, meze x, y, z - pozor na meze - jako u 2d

[Plot]

> # - Parametrické zadání

> plot3d([1+8*t, 2+12*t, 16*t],t=0..1,y=0..1,axes=boxed);

[Plot]

>

>

>

> # -  Jiné typy souřadnic - sférické, válcové

> plot3d(sin(x)+sin(y),x=0..2*Pi, y=0..2*Pi, axes=boxed);
# boxed -  standartní x,y,z souřadnice


[Plot]

> plot3d(x,alfa=0..Pi,x=-5..5, coords=cylindrical);
# Cylindrické souřadnice

r - vzdálenost od počátku souřadnic ( velikost průvodiče)

? – úhel měřený v rovině xy od osy x (průmět průvodiče do podstavy)

z – výška zobrazovaného bodu

- první je x-sová, která rotuje o úhel alfa

[Plot]

>

> plot3d(1,t=0..2*Pi,p=0..Pi,coords=spherical);
# Sférické souřadnice

r - vzdálenost od počátku souřadnic ( velikost průvodiče)

? – úhel měřený v rovině xy od osy x (průmět průvodiče do podstavy)

? – úhel jako odchylka průvodiče a osy z

- zadává se poloměr, úhel, úhel

[Plot]

> # Více do jednoho

> with(plots):
f:=plot3d([1+8*t, 2+12*t, 16*t],t=0..1,y=0..1,color=red):

> g:=plot3d([2+8*t, 4+12*t, 16*t],t=0..1,y=0..1,color=red):

> display({f,g});

[Plot]

> # - Úkol

> # - nakreslete řezy nekonečného kužele tak, aby vznikla elipsa, parabola, hyperbola

> # - nakreslete dvě mimoběžné přímky

> # - nakreslete vzájemnou poloho dvou libovolých útvarů