/* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/
/* [ Created with wxMaxima version 0.8.3 ] */

/* [wxMaxima: input   start ] */
load(draw);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
draw(

        delay     = 100,

        file_name = "zzz",

        terminal  = 'animated_gif,

        gr2d(explicit(x^2,x,-1,1)),

        gr2d(explicit(x^3,x,-1,1)),

        gr2d(explicit(x^4,x,-1,1)));
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
draw2d(terminal   = 'png,

             pic_width  = 300,

             pic_height = 300,

             explicit(x^2,x,-1,1))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
draw2d(terminal   = 'pdf,

             pdf_width  = 3.0,

             pdf_height = 3.0,

             explicit(x^2,x,-1,1))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
draw2d(axis_left = false,

             explicit(x^3,x,-1,1))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw2d(axis_left = false,

             explicit(x^3,x,-1,1))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw2d(axis_top = false,
         axis_left = false,
             explicit(x^3,x,-1,1))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw2d(axis_top = false,
         axis_left = false,
         axis_bottom = false,
         axis_right = false,
             explicit(x^3,x,-1,1))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw3d(axis_3d = false,

             explicit(sin(x^2+y^2),x,-2,2,y,-2,2) )$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
im: apply(

           'matrix,

            makelist(makelist(random(200),i,1,30),i,1,30))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
/* palette = color, default */

      draw2d(image(im,0,0,30,30))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
/* palette = color, default */

      wxdraw2d(image(im,0,0,30,30))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
draw2d(palette = gray, image(im,0,0,30,30))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw2d(palette = gray, image(im,0,0,30,30))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
draw2d(palette = [15,20,-4],

             colorbox=false,

             image(im,0,0,30,30))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw2d(palette = [15,20,-4],

             colorbox=false,

             image(im,0,0,30,30))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
draw3d(

         surface_hide = true,

         enhanced3d   = true,

         palette      = gray,

         explicit(20*exp(-x^2-y^2)-10,x,-3,3,y,-3,3))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw3d(

         surface_hide = true,

         enhanced3d   = true,

         palette      = gray,

         explicit(20*exp(-x^2-y^2)-10,x,-3,3,y,-3,3))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
draw3d(

         surface_hide = true,

         /* same variables x and y as */

         /* in explicit below:        */

         enhanced3d   = sin(x*y),

         explicit(20*exp(-x^2-y^2)-10,x,-3,3,y,-3,3))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw3d(

         surface_hide = true,

         /* same variables x and y as */

         /* in explicit below:        */

         enhanced3d   = sin(x*y),

         explicit(20*exp(-x^2-y^2)-10,x,-3,3,y,-3,3))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
draw3d(

         color = blue,

         nticks = 60,

         line_width = 3,

         enhanced3d = (u-1)^2,

         parametric(cos(5*u)^2,sin(7*u),u-2,u,0,2))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw3d(

         color = blue,

         nticks = 60,

         line_width = 3,

         enhanced3d = (u-1)^2,

         parametric(cos(5*u)^2,sin(7*u),u-2,u,0,2))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
draw2d(points(makelist([random(20),random(50)],k,1,10)),

        point_size = 5,

        points(makelist(k,k,1,20),makelist(random(30),k,1,20)))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw2d(points(makelist([random(20),random(50)],k,1,10)),

        point_size = 5,

        points(makelist(k,k,1,20),makelist(random(30),k,1,20)))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
