# Fläche des eingeschriebenen Rechtecks

****************************************
Dokumentnummer: D1641
****************************************
Quelle: wxMaxima-Dokumentation

Die Animation anklicken und dann den Schieberegeler betätigen

load(draw)$

with_slider_draw( 
   /* first two arguments are the parameter and parameter values */ 
   a, makelist(i, i, 0, 30)/5, 
   /* the rest of arguments describe a draw2d scene */ 
   fill_color = green, 
   color = black, 
       polygon([[0,0], [6,0], [6,8]]), 
   fill_color = red, 
       polygon([[a, 0], [6,0], [6, 4*a/3], [a,4*a/3]]), 
   color = black, 
   line_width = 3, 
   key = "Area of inscribed rectangle", 
       explicit(4*x/3*(6-x), x, 0, a), 
   yrange = [0, 14], 
   xrange = [-2, 8] 
)$