# Kreis auf Kreisbahn

***************************************
Dokumentnummer: D1643
***************************************
Quelle: wxMaxima-Dokumentation

Animation anklicken und dann den Schieberegler betätigen

load(draw)$

with_slider_draw( 
   /* first two arguments are the parameter and parameter values */ 
   ang, makelist(i,i,0,20)*%pi/10, 
   /* the rest of arguments describe a draw2d scene */ 
   pic_width = 600, 
   pic_height = 400, 
   xrange     = [-10,10], 
   yrange     = [-11,10], 
   nticks     = 80, 
   color      = red, 
      parametric(6*cos(u), 
                 6*sin(u), 
                 u,0,2*%pi), 
      parametric((6+2)*sin(ang)+2*cos(u), 
                 (6+2)*cos(ang)+2*sin(u), 
                 u,0,2*%pi), 
   color = blue, 
   line_width = 2, 
      parametric((6+2)*sin(a)-2*sin(a*(1+6/2)), 
                 (6+2)*cos(a)-2*cos(a*(1+6/2)), 
                 a,0,ang), 
   color      = black, 
   point_size = 1, 
   points_joined = true, 
    line_width = 1, 
      points([ 
              [0,0], 
              (6+2)*[sin(ang),cos(ang)], 
              [(6+2)*sin(ang)-2*sin(ang*(1+6/2)), 
               (6+2)*cos(ang)-2*cos(ang*(1+6/2))] 
             ]))$