draw2d(xrange = [0,10],

             yrange = [0,10],

             point_size = 3,

             point_type = diamant,

             points([[1,1],[5,1],[9,1]]),

             point_type = filled_down_triangle,

             points([[1,2],[5,2],[9,2]]),

             point_type = asterisk,

             points([[1,3],[5,3],[9,3]]),

             point_type = filled_diamant,

             points([[1,4],[5,4],[9,4]]),

             point_type = 5,

             points([[1,5],[5,5],[9,5]]),

             point_type = 6,

             points([[1,6],[5,6],[9,6]]),

             point_type = filled_circle,

             points([[1,7],[5,7],[9,7]]),

             point_type = 8,

             points([[1,8],[5,8],[9,8]]),

             point_type = filled_diamant,

             points([[1,9],[5,9],[9,9]]) )$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw2d(xrange = [0,10],

             yrange = [0,10],

             point_size = 3,

             point_type = diamant,

             points([[1,1],[5,1],[9,1]]),

             point_type = filled_down_triangle,

             points([[1,2],[5,2],[9,2]]),

             point_type = asterisk,

             points([[1,3],[5,3],[9,3]]),

             point_type = filled_diamant,

             points([[1,4],[5,4],[9,4]]),

             point_type = 5,

             points([[1,5],[5,5],[9,5]]),

             point_type = 6,

             points([[1,6],[5,6],[9,6]]),

             point_type = filled_circle,

             points([[1,7],[5,7],[9,7]]),

             point_type = 8,

             points([[1,8],[5,8],[9,8]]),

             point_type = filled_diamant,

             points([[1,9],[5,9],[9,9]]) )$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
draw2d(xrange        = [0,10],

             yrange        = [0,4],

             point_size    = 3,

             point_type    = up_triangle,

             color         = blue,

             points([[1,1],[5,1],[9,1]]),

             points_joined = true,

             point_type    = square,

             line_type     = dots,

             points([[1,2],[5,2],[9,2]]),

             point_type    = circle,

             color         = red,

             line_width    = 7,

             points([[1,3],[5,3],[9,3]]) )$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw2d(xrange        = [0,10],

             yrange        = [0,4],

             point_size    = 3,

             point_type    = up_triangle,

             color         = blue,

             points([[1,1],[5,1],[9,1]]),

             points_joined = true,

             point_type    = square,

             line_type     = dots,

             points([[1,2],[5,2],[9,2]]),

             point_type    = circle,

             color         = red,

             line_width    = 7,

             points([[1,3],[5,3],[9,3]]) )$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
draw2d(fill_color  = red,

             filled_func = true,

             explicit(sin(x),x,0,10) )$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw2d(fill_color  = red,

             filled_func = true,

             explicit(sin(x),x,0,10) )$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
draw2d(fill_color  = grey,

             filled_func = sin(x),

             explicit(-sin(x),x,0,%pi));
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw2d(fill_color  = grey,

             filled_func = sin(x),

             explicit(-sin(x),x,0,%pi));
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
draw2d(polygon([[3,2],[7,2],[5,5]]),

             transparent = true,

             color       = blue,

             polygon([[5,2],[9,2],[7,5]]) )$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw2d(polygon([[3,2],[7,2],[5,5]]),

             transparent = true,

             color       = blue,

             polygon([[5,2],[9,2],[7,5]]) )$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
draw2d(color       = brown,

             line_width  = 8,

             polygon([[3,2],[7,2],[5,5]]),

             border      = false,

             fill_color  = blue,

             polygon([[5,2],[9,2],[7,5]]) )$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw2d(color       = brown,

             line_width  = 8,

             polygon([[3,2],[7,2],[5,5]]),

             border      = false,

             fill_color  = blue,

             polygon([[5,2],[9,2],[7,5]]) )$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
draw2d(xrange      = [0,8],

             yrange      = [0,8],

             head_length = 0.7,

             vector([1,1],[6,0]),

             head_both   = true,

             vector([1,7],[6,0]) )$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw2d(xrange      = [0,8],

             yrange      = [0,8],

             head_length = 0.7,

             vector([1,1],[6,0]),

             head_both   = true,

             vector([1,7],[6,0]) )$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
draw2d(xrange      = [0,12],

             yrange      = [0,8],

             vector([0,1],[5,5]),

             head_length = 1,

             vector([2,1],[5,5]),

             head_length = 0.5,

             vector([4,1],[5,5]),

             head_length = 0.25,

             vector([6,1],[5,5]))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw2d(xrange      = [0,12],

             yrange      = [0,8],

             vector([0,1],[5,5]),

             head_length = 1,

             vector([2,1],[5,5]),

             head_length = 0.5,

             vector([4,1],[5,5]),

             head_length = 0.25,

             vector([6,1],[5,5]))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
