çé¢ä¸ã®å¤§å
æ³ç·ã n := (θ, Ï) = [sinθcosÏ sinθsinÏ cosθ]⊤ ã®å¤§åããã©ã¡ã¿å½¢å¼ã§è¡¨ãã¨,
R(θ, Ï) [cos(t) sin(t) 0]⊤
ãã,
[x] [ cos(θ)cos(Ï)cos(t)−sin(θ)sin(t) ] [y]=[ cos(θ)sin(Ï)cos(t)+cos(Ï)sin(t) ] [z] [−sin(θ)cos(t) ]
Gnuplot ã§æç»ããä¾
set para th=pi/4 # 天é è§ ph=pi/9 # æ¹ä½è§ set arrow to sin(th)*cos(ph), sin(th)*sin(ph), cos(th) # æ³ç·ãã¯ãã« splot [0 to 2*pi] cos(th)*cos(ph)*cos(u)-sin(ph)*sin(u), \ cos(th)*sin(ph)*cos(u)+cos(ph)*sin(u), \ -sin(th)*cos(u)