/* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/
/* [ Created with wxMaxima version 17.10.1 ] */
/* [wxMaxima: title   start ]
Priklady - kapitola 3 - a
   [wxMaxima: title   end   ] */


/* [wxMaxima: comment start ]
Cisla prikladu koresponduji s diplomovou praci
   [wxMaxima: comment end   ] */


/* [wxMaxima: comment start ]
Priklad 3.1.
   [wxMaxima: comment end   ] */


/* [wxMaxima: input   start ] */
zadani:'integrate(cos(x),x,0,%pi/2);
/* [wxMaxima: input   end   ] */


/* [wxMaxima: input   start ] */
zadani=ev(zadani,nouns);
/* [wxMaxima: input   end   ] */


/* [wxMaxima: input   start ] */
int:integrate(cos(x),x);
/* [wxMaxima: input   end   ] */


/* [wxMaxima: input   start ] */
subst(%pi/2,x,int)-subst(0,x,int);
/* [wxMaxima: input   end   ] */


/* [wxMaxima: input   start ] */
f(x):=cos(x); g(x):=0;
/* [wxMaxima: input   end   ] */


/* [wxMaxima: input   start ] */
draw2d(grid=true,xaxis=true,yaxis=true,xrange=[-3,6],yrange=[-1.5,1.5],fill_color=grey,filled_func=true,filled_func=f(x),explicit(g(x),x,0,%pi/2),filled_func=false,color=black,key="cos(x)",explicit(f(x),x,-%pi/2,3*%pi/2),color=red,key="x",explicit(g(x),x,-3,6));
/* [wxMaxima: input   end   ] */


/* [wxMaxima: comment start ]
Priklad 3.2.
   [wxMaxima: comment end   ] */


/* [wxMaxima: input   start ] */
zadani:'integrate(1/(x^2-1),x,2,3);
/* [wxMaxima: input   end   ] */


/* [wxMaxima: input   start ] */
exp:part(zadani,1);
/* [wxMaxima: input   end   ] */


/* [wxMaxima: input   start ] */
exp2:partfrac(exp,x);
/* [wxMaxima: input   end   ] */


/* [wxMaxima: input   start ] */
iresult:'integrate(exp2,x,2,3);
/* [wxMaxima: input   end   ] */


/* [wxMaxima: input   start ] */
result:ev(iresult,nouns);
/* [wxMaxima: input   end   ] */


/* [wxMaxima: input   start ] */
radcan(result);
/* [wxMaxima: input   end   ] */


/* [wxMaxima: comment start ]
Priklad 3.3.
   [wxMaxima: comment end   ] */


/* [wxMaxima: input   start ] */
zadani:'integrate(x*atan(x),x,0,1);
/* [wxMaxima: input   end   ] */


/* [wxMaxima: input   start ] */
batch("C:/Users/procedura-idefparts.mac");
/* [wxMaxima: input   end   ] */


/* [wxMaxima: input   start ] */
idefparts(atan(x),x,x,0,1);
/* [wxMaxima: input   end   ] */


/* [wxMaxima: input   start ] */
ev(%,nouns);
/* [wxMaxima: input   end   ] */


/* [wxMaxima: input   start ] */
expand(%);
/* [wxMaxima: input   end   ] */


/* [wxMaxima: comment start ]
Priklad 3.4.
   [wxMaxima: comment end   ] */


/* [wxMaxima: input   start ] */
zadani:'integrate(x*(%e^(2*x)),x,0,1);
/* [wxMaxima: input   end   ] */


/* [wxMaxima: input   start ] */
idefparts(x,%e^(2*x),x,0,1);
/* [wxMaxima: input   end   ] */


/* [wxMaxima: input   start ] */
ev(%,nouns);
/* [wxMaxima: input   end   ] */


/* [wxMaxima: input   start ] */
expand(%);
/* [wxMaxima: input   end   ] */



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