load(draw)$
f(x):=sin(x)$

draw( delay     = 270,
      terminal  = 'animated_gif,
      file_name = "PolinomiosTaylor",

      gr2d(  pic_width  = 278,
             pic_height = 250,
             yrange= [-1.5,1.5],
             key    = "El seno",
             color  = red,
           explicit(f(x),x,-%pi,%pi),
             title     = "Aproximaciones por polinomios" ),

      gr2d(  pic_width  = 278,
             pic_height = 250,
             yrange= [-1.5,1.5],
             key    = "El seno",
             color  = red,
           explicit(f(x),x,-%pi,%pi),
             key    = "Taylor  1",
             color  = "#0000ff",
           explicit(taylor(f(x),x,0,1),x,-%pi,%pi),
             title     = "Aproximaciones por polinomios" ),
      gr2d(  pic_width  = 278,
             pic_height = 250,
             yrange= [-1.5,1.5],
             key    = "El seno",
             color  = red,
           explicit(f(x),x,-%pi,%pi),
             key    = "Taylor  3",
             color  = "#0000ff",
           explicit(taylor(f(x),x,0,3),x,-%pi,%pi),
             title     = "Aproximaciones por polinomios" ),
      gr2d(  pic_width  = 278,
             pic_height = 250,
             yrange= [-1.5,1.5],
             key    = "El seno",
             color  = red,
           explicit(f(x),x,-%pi,%pi),
             key    = "Taylor  5",
             color  = "#0000ff",
           explicit(taylor(f(x),x,0,5),x,-%pi,%pi),
             title     = "Aproximaciones por polinomios" ),

      gr2d(  pic_width  = 278,
             pic_height = 250,
             yrange= [-1.5,1.5],
             key    = "El seno",
             color  = red,
           explicit(f(x),x,-%pi,%pi),
             key    = "Taylor  7",
             color  = "#0000ff",
           explicit(taylor(f(x),x,0,7),x,-%pi,%pi),
             title     = "Aproximaciones por polinomios" ),

      gr2d(  pic_width  = 278,
             pic_height = 250,
             yrange= [-1.5,1.5],
             title     = "Aproximaciones por polinomios",
             key    = "El seno",
             color  = red,
           explicit(f(x),x,-%pi,%pi),
             key    = "Taylor  9",
             color  = "#0000ff",
           explicit(taylor(f(x),x,0,9),x,-%pi,%pi))
              );