/* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/
/* [ Created with wxMaxima version 0.8.6 ] */

/* [wxMaxima: title   start ]
2D Grafika
   [wxMaxima: title   end   ] */

/* [wxMaxima: section start ]
Úvod
   [wxMaxima: section end   ] */

/* [wxMaxima: input   start ] */
f(x):=exp(-x^2)*sin(%pi*x^3);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxplot2d(f(x), [x, -2,2]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
plot2d(f(x), [x, -2,2], [plot_format,mgnuplot]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
plot2d(f(x), [x, -2,2], [plot_format,openmath]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxplot2d(f, [x,-2,2]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxplot2d(f(t), [t,-2,2],[x,-3,3]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxplot2d(f(t), [t,-2,2],[x,-1,1]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxplot2d([f(x), exp(-x^2), -exp(-x^2)], [x,-2,2]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxplot2d([sin(x)/x,cos(x)], [x,0,2*%pi], [style, [lines,1,1], [lines,4,2]]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
[lines,1,1] - první z čísel udává tloušťku čáry a druhé barvu: 
1: blue, 2: red, 3: magenta, 4: orange, 5: brown, 6: lime a 7: aqua
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
wxplot2d([sin(x^2)/x^2], [x,-6,6], [y,0,1]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxplot2d([sin(x^2)/x^2], [x,-6,6]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxplot2d([sin(x^2)/x^2], [x,-6,6], [y,-6,6]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxplot2d(tan(x), [x,-%pi,%pi]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxplot2d(tan(x), [x,-%pi,%pi],[y,-10,10]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
my_preamble: "set xtics ('-pi' -3.1415, '-pi/2' -1.5708, '0' 0, \
'pi/2' 1.5708, 'pi' 3.1415)"$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
Tento řetězec musí být zadán bez řádkových zlomů.
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
wxplot2d(tan(x),
       [x, -%pi, 1*%pi], [y, -10, 10], [axes, x],
       [gnuplot_preamble, my_preamble]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxplot2d(sin(x), [x,0,2*%pi], [style,points]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
xx:[10, 20, 30, 40, 50]$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
yy:[.6, .9, 1.1, 1.3, 1.4]$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
xy:[[10,.6], [20,.9], [30,1.1], [40,1.3], [50,1.4]]$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxplot2d([discrete,xx,yy]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxplot2d([discrete,xx,yy], [style, points]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxplot2d([discrete, xy], [style, [points,5,2,6]]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
Volba points může mít dva nebo tři parametry, první parametr určuje poloměr zvoleného objektu, 
druhý parametr (celé číslo) určuje barvu (stejně jako u volby lines) a třetí parametr je využíván pouze při zobrazení
pomocí Gnuplotu a určuje objekt pro zobrazení bodu.
Typy objektů: 1: filled circles, 2: open circles, 3: plus signs, 4: x, 5: *, 6: filled squares, 7: open squares, 
8: filled triangles, 9: open triangles, 10: filled inverted triangles, 11: open inverted triangles, 
12: filled lozenges and 13: open lozenges. 
   [wxMaxima: comment end   ] */

/* [wxMaxima: comment start ]
Volba linesdots akceptuje až čtyři parametry: tloušťku čáry, poloměr bodu, barvu a typ objektu. 
   [wxMaxima: comment end   ] */

/* [wxMaxima: comment start ]
Implicitní hodnoty všech voleb
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
plot_options;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
Nastavení provádíme buď lokálně příkazem plot2d nebo globálně příkazem set_plot_option.
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
f(x):=sqrt(2)-sqrt(2*sqrt(x))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxplot2d(f(x), [x,0,1], [y,0,sqrt(2)]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxplot2d(f(x), [x,0,0.01], [y,1,sqrt(2)]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxplot2d(f(x), [x,0,1], [y,0,sqrt(2)], [nticks, 3], [adapt_depth, 0]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxplot2d(f(x), [x,0,1], [y,0,sqrt(2)], [nticks, 3]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
Implicitní hodnoty jsou pro nticks 29 a pro adapt_depth 10.
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
wxplot2d(x/(1-cos(5*x)), [x,-5,5], [y,-5,5]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxplot2d(x+sin(2*%pi*x), [x,0,49]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: section start ]
Speciální dvojdimensionální obrázky
   [wxMaxima: section end   ] */

/* [wxMaxima: comment start ]
Krivka daná parametricky
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
wxplot2d([parametric, t*cos(2*%pi*t), t*sin(2*%pi*t), [t,0,10]], [nticks,500]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxplot2d([parametric, cos(t), sin(t), [t,-%pi,%pi]],[x,-4/3,4/3]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxplot2d([parametric, cos(t), sin(t), [t,-%pi,%pi]],[x,-1.2,1.2], [y,-1.2,1.2],
[gnuplot_preamble, "set size ratio 1;"]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
kill(all);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
Grafické možnosti Maximy výrazně rozšiřuje balíček draw. Ke správné činnosti vyžaduje instalaci Gnuplotu
alepoň ve verzi 4.2.
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
load(draw);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw2d(parametric(cos(t),sin(t),t,0,2*%pi),proportional_axes=xy);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
Křivka v polárních souřadnicích
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
wxdraw2d(nticks=200,polar(sin(3*theta),theta,0,2*%pi));
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw2d(nticks=250,polar(sin(t)/t,t,-6*%pi,6*%pi));
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
Křivka daná implicitně
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
wxdraw2d(implicit(x^3+y^3-5*x*y+1/5=0, x,-3,3, y,-3,3));
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw2d(xaxis=true, yaxis=true, implicit(2*x^4+y^4-3*x^2*y-2*y^3+y^2, x,-5/2,5/2, 
y,0,5/2));
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
Následující obrázek ukazuje oblast vyhovující nerovnicím

   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
wxdraw2d(
x_voxel = 60,
y_voxel = 60,
proportional_axes=xy,
fill_color = green,
region(x+y<5 and 0<x and x<=4, x,-1,5, y,-5,7));
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
Prokládání křivek 
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
xx:[1,2,3,4,5,6,7,8,9];
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
xx:makelist(i,i,1,9);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
yy:[2,3,5,7,11,13,17,19,23];
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw2d(points(xx,yy));
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
dataL:[[1,2],[2,3],[3,5],[4,7],[5,11],[6,13],[7,17],[8,19],[9,23]];
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw2d(points(dataL));
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
dataM : apply ('matrix, dataL);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
load(lsquares);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
fprintprec:8;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
lsquares_estimates (dataM, [x,y], y=a*x+b, [a,b]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
fit: a*x+b, %;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxplot2d ([fit, [discrete, dataL]], [x,0,10], [style,[lines,4],[points,3,2,1]]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw2d(line_width=2, color=blue, explicit(fit, x,0,10),
       color=red, point_type=6, point_size=2, points(dataL));
/* [wxMaxima: input   end   ] */

/* [wxMaxima: section start ]
Ukládání grafiky
   [wxMaxima: section end   ] */

/* [wxMaxima: input   start ] */
wxplot2d(sin(x), [x,-%pi,%pi], [box, false]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
preamble: "set xtics(-3,0,3); set ytics(-1,0,1)"$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxplot2d(sin(x), [x,-%pi,%pi], [gnuplot_preamble, preamble]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
plot2d(sin(x), [x,-%pi,%pi], [psfile, "sin_maxima.eps"]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
plot2d(sin(x), [x,-%pi,%pi], [gnuplot_term,ps], 
[gnuplot_out_file,"sin_maxima2.eps"]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
draw2d(explicit(sin(x),x,-%pi,%pi), terminal=eps_color);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
draw2d(explicit(sin(x),x,-%pi,%pi), terminal=svg);
/* [wxMaxima: input   end   ] */

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