/* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/ /* [ Created with wxMaxima version 0.8.3 ] */ /* [wxMaxima: input start ] */ set_display(ascii); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ 100!; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ set_display(xml); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ 100!; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ %pi; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ %pi, numer; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ fpprec : 100; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ %pi, numer; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ fpprec : 16; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ load(implicit_plot); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ load(draw); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ implicit_plot (x^2 = y^3 - 3*y + 1, [x, -4, 4], [y, -4, 4], [gnuplot_preamble, "set zeroaxis"]); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ wximplicit_plot (x^2 = y^3 - 3*y + 1, [x, -4, 4], [y, -4, 4], [gnuplot_preamble, "set zeroaxis"]); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ implicit_plot (x^2 = y^3 - 3*y + 1, [x, -4, 4], [y, -4, 4]); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ implicit_plot (y^2 = x, [x, -4, 4], [y, -4, 4]); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ load(implicit_plot); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ implicit_plot (y^2 = x, [x, -4, 4], [y, -4, 4]); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ implicit_plot (y^2 = x, [x, -4, 4], [y, -4, 4], [gnuplot_preamble, "set zeroaxis"]); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ implicit_plot (x^2 = y^3 - 3*y + 1, [x, -4, 4], [y, -4, 4], [gnuplot_preamble, "set zeroaxis"]); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ wximplicit_plot (x^2 = y^3 - 3*y + 1, [x, -4, 4], [y, -4, 4], [gnuplot_preamble, "set zeroaxis"]); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ load(draw); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ draw2d( ellipse(0,0,1,1,0,360), transparent=true, color = blue, line_width = 4, ellipse(0,0,2,1/2,0,360), proportional_axes = xy); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ draw( terminal = wxt, gr2d(proportional_axes = xy, explicit(x^2,x,0,1)), gr2d(explicit(x^2,x,0,1), xrange = [0,1], yrange = [0,2], proportional_axes=xy), gr2d(explicit(x^2,x,0,1)) ); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ load(draw); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ draw( terminal = wxt, gr2d(proportional_axes = xy, explicit(x^2,x,0,1)), gr2d(explicit(x^2,x,0,1), xrange = [0,1], yrange = [0,2], proportional_axes=xy), gr2d(explicit(x^2,x,0,1)) ); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ draw2d(xrange = [-3,5], explicit(x^2,x,-1,1)); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ wxdraw2d(xrange = [-3,5], explicit(x^2,x,-1,1)); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ draw2d(yrange = [-2,3], explicit(x^2,x,-1,1), xrange = [-3,3]); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ wxdraw2d(yrange = [-2,3], explicit(x^2,x,-1,1), xrange = [-3,3]); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ draw2d( explicit(sin(x),x,0,10), yaxis_secondary = true, ytics_secondary = true, yrange = [-3, 3], yrange_secondary = [-20, 20], color = blue, explicit(100*sin(x+0.1)+2,x,0,10)) ; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ wxdraw2d( explicit(sin(x),x,0,10), yaxis_secondary = true, ytics_secondary = true, yrange = [-3, 3], yrange_secondary = [-20, 20], color = blue, explicit(100*sin(x+0.1)+2,x,0,10)); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ draw3d(yrange = [-3,3], zrange = [-2,5], explicit(x^2+y^2,x,-1,1,y,-1,1), xrange = [-3,3]); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ wxdraw3d(yrange = [-3,3], zrange = [-2,5], explicit(x^2+y^2,x,-1,1,y,-1,1), xrange = [-3,3]); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ draw3d ( enhanced3d = true, color = green, cbrange = [-3,10], explicit(x^2+y^2, x,-2,2,y,-2,2)); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ wxdraw3d ( enhanced3d = true, color = green, cbrange = [-3,10], explicit(x^2+y^2, x,-2,2,y,-2,2)); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ draw2d(explicit(log(x),x,0.01,5), logx = true); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ wxdraw2d(explicit(log(x),x,0.01,5), logx = true); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ draw2d(logy = true, explicit(exp(x),x,0,5)); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ wxdraw2d(logy = true, explicit(exp(x),x,0,5)); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ draw3d(logz = true, explicit(exp(u^2+v^2),u,-2,2,v,-2,2))$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ wxdraw3d(logz = true, explicit(exp(u^2+v^2),u,-2,2,v,-2,2))$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ draw3d ( enhanced3d = true, color = green, logcb = true, logz = true, palette = [-15,24,-9], explicit(exp(x^2-y^2), x,-2,2,y,-2,2)) $ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ wxdraw3d ( enhanced3d = true, color = green, logcb = true, logz = true, palette = [-15,24,-9], explicit(exp(x^2-y^2), x,-2,2,y,-2,2)); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ /* screen terminal (default) */ draw2d(explicit(x^2,x,-1,1))$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ /* screen terminal (default) */ wxdraw2d(explicit(x^2,x,-1,1))$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ /* png file */ draw2d(terminal = 'png, pic_width = 300, explicit(x^2,x,-1,1))$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ /* png file */ draw2d(terminal = 'png, pic_width = 300, explicit(x^2,x,-1,1))$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ /* jpg file */ draw2d(terminal = 'jpg, pic_width = 300, pic_height = 300, explicit(x^2,x,-1,1))$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ /* eps file */ draw2d(file_name = "myfile", explicit(x^2,x,-1,1), terminal = 'eps)$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ /* pdf file */ draw2d(file_name = "mypdf", pdf_width = 12.0, pdf_height = 8.0, explicit(x^2,x,-1,1), terminal = 'pdf)$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ /* pdf file */ draw2d(file_name = "mypdf", pdf_width = 12.0, pdf_height = 8.0, explicit(x^2,x,-1,1), terminal = 'pdf)$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ /* wxwidgets window */ draw2d(explicit(x^2,x,-1,1), terminal = 'wxt)$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ draw2d(explicit(x^5,x,-2,2), terminal=[screen, 3])$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ draw2d(explicit(x^2,x,-2,2), terminal=[screen, 0])$ /* [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(font = "Arial", font_size = 20, label(["Arial font, size 20",1,1]))$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ wxdraw2d(font = "Arial", font_size = 20, label(["Arial font, size 20",1,1]))$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ draw2d( font = "Courier-Oblique", font_size = 15, label(["Courier-Oblique font, size 15",1,1]), terminal = eps)$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ wxdraw2d( font = "Courier-Oblique", font_size = 15, label(["Courier-Oblique font, size 15",1,1]))$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ draw2d(grid = true, explicit(exp(u),u,-2,2))$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ wxdraw2d(grid = true, explicit(exp(u),u,-2,2))$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ draw2d(explicit(exp(u),u,-2,2), title = "Exponential function")$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ wxdraw2d(explicit(exp(u),u,-2,2), title = "Exponential function")$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ draw2d(xlabel = "Time", explicit(exp(u),u,-2,2), ylabel = "Population")$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ wxdraw2d(xlabel = "Time", explicit(exp(u),u,-2,2), ylabel = "Population")$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ draw3d(zlabel = "Z variable", ylabel = "Y variable", explicit(sin(x^2+y^2),x,-2,2,y,-2,2), xlabel = "X variable" )$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ wxdraw3d(zlabel = "Z variable", ylabel = "Y variable", explicit(sin(x^2+y^2),x,-2,2,y,-2,2), xlabel = "X variable" )$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ draw2d(xtics = 'none, explicit(x^3,x,-1,1) )$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ wxdraw2d(xtics = 'none, explicit(x^3,x,-1,1) )$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ draw2d(xtics = 1/4, explicit(x^3,x,-1,1) )$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ wxdraw2d(xtics = 1/4, explicit(x^3,x,-1,1) )$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ draw2d(xtics = [-3/4,1/8,3/4], explicit(x^3,x,-1,1) )$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ wxdraw2d(xtics = [-3/4,1/8,3/4], explicit(x^3,x,-1,1) )$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ draw2d(xtics = {-1/2,-1/4,3/4}, explicit(x^3,x,-1,1) )$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ wxdraw2d(xtics = {-1/2,-1/4,3/4}, explicit(x^3,x,-1,1) )$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ draw2d(xtics = {["High",0.75],["Medium",0],["Low",-0.75]}, explicit(x^3,x,-1,1) )$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ wxdraw2d(xtics = {["High",0.75],["Medium",0],["Low",-0.75]}, explicit(x^3,x,-1,1) )$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ draw3d ( enhanced3d = true, color = green, cbtics = {["High",10],["Medium",05],["Low",0]}, cbrange = [0, 10], explicit(x^2+y^2, x,-2,2,y,-2,2)) $ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ wxdraw3d ( enhanced3d = true, color = green, cbtics = {["High",10],["Medium",05],["Low",0]}, cbrange = [0, 10], explicit(x^2+y^2, x,-2,2,y,-2,2)) $ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ draw2d(explicit(x^3,x,-1,1), xaxis = true, xaxis_color = blue)$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ wxdraw2d(explicit(x^3,x,-1,1), xaxis = true, xaxis_color = blue); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ draw2d( key = "Bottom x-axis", explicit(x+1,x,1,2), color = red, key = "Above x-axis", xtics_secondary = true, xaxis_secondary = true, explicit(x^2,x,-1,1)) $ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ wxdraw2d( key = "Bottom x-axis", explicit(x+1,x,1,2), color = red, key = "Above x-axis", xtics_secondary = true, xaxis_secondary = true, explicit(x^2,x,-1,1)) $ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ draw2d(explicit(x^3,x,-1,1), xaxis = true, xaxis_width = 3); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ wxdraw2d(explicit(x^3,x,-1,1), xaxis = true, xaxis_width = 3); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ draw2d(explicit(x^3,x,-1,1), xaxis = true, xaxis_type = solid)$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ wxdraw2d(explicit(x^3,x,-1,1), xaxis = true, xaxis_type = solid)$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ draw2d(explicit(x^3,x,-1,1), xaxis = true, xaxis_color = red)$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ wxdraw2d(explicit(x^3,x,-1,1), xaxis = true, xaxis_color = red)$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ draw2d(explicit(x^3,x,-1,1), yaxis = true, yaxis_color = blue)$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ wxdraw2d(explicit(x^3,x,-1,1), yaxis = true, yaxis_color = blue)$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ draw2d( explicit(sin(x),x,0,10), yaxis_secondary = true, ytics_secondary = true, color = blue, explicit(100*sin(x+0.1)+2,x,0,10)); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ wxdraw2d(explicit(x^3,x,-1,1), yaxis = true, yaxis_width = 3)$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ wxdraw2d(explicit(x^3,x,-1,1), yaxis = true, yaxis_type = solid)$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ draw2d(explicit(x^3,x,-1,1), yaxis = true, yaxis_type = solid, yaxis_color = red)$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ wxdraw2d(explicit(x^3,x,-1,1), yaxis = true, yaxis_type = solid, yaxis_color = red)$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ wxdraw2d(explicit(x^3,x,-1,1), yaxis = true, yaxis_type = solid, yaxis_width = 3, yaxis_color = red)$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ draw3d(explicit(x^2+y^2,x,-1,1,y,-1,1), zaxis = true, zaxis_type = solid, zaxis_width = 3)$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ wxdraw3d(explicit(x^2+y^2,x,-1,1,y,-1,1), zaxis = true, zaxis_type = solid, zaxis_width = 3)$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ draw3d(explicit(x^2+y^2,x,-1,1,y,-1,1), zaxis = true, zaxis_type = solid)$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ wxdraw3d(explicit(x^2+y^2,x,-1,1,y,-1,1), zaxis = true, zaxis_type = solid)$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ draw3d(xyplane = %e-2, explicit(x^2+y^2,x,-1,1,y,-1,1))$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ wxdraw3d(xyplane = %e-2, explicit(x^2+y^2,x,-1,1,y,-1,1))$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ draw3d(rot_vertical = 170, explicit(sin(x^2+y^2),x,-2,2,y,-2,2) )$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ wxdraw3d(rot_vertical = 170, explicit(sin(x^2+y^2),x,-2,2,y,-2,2) )$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ draw3d(rot_vertical = 170, rot_horizontal = 360, explicit(sin(x^2+y^2),x,-2,2,y,-2,2) )$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ wxdraw3d(rot_vertical = 170, rot_horizontal = 360, explicit(sin(x^2+y^2),x,-2,2,y,-2,2) )$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ 1+2; /* [wxMaxima: input end ] */ /* Maxima can't load/batch files which end with a comment! */ "Created with wxMaxima"$