draw2d(xrange      = [0,10],

             yrange      = [0,9],

             head_length = 0.7,

             head_angle  = 10,

             vector([1,1],[0,6]),

             head_angle  = 20,

             vector([2,1],[0,6]),

             head_angle  = 30,

             vector([3,1],[0,6]),

             head_angle  = 40,

             vector([4,1],[0,6]),

             head_angle  = 60,

             vector([5,1],[0,6]),

             head_angle  = 90,

             vector([6,1],[0,6]),

             head_angle  = 120,

             vector([7,1],[0,6]),

             head_angle  = 160,

             vector([8,1],[0,6]),

             head_angle  = 180,

             vector([9,1],[0,6]) )$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw2d(xrange      = [0,10],

             yrange      = [0,9],

             head_length = 0.7,

             head_angle  = 10,

             vector([1,1],[0,6]),

             head_angle  = 20,

             vector([2,1],[0,6]),

             head_angle  = 30,

             vector([3,1],[0,6]),

             head_angle  = 40,

             vector([4,1],[0,6]),

             head_angle  = 60,

             vector([5,1],[0,6]),

             head_angle  = 90,

             vector([6,1],[0,6]),

             head_angle  = 120,

             vector([7,1],[0,6]),

             head_angle  = 160,

             vector([8,1],[0,6]),

             head_angle  = 180,

             vector([9,1],[0,6]) )$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
draw2d(xrange      = [0,12],

             yrange      = [0,10],

             head_length = 1,

             vector([0,1],[5,5]), /* default type */

             head_type = 'empty,

             vector([3,1],[5,5]),

             head_type = 'nofilled,

             vector([6,1],[5,5]))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw2d(xrange      = [0,12],

             yrange      = [0,10],

             head_length = 1,

             vector([0,1],[5,5]), /* default type */

             head_type = 'empty,

             vector([3,1],[5,5]),

             head_type = 'nofilled,

             vector([6,1],[5,5]))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
draw2d(xrange      = [-1,6],

             yrange      = [-1,6],

             head_length = 0.1,

             vector([0,0],[5,2]),

             unit_vectors = true,

             color        = red,

             vector([0,3],[5,2]))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw2d(xrange      = [-1,6],

             yrange      = [-1,6],

             head_length = 0.1,

             vector([0,0],[5,2]),

             unit_vectors = true,

             color        = red,

             vector([0,3],[5,2]))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
draw2d(xrange          = [0,10],

             yrange          = [0,10],

             points_joined   = true,

             points([[5,0],[5,10]]),

             color           = blue,

             label(["Centered alignment (default)",5,2]),

             label_alignment = 'left,

             label(["Left alignment",5,5]),

             label_alignment = 'right,

             label(["Right alignment",5,8]))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw2d(xrange          = [0,10],

             yrange          = [0,10],

             points_joined   = true,

             points([[5,0],[5,10]]),

             color           = blue,

             label(["Centered alignment (default)",5,2]),

             label_alignment = 'left,

             label(["Left alignment",5,5]),

             label_alignment = 'right,

             label(["Right alignment",5,8]))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
draw2d(explicit(x^2,x,-1,1), /* default is black */

             color = "red",

             explicit(0.5 + x^2,x,-1,1),

             color = blue,

             explicit(1 + x^2,x,-1,1),

             color = "light-blue", /* double quotes if - is used */

             explicit(1.5 + x^2,x,-1,1),

             color = "#23ab0f",

             label(["This is a label",0,1.2])  )$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw2d(explicit(x^2,x,-1,1), /* default is black */

             color = "red",

             explicit(0.5 + x^2,x,-1,1),

             color = blue,

             explicit(1 + x^2,x,-1,1),

             color = "light-blue", /* double quotes if - is used */

             explicit(1.5 + x^2,x,-1,1),

             color = "#23ab0f",

             label(["This is a label",0,1.2])  )$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
