/* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/
/* [ Created with wxMaxima version 18.02.0 ] */
/* [wxMaxima: input   start ] */
/* Komplexe Nullstellenbeispiel */
z:a+b*%i;
 /*plot3d(abs(z^3-3*z^2+4*z-2),[a,0.25,1.75],[b,-1.25,1.25], */
/*plot3d(abs(z^3-7*z^2+17*z-15),[a,1.5,3.2],[b,-1.2,1.2],*/ 
plot3d(abs(z^2+1),[a,-1.0,1.0],[b,-1.5,1.5], 
/*contour_plot(abs(z^3-3*z^2+4*z-2),[a,0.25,1.75],[b,-1.25,1.25], [gnuplot_preamble, "set cntrparam levels 39"],*/
/*contour_plot(abs(z^3-7*z^2+17*z-15),[a,1.5,3.2],[b,-1.2,1.2], [gnuplot_preamble, "set cntrparam levels 39"],*/
/*contour_plot(abs(z^2+1),[a,-1.0,1.0],[b,-1.5,1.5], [gnuplot_preamble, "set cntrparam levels 39"],*/
    /*[zlabel,""],[mesh_lines_color,false], [elevation,0], [azimuth,0], */
    [grid,100,100], [ztics,false], [color_bar_tics,0.01],
    [zlabel,"|p(z)|"],[mesh_lines_color,true],[ztics,1], 
    [box,true],[xtics,0.25],[ytics,0.5],
    [legend,false],[palette,[gradient, "#0000f4", "#0000ff"]],[color,blue]);
/* [wxMaxima: input   end   ] */



/* Old versions of Maxima abort on loading files that end in a comment. */
"Created with wxMaxima 18.02.0"$