/* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/ /* [ Created with wxMaxima version 0.8.5 ] */ /* [wxMaxima: comment start ] maximum: [wxMaxima: comment end ] */ /* [wxMaxima: input start ] */ draw3d(xlabel="x", ylabel="y", zlabel="z", title="z=exp(-(x^2+y^2))", line_width=2, explicit(exp(-x^2-y^2), x,-2.5,2.5, y,-2.5,2.5), contour_levels=15, contour=both, surface_hide=true, terminal=wxt)$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ draw3d(xlabel="x", ylabel="y", zlabel="z", title="z=exp(-(x^2+y^2))", line_width=2, explicit(exp(-(x^2+y^2)), x,-2.5,2.5, y,-2.5,2.5), contour_levels=15, contour=map, surface_hide=true, terminal=wxt)$ /* [wxMaxima: input end ] */ /* [wxMaxima: comment start ] saddle: [wxMaxima: comment end ] */ /* [wxMaxima: input start ] */ draw3d(xlabel="x", ylabel="y", zlabel="z", title="z=x^2-y^2", line_width=2, explicit(x^2-y^2, x,-2.5,2.5, y,-2.5,2.5), contour_levels=15, contour=both, surface_hide=true, terminal=wxt)$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ draw3d(xlabel="x", ylabel="y", zlabel="z", title="z=x^2-y^2", line_width=2, explicit(x^2-y^2, x,-2.5,2.5, y,-2.5,2.5), contour_levels=15, contour=map, surface_hide=true, terminal=wxt)$ /* [wxMaxima: input end ] */ /* [wxMaxima: comment start ] monkey saddle: [wxMaxima: comment end ] */ /* [wxMaxima: input start ] */ draw3d(xlabel="x", ylabel="y", zlabel="z", title="z=x^3-3*x*y^2", line_width=2, xu_grid=40, yv_grid=40, explicit(x^3-3*x*y^2, x,-2.5,2.5, y,-2.5,2.5), contour_levels=20, contour=both, surface_hide=true, terminal=wxt)$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ draw3d(xlabel="x", ylabel="y", zlabel="z", title="z=x^3-3*x*y^2", line_width=2, xu_grid=120, yv_grid=120, explicit(x^3-3*x*y^2, x,-2.5,2.5, y,-2.5,2.5), contour_levels=20, contour=map, surface_hide=true, terminal=wxt)$ /* [wxMaxima: input end ] */ /* [wxMaxima: comment start ] boundary critical points: [wxMaxima: comment end ] */ /* [wxMaxima: input start ] */ draw3d(xlabel="x", ylabel="y", zlabel="z", title="z=sqrt(1-x^2-y^2)", line_width=2, parametric_surface(v*cos(t),v*sin(t), sqrt(1-v^2), v,0,1,t,0,2*%pi), surface_hide=true, terminal=wxt)$ /* [wxMaxima: input end ] */ /* [wxMaxima: comment start ] local min: [wxMaxima: comment end ] */ /* [wxMaxima: input start ] */ draw3d(xlabel="x", ylabel="y", zlabel="z", title="z=x^3+y^3-12*x*y", line_width=2, explicit(x^3+y^3-12*x*y, x,-4,8, y,-4,8), contour_levels=20, contour=both, surface_hide=true, terminal=wxt)$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ draw3d(xlabel="x", ylabel="y", zlabel="z", title="z=x^3+y^3-12*x*y", line_width=2, explicit(x^3+y^3-12*x*y, x,-4,8, y,-4,8), contour_levels=20, contour=map, surface_hide=true, terminal=wxt)$ /* [wxMaxima: input end ] */ /* [wxMaxima: comment start ] second derivative test fails: [wxMaxima: comment end ] */ /* [wxMaxima: input start ] */ draw3d(xlabel="x", ylabel="y", zlabel="z", title="z=x^4+y^4", line_width=2, explicit(x^4+y^4, x,-2.5,2.5, y,-2.5,2.5), contour_levels=20, contour=both, surface_hide=true, terminal=wxt)$ /* [wxMaxima: input end ] */ /* [wxMaxima: comment start ] boundary min/max: [wxMaxima: comment end ] */ /* [wxMaxima: input start ] */ draw3d(xlabel="x", ylabel="y", zlabel="z", title="z=x^2-y", line_width=2, explicit(x^2-y, x,0,1, y,0,1), surface_hide=true, terminal=wxt)$ /* [wxMaxima: input end ] */ /* Maxima can't load/batch files which end with a comment! */ "Created with wxMaxima"$