# code to draw the spinning ellipse

set terminal postscript eps color enhanced size 7cm,7cm font "Times-Italic,24pt" dashlength 2.0
set output 'centralmotion1.eps'

set multiplot

set parametric

set xrange [-1.7:1.7]
set yrange [-1.7:1.7]


set trange [49:89.6]

set border 0
unset xtics
unset ytics

x(t)=cos(t)/(1+0.4*cos(1.1*t))
y(t)=sin(t)/(1+0.4*cos(1.1*t))

plot x(t), y(t) lw 4 notitle

# circles
set trange [-pi:pi]
plot cos(t)/1.4, sin(t)/1.4 lt 2 lc rgb 'black' notitle

set arrow from 0,0 to cos(1.4)/1.4, sin(1.4)/1.4 filled
set arrow from 0,0 to cos(1.)/0.6, sin(1.)/0.6 filled
set label 1 "r_{/Times-Roman min}" at -.5,.4
set label 2 "r_{/Times-Roman max}" at 0.7,1.7

set arrow from 1,-1.5 to 0.7,-1.3 
set label 3 "{/Times-Bold r}(t)" at 1.1, -1.5


plot cos(t)/0.6, sin(t)/0.6 lt 2 lc rgb 'black' notitle