# Sinus als Kreisfunktion

***************************************
Dokumentnummer: D1642
***************************************
Quelle: wxMaxima-Dokumentation

Animation anklicken und den Schieberegler betätigen

load(draw)$

with_slider_draw( 
   /* first two arguments are the parameter and parameter values */  
   a, makelist(i, i, 0, 20)*%pi/10, 
   /* the rest of arguments describe a draw2d scene */ 
       parametric(-1+cos(t), sin(t), t, 0, 2*%pi), 
   line_width = 2, 
   color = blue, 
       explicit(sin(x), x, 0, a), 
   color = green, 
   points_joined = true, 
   point_size = 0, 
   line_width = 1, 
       points([[-1,0], [-1+cos(a), sin(a)]]), 
   color = black, 
       explicit(sin(a), x, -1+cos(a), a), 
   pic_width = 600, 
   pic_height = 400, 
   yrange = [-2, 2], 
   xrange = [-3, 2*%pi+1], 
   xaxis = true, 
   yaxis = true 
)$