draw2d(xrange     = [0,10],

             yrange     = [0,10],

             point_size = 0,

             points([[5,5]]),

             color      = navy,

             label(["Horizontal orientation (default)",5,2]),

             label_orientation = 'vertical,

             color             = "#654321",

             label(["Vertical orientation",1,5]))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw2d(xrange     = [0,10],

             yrange     = [0,10],

             point_size = 0,

             points([[5,5]]),

             color      = navy,

             label(["Horizontal orientation (default)",5,2]),

             label_orientation = 'vertical,

             color             = "#654321",

             label(["Vertical orientation",1,5]))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
draw2d(explicit(x^2,x,-1,1), /* default width */

             line_width = 5.5,

             explicit(1 + x^2,x,-1,1),

             line_width = 10,

             explicit(2 + x^2,x,-1,1))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw2d(explicit(x^2,x,-1,1), /* default width */

             line_width = 5.5,

             explicit(1 + x^2,x,-1,1),

             line_width = 10,

             explicit(2 + x^2,x,-1,1))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
draw2d(line_type = dots,

             explicit(1 + x^2,x,-1,1),

             line_type = solid, /* default */

             explicit(2 + x^2,x,-1,1))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw2d(line_type = dots,

             explicit(1 + x^2,x,-1,1),

             line_type = solid, /* default */

             explicit(2 + x^2,x,-1,1))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
draw2d(transparent = true,

             ellipse(0,0,4,2,0,180),

             nticks = 5,

             ellipse(0,0,4,2,180,180) )$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw2d(transparent = true,

             ellipse(0,0,4,2,0,180),

             nticks = 5,

             ellipse(0,0,4,2,180,180) )$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
draw2d(key   = "Sinus",

             explicit(sin(x),x,0,10),

             key   = "Cosinus",

             color = red,

             explicit(cos(x),x,0,10) )$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw2d(key   = "Sinus",

             explicit(sin(x),x,0,10),

             key   = "Cosinus",

             color = red,

             explicit(cos(x),x,0,10) )$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
draw3d(xu_grid = 10,

             yv_grid = 50,

             explicit(x^2+y^2,x,-3,3,y,-3,3) )$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw3d(xu_grid = 10,

             yv_grid = 50,

             explicit(x^2+y^2,x,-3,3,y,-3,3) )$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
draw(columns=2,

           gr3d(explicit(exp(sin(x)+cos(x^2)),x,-3,3,y,-3,3)),

           gr3d(surface_hide = true,

                explicit(exp(sin(x)+cos(x^2)),x,-3,3,y,-3,3)) )$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw(columns=2,

           gr3d(explicit(exp(sin(x)+cos(x^2)),x,-3,3,y,-3,3)),

           gr3d(surface_hide = true,

                explicit(exp(sin(x)+cos(x^2)),x,-3,3,y,-3,3)) )$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
draw3d(explicit(20*exp(-x^2-y^2)-10,x,0,2,y,-3,3),

             contour_levels = 15,

             contour        = both,

             surface_hide   = true) $
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw3d(explicit(20*exp(-x^2-y^2)-10,x,0,2,y,-3,3),

             contour_levels = 15,

             contour        = both,

             surface_hide   = true) $
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
draw3d(color = green,

             explicit(20*exp(-x^2-y^2)-10,x,0,2,y,-3,3),

             contour_levels = 10,

             contour        = both,

             surface_hide   = true) $
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw3d(color = green,

             explicit(20*exp(-x^2-y^2)-10,x,0,2,y,-3,3),

             contour_levels = 10,

             contour        = both,

             surface_hide   = true) $
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
draw3d(color = green,

             explicit(20*exp(-x^2-y^2)-10,x,0,2,y,-3,3),

             contour_levels = [-8,4,8],

             contour        = both,

             surface_hide   = true) $
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw3d(color = green,

             explicit(20*exp(-x^2-y^2)-10,x,0,2,y,-3,3),

             contour_levels = [-8,4,8],

             contour        = both,

             surface_hide   = true) $
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
draw3d(color = green,

             explicit(20*exp(-x^2-y^2)-10,x,0,2,y,-3,3),

             contour_levels = {-7, -6, 0.8, 5},

             contour        = both,

             surface_hide   = true) $
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw3d(color = green,

             explicit(20*exp(-x^2-y^2)-10,x,0,2,y,-3,3),

             contour_levels = {-7, -6, 0.8, 5},

             contour        = both,

             surface_hide   = true) $
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
scene1: gr2d(title="Ellipse",

                   nticks=30,

                   parametric(2*cos(t),5*sin(t),t,0,2*%pi))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
