立体表示 plot002 [gnuplot]
set parametric
set urange [-1:1]
set vrange [-1:1]
set zrange [-1:1]
set hidden3d
unset key
set ticslevel 0
set isosamples 11,11
f(z,t) = t * sqrt(1.0 - z ** 2)
splot f(-0.90, u), f(-0.90, v), -0.90
replot f(-0.80, u), f(-0.80, v), -0.80
replot f(-0.70, u), f(-0.70, v), -0.70
replot f(-0.60, u), f(-0.60, v), -0.60
replot f(-0.50, u), f(-0.50, v), -0.50
replot f(-0.40, u), f(-0.40, v), -0.40
replot f(-0.30, u), f(-0.30, v), -0.30
replot f(-0.20, u), f(-0.20, v), -0.20
replot f(-0.10, u), f(-0.10, v), -0.10
replot f( 0.00, u), f( 0.00, v), 0.00
replot f( 0.10, u), f( 0.10, v), 0.10
replot f( 0.20, u), f( 0.20, v), 0.20
replot f( 0.30, u), f( 0.30, v), 0.30
replot f( 0.40, u), f( 0.40, v), 0.40
replot f( 0.50, u), f( 0.50, v), 0.50
replot f( 0.60, u), f( 0.60, v), 0.60
replot f( 0.70, u), f( 0.70, v), 0.70
replot f( 0.80, u), f( 0.80, v), 0.80
replot f( 0.90, u), f( 0.90, v), 0.90
replot f(u, 1), f(u, 1), u
replot f(u, 1), f(u, -1), u
replot f(u, -1), f(u, 1), u
replot f(u, -1), f(u, -1), u
─────
媒介変数uと媒介変数vを、それぞれ11分割に設定して描画させてみました。
個人的には、こちらのほうが好きです。
(by 心如)
コメント 0