Epicycloid

admin22 — Sun, 25 Feb 2018 07:06:32 +0000

媒介変数によるグラフは複雑な模様を描く面白さがありますが、これをgnuplotを使ってアニメーションしてみました。

参考: http://www.natural-science.or.jp/article/20101203183935.php

上記のサイクロイドのアニメーションを参考に、エピサイクロイドを描いてみました。

set size ratio 1.0
set samples 256
set xrange [-3:3]
set yrange [-3:3]
set trange [0:2*pi]
set xtics -2, 2, 2
set ytics -2, 2, 2
set nokey
set parametric

set terminal gif animate optimize size 360, 360
set output "epicycloid.gif"

load "epicycloid.plt"
n = 0

epicycloid.plt

if (exist("n")==0 || n<0) n=0

theta = pi/20 * n
fx(t) = t<=theta ? 2*cos(t)-cos(2*t) : 1/0
fy(t) = t<=theta ? 2*sin(t)-sin(2*t) : 1/0

plot fx(t),fy(t) w l,\
     cos(t),sin(t) w l ,\
     cos(t)+2*cos(theta),sin(t)+2*sin(theta) w l ,\
     fx(theta), fy(theta) with points pt 7 lc rgb "red"

if (n<80)  n=n+1; reread

http://www.geisya.or.jp/~mwm48961/electro/parameter3.htm
このサイトを参考に各パラメータを調整してバリエーションを作ってみました。

やはり絵が動くアニメーションは楽しいですね。簡単にGIFアニメを出力できるgnuplotはとても便利です。

Gnuplot – DECODE

Epicycloid