scene2: gr2d(title="Triangle",

                   polygon([4,5,7],[6,4,2]))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
draw(scene1, scene2, columns = 2)$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw(scene1, scene2, columns = 2)$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
set_draw_defaults(

         xrange = [-10,10],

         yrange = [-2, 2],

         color  = blue,

         grid   = true)$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
/* plot with user defaults */

      draw2d(explicit(((1+x)**2/(1+x*x))-1,x,-10,10))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
/* plot with user defaults */

      wxdraw2d(explicit(((1+x)**2/(1+x*x))-1,x,-10,10))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
set_draw_defaults()$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
/* plot with standard defaults */

      draw2d(explicit(((1+x)**2/(1+x*x))-1,x,-10,10))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
/* plot with standard defaults */

      wxdraw2d(explicit(((1+x)**2/(1+x*x))-1,x,-10,10))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
 draw2d(

        key = "Small points",

        points(makelist([random(20),random(50)],k,1,10)),

        point_type    = circle,

        point_size    = 3,

        points_joined = true,

        key           = "Great points",

        points(makelist(k,k,1,20),makelist(random(30),k,1,20)),

        point_type    = filled_down_triangle,

        key           = "Automatic abscissas",

        color         = red,

        points([2,12,8]))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
 wxdraw2d(

        key = "Small points",

        points(makelist([random(20),random(50)],k,1,10)),

        point_type    = circle,

        point_size    = 3,

        points_joined = true,

        key           = "Great points",

        points(makelist(k,k,1,20),makelist(random(30),k,1,20)),

        point_type    = filled_down_triangle,

        key           = "Automatic abscissas",

        color         = red,

        points([2,12,8]))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
draw2d(

        points_joined = impulses,

        line_width    = 2,

        color         = red,

        points(makelist([random(20),random(50)],k,1,10)))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw2d(

        points_joined = impulses,

        line_width    = 2,

        color         = red,

        points(makelist([random(20),random(50)],k,1,10)))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
a: make_array (flonum, 100) $
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
for i:0 thru 99 do a[i]: random(1.0) $
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
draw2d(points(a)) $
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw2d(points(a)) $
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
x: make_array (flonum, 100) $
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
y: make_array (fixnum, 100) $
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
for i:0 thru 99 do (

        x[i]: float(i/100),

        y[i]: random(10) ) $
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
draw2d(points(x, y)) $
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw2d(points(x, y)) $
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
xy: make_array(flonum, 100, 2) $
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
for i:0 thru 99 do (

        xy[i, 0]: float(i/100),

        xy[i, 1]: random(10) ) $
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
draw2d(points(xy)) $
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw2d(points(xy)) $
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
draw2d(fill_color  = red,

             line_width  = 6,

             line_type   = dots,

             transparent = false,

             fill_color  = blue,

             rectangle([-2,-2],[8,-1]), /* opposite vertices */

             transparent = true,

             line_type   = solid,

             line_width  = 1,

             rectangle([9,4],[2,-1.5]),

             xrange      = [-3,10],

             yrange      = [-3,4.5] )$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw2d(fill_color  = red,

             line_width  = 6,

             line_type   = dots,

             transparent = false,

             fill_color  = blue,

             rectangle([-2,-2],[8,-1]), /* opposite vertices */

             transparent = true,

             line_type   = solid,

             line_width  = 1,

             rectangle([9,4],[2,-1.5]),

             xrange      = [-3,10],

             yrange      = [-3,4.5] )$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
