23 lines
1.1 KiB
Plaintext
23 lines
1.1 KiB
Plaintext
/* [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"$
|