1225.sagews

x, y, z = var('x, y, z')

# Prikažimo kuglu radijusa 2 oko ishodišta
# x^2 + y^2 + z^2 - 4 == 0
implicit_plot3d(x^2 + y^2 + z^2 - 4, (x,-2, 2), (y,-2, 2), (z,-2, 2))
#               \___jednadžba_____/   \______granice crtanja________/

# Dva valjka - jedan u drugom 
implicit_plot3d(x^4 + 2*x^2*y^2 + x^2*z^2  + y^2*z^2 - 5*x^2 - 5*y^2 - z^2 +4, (x,-4, 4), (y,-4, 4), (z,-4, 4))
# Pokušajte okretati slku klikanjem i povlačenjem na slici
# Zumiranje: klik na sliku i skrolajte kolut miša

# Sljedeća slika prikazuje stožac i kuglu.
# Stožac:
# x^2 + y^2 - z^2 == 0
# Kugla:
# x^2 + y^2 + (z-6)^2 - 36 == 0
# funkcija koja se crta je umnožak stošca i kugle:
# (x^2 + y^2 - z^2) * (x^2 + y^2 + (z-6)^2 - 36) == 0

# Pogled izvana (prva slika)
implicit_plot3d((x^2 + y^2 + (z-6)^2 - 36)*(x^2 + y^2 - z^2), (x,-7, 7), (y,-7, 7), (z,-1, 13))

# Prerezano iznutra (granica (x,0,7)) (druga slika)  
implicit_plot3d((x^2 + y^2 + (z-6)^2 - 36)*(x^2 + y^2 - z^2), (x,0, 7), (y,-7, 7), (z,-1, 13))

Dvije plohe 
sfera
x^2 + y^2 + z^2 - 4 = 0
ravnina
x + y - z - 1 = 0

implicit_plot3d((x^2 + y^2 + z^2 - 4)*(x + y - z - 1), (x,-2, 2), (y,-2, 2), (z,-2, 2))