draw2d(

       key          = "Group A",

       fill_color   = blue,

       fill_density = 0.2,

       bars([0.8,5,0.4],[1.8,7,0.4],[2.8,-4,0.4]),

       key          = "Group B",

       fill_color   = red,

       fill_density = 0.6,

       line_width   = 4,

       bars([1.2,4,0.4],[2.2,-2,0.4],[3.2,5,0.4]),

       xaxis = true);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw2d(

       key          = "Group A",

       fill_color   = blue,

       fill_density = 0.2,

       bars([0.8,5,0.4],[1.8,7,0.4],[2.8,-4,0.4]),

       key          = "Group B",

       fill_color   = red,

       fill_density = 0.6,

       line_width   = 4,

       bars([1.2,4,0.4],[2.2,-2,0.4],[3.2,5,0.4]),

       xaxis = true);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
draw2d(transparent = false,

             fill_color  = red,

             color       = gray30,

             transparent = false,

             line_width  = 5,

             ellipse(0,6,3,2,270,-270),

             /* center (x,y), a, b, start & end in degrees */

             transparent = true,

             color       = blue,

             line_width  = 3,

             ellipse(2.5,6,2,3,30,-90),

             xrange      = [-3,6],

             yrange      = [2,9] )$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw2d(transparent = false,

             fill_color  = red,

             color       = gray30,

             transparent = false,

             line_width  = 5,

             ellipse(0,6,3,2,270,-270),

             /* center (x,y), a, b, start & end in degrees */

             transparent = true,

             color       = blue,

             line_width  = 3,

             ellipse(2.5,6,2,3,30,-90),

             xrange      = [-3,6],

             yrange      = [2,9] )$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
1+2;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
m: apply(

            matrix,

            makelist(makelist(random(10.0),k,1,30),i,1,20)) $
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
draw3d(

         color = blue,

         mesh(m,0,0,3,2),

         xlabel = "x",

         ylabel = "y",

         surface_hide = true);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw3d(

         color = blue,

         mesh(m,0,0,3,2),

         xlabel = "x",

         ylabel = "y",

         surface_hide = true);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
draw2d(terminal  = eps,

             grid      = true,

             line_type = solid,

             key       = "y^2=x^3-2*x+1",

             implicit(y^2=x^3-2*x+1, x, -4,4, y, -4,4),

             line_type = dots,

             key       = "x^3+y^3 = 3*x*y^2-x-1",

             implicit(x^3+y^3 = 3*x*y^2-x-1, x,-4,4, y,-4,4),

             title     = "Two implicit functions" )$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
load(implicit_plot);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
draw2d(terminal  = eps,

             grid      = true,

             line_type = solid,

             key       = "y^2=x^3-2*x+1",

             implicit(y^2=x^3-2*x+1, x, -4,4, y, -4,4),

             line_type = dots,

             key       = "x^3+y^3 = 3*x*y^2-x-1",

             implicit(x^3+y^3 = 3*x*y^2-x-1, x,-4,4, y,-4,4),

             title     = "Two implicit functions" )$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
load(draw);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
draw2d(terminal  = eps,

             grid      = true,

             line_type = solid,

             key       = "y^2=x^3-2*x+1",

             implicit(y^2=x^3-2*x+1, x, -4,4, y, -4,4),

             line_type = dots,

             key       = "x^3+y^3 = 3*x*y^2-x-1",

             implicit(x^3+y^3 = 3*x*y^2-x-1, x,-4,4, y,-4,4),

             title     = "Two implicit functions" )$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
draw3d(

        color=blue,

        implicit((x^2+y^2+z^2-1)*(x^2+(y-1.5)^2+z^2-0.5)=0.015,

                 x,-1,1,y,-1.2,2.3,z,-1,1),

        surface_hide=true);
/* [wxMaxima: input   end   ] */

/* Maxima can't load/batch files which end with a comment! */
"Created with wxMaxima"$