立体表示 plot001 [gnuplot]
set parametric
set urange [-1:1]
set vrange [-1:1]
set zrange [-1:1]
set hidden3d
unset key
set ticslevel 0
set isosamples 50,2
f(z,t) = t * sqrt(1.0 - z ** 2)
splot f(-0.95, u), f(-0.95, v), -0.95
replot f(-0.90, u), f(-0.90, v), -0.90
replot f(-0.85, u), f(-0.85, v), -0.85
replot f(-0.80, u), f(-0.80, v), -0.80
replot f(-0.75, u), f(-0.75, v), -0.75
replot f(-0.70, u), f(-0.70, v), -0.70
replot f(-0.65, u), f(-0.65, v), -0.65
replot f(-0.60, u), f(-0.60, v), -0.60
replot f(-0.55, u), f(-0.55, v), -0.55
replot f(-0.50, u), f(-0.50, v), -0.50
replot f(-0.45, u), f(-0.45, v), -0.45
replot f(-0.40, u), f(-0.40, v), -0.40
replot f(-0.35, u), f(-0.35, v), -0.35
replot f(-0.30, u), f(-0.30, v), -0.30
replot f(-0.25, u), f(-0.25, v), -0.25
replot f(-0.20, u), f(-0.20, v), -0.20
replot f(-0.15, u), f(-0.15, v), -0.15
replot f(-0.10, u), f(-0.10, v), -0.10
replot f(-0.05, u), f(-0.05, v), -0.05
replot f( 0.00, u), f( 0.00, v), 0.00
replot f( 0.05, u), f( 0.05, v), 0.05
replot f( 0.10, u), f( 0.10, v), 0.10
replot f( 0.15, u), f( 0.15, v), 0.15
replot f( 0.20, u), f( 0.20, v), 0.20
replot f( 0.25, u), f( 0.25, v), 0.25
replot f( 0.30, u), f( 0.30, v), 0.30
replot f( 0.35, u), f( 0.35, v), 0.35
replot f( 0.40, u), f( 0.40, v), 0.40
replot f( 0.45, u), f( 0.45, v), 0.45
replot f( 0.50, u), f( 0.50, v), 0.50
replot f( 0.55, u), f( 0.55, v), 0.55
replot f( 0.60, u), f( 0.60, v), 0.60
replot f( 0.65, u), f( 0.65, v), 0.65
replot f( 0.70, u), f( 0.70, v), 0.70
replot f( 0.75, u), f( 0.75, v), 0.75
replot f( 0.80, u), f( 0.80, v), 0.80
replot f( 0.85, u), f( 0.85, v), 0.85
replot f( 0.90, u), f( 0.90, v), 0.90
replot f( 0.95, u), f( 0.95, v), 0.95
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
─────
正面から見たら丸、横から見ても丸、上から見たら正方形の立体。
gnuplotはなかなか便利なツールですね。
(by 心如)
コメント 0