Flater gitt i kulekoordinater 

Vi skal tegne en flate gitt i kulekoordinater på formen  

La oss for eksempel ta 

`:=`(a, 0) 

0 (1.1)
 

`:=`(b, `+`(`*`(2, `*`(Pi)))) 

`+`(`*`(2, `*`(Pi))) (1.2)
 

`:=`(c, 0) 

0 (1.3)
 

`:=`(d, Pi) 

Pi (1.4)
 

`:=`(f, proc (theta, `ϕ`) options operator, arrow; `+`(1, cos(`ϕ`)) end proc) 

proc (theta, `ϕ`) options operator, arrow; `+`(1, cos(`ϕ`)) end proc (1.5)
 

Da plotter vi flaten med kommandoen 

 

plot3d([f(theta, `ϕ`), theta, `ϕ`], theta = a .. b, `ϕ` = c .. d, coords = spherical, axes = boxed) 

Plot