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

/* [wxMaxima: title   start ]
Esimerkkitehtävät
   [wxMaxima: title   end   ] */

/* [wxMaxima: comment start ]
Tehtävä 1
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
exp(log(x));
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
log(exp(x));
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
exp(log(sin(x)));
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
exp(sin(log(x)));
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
Oikein.
   [wxMaxima: comment end   ] */

/* [wxMaxima: comment start ]
Tehtävä 2
   [wxMaxima: comment end   ] */

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

/* [wxMaxima: input   start ] */
ratsimp((x^4-5*x^3+5*x^2+5*x-6)/(x^2-1));
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
Sieventyi.
   [wxMaxima: comment end   ] */

/* [wxMaxima: comment start ]
Tehtävä 3
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
y:tan(k*x);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
diff(y,x);
/* [wxMaxima: input   end   ] */

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

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

/* [wxMaxima: comment start ]
Kokeilin sieventää.
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
2*k^2*tan(k*x)*(1+(tan(k*x))^2);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
trigsimp(2*k^2*tan(k*x)*(1+(tan(k*x))^2));
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
Tuli samat.
   [wxMaxima: comment end   ] */

/* [wxMaxima: comment start ]
Tehtävä 4
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
f:x^2+x+41;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
g:2*x^2+11;
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: comment start ]
Nollakohdat:
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
ev(f,x=-5);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
ev(f,x=6);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
p1:[-5,61];
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
p2:[6,83];
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw2d(
color=blue,
explicit(f,x,-10,10),
color=red,
explicit(g,x,-10,10),
color=black,
point_type=circle,
points([p1,p2])
);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
Kuvassa kuvaajat eri väreillä piirrettynä ja niiden leikkauspisteet
   [wxMaxima: comment end   ] */

/* [wxMaxima: comment start ]
Tehtävä 5
   [wxMaxima: comment end   ] */

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

/* [wxMaxima: input   start ] */
f:x^3+y^2=1;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
g:x^2+y^2=25;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
ratkaisut:algsys([f,g],[x,y]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
pisteet:map(lambda([z],ev([x,y],z)),ratkaisut);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
p1:pisteet[5];
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
p2:pisteet[6];
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
wxdraw2d(
color=black,
implicit(f,x,-5,5,y,-5,5),
color=blue,
implicit(g,x,-5,5,y,-5,5),
color=red,
point_type=circle,
points([p1,p2])
);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
Tehtävä 6
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
romberg(exp(-x^2)*log(x),0.01, 10);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
gamma:((-4*%)-2*log(2)*sqrt(%pi))/sqrt(%pi);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
gamma,numer;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
Ei tullut kovin tarkan näköinen tulos, mutta on sinne päin.
   [wxMaxima: comment end   ] */

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