/* [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 ] */
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 ] */
wxdraw2d(    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   ] */

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

        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   ] */

/* [wxMaxima: input   start ] */
draw2d(user_preamble = "set grid polar",

             nticks        = 200,

             xrange        = [-5,5],

             yrange        = [-5,5],

             color         = blue,

             line_width    = 3,

             title         = "Hyperbolic Spiral",

             polar(10/theta,theta,1,10*%pi) )$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw2d(user_preamble = "set grid polar",

             nticks        = 200,

             xrange        = [-5,5],

             yrange        = [-5,5],

             color         = blue,

             line_width    = 3,

             title         = "Hyperbolic Spiral",

             polar(10/theta,theta,1,10*%pi) )$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
draw3d(spherical(1,a,0,2*%pi,z,0,%pi))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw3d(spherical(1,a,0,2*%pi,z,0,%pi))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
draw3d(cylindrical(1,z,-2,2,az,0,2*%pi))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw3d(cylindrical(1,z,-2,2,az,0,2*%pi))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
draw2d(explicit(exp(x),x,-1,3),

             color = red,

             key   = "This is the parametric one!!",

             parametric(2*cos(rrr),rrr^2,rrr,0,2*%pi))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw2d(explicit(exp(x),x,-1,3),

             color = red,

             key   = "This is the parametric one!!",

             parametric(2*cos(rrr),rrr^2,rrr,0,2*%pi))$
/* [wxMaxima: input   end   ] */

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

             color = royalblue,

             parametric(cos(5*u)^2,sin(7*u),u-2,u,0,2),

             color      = turquoise,

             line_width = 2,

             parametric(t^2,sin(t),2+t,t,0,2),

             surface_hide = true,

             title = "Surface & curves" )$
/* [wxMaxima: input   end   ] */

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

             color = royalblue,

             parametric(cos(5*u)^2,sin(7*u),u-2,u,0,2),

             color      = turquoise,

             line_width = 2,

             parametric(t^2,sin(t),2+t,t,0,2),

             surface_hide = true,

             title = "Surface & curves" )$
/* [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 ] */
load(worldmap)$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
c1: gr2d(geomap(Canada,United_States,

                      Mexico,Cuba))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
c2: gr2d(geomap(Africa))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
c3: gr2d(geomap(Oceania,China,Korea,Japan))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
c4: gr2d(geomap(France,Portugal,Spain,

                      Morocco,Western_Sahara))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
draw3d(title          = "Sea shell",

             xu_grid        = 100,

             yv_grid        = 25,

             rot_vertical   = 100,

             rot_horizontal = 20,

             surface_hide   = true,

             parametric_surface(0.5*u*cos(u)*(cos(v)+1),

                           0.5*u*sin(u)*(cos(v)+1),

                           u*sin(v) - ((u+3)/8*%pi)^2 - 20,

                           u, 0, 13*%pi, v, -%pi, %pi) )$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw3d(title          = "Sea shell",

             xu_grid        = 100,

             yv_grid        = 25,

             rot_vertical   = 100,

             rot_horizontal = 20,

             surface_hide   = true,

             parametric_surface(0.5*u*cos(u)*(cos(v)+1),

                           0.5*u*sin(u)*(cos(v)+1),

                           u*sin(v) - ((u+3)/8*%pi)^2 - 20,

                           u, 0, 13*%pi, v, -%pi, %pi) )$
/* [wxMaxima: input   end   ] */

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