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


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


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


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


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


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


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


/* [wxMaxima: input   start ] */
f:(5*x^3+8*x^2+16)/(2*x^3*(x^2+2))$ 'integrate(f,x);
/* [wxMaxima: input   end   ] */


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


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


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


/* [wxMaxima: input   start ] */
'integrate(tan(x)^2,x);
/* [wxMaxima: input   end   ] */


/* [wxMaxima: input   start ] */
subst(sin(x)/cos(x),tan(x),tan(x)^2);
/* [wxMaxima: input   end   ] */


/* [wxMaxima: input   start ] */
subst(1-cos(x)^2,num(%),%);
/* [wxMaxima: input   end   ] */


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


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


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


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


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


/* [wxMaxima: input   start ] */
iparts(x,sin(2*x),x);
/* [wxMaxima: input   end   ] */


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


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


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


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


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


/* [wxMaxima: comment start ]
Příklad 2.7.
   [wxMaxima: comment end   ] */


/* [wxMaxima: input   start ] */
zadani:'integrate(%e^(a*x)*cos(b*x),x);
/* [wxMaxima: input   end   ] */


/* [wxMaxima: input   start ] */
perpartes:iparts(%e^(a*x),cos(b*x),x);
/* [wxMaxima: input   end   ] */


/* [wxMaxima: input   start ] */
Q:inpart(perpartes,1);
/* [wxMaxima: input   end   ] */


/* [wxMaxima: input   start ] */
R:-(a/b);
/* [wxMaxima: input   end   ] */


/* [wxMaxima: input   start ] */
S:iparts(%e^(a*x),sin(b*x),x);
/* [wxMaxima: input   end   ] */


/* [wxMaxima: input   start ] */
iresult:expand(Q+(R*S));
/* [wxMaxima: input   end   ] */


/* [wxMaxima: input   start ] */
eqn:zadani=iresult;
/* [wxMaxima: input   end   ] */


/* [wxMaxima: input   start ] */
solve(eqn,zadani);
/* [wxMaxima: input   end   ] */



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