# Exercici 06.1

## Apartat b.1)

kill(all)$

f(x):=log((1+x)/(1-x));

f(-x);

f1(x):=log(1+x) - log(1-x);

f1(-x);

S'observa que f(-x) = -f(x). Per tant aquesta funció és senar

wxplot2d([f1(x)], [x,-0.99,0.99],   [gnuplot_preamble, "set grid;"])$

## Apartat b.2)

kill(all)$

f(x):=(a^x + a^(-x))/2;

factor(%);

f(-x);

ratsimp(%);

S'observa que f(-x) = f(x). Per tant aquesta funció és parell

## Apartat c)

kill(all)$

f(x):=(f(x) + f(-x))/2 + (f(x) - f(-x))/2;

P(x):=(f(x)+f(-x))/2;

S(x):=(f(x)-f(-x))/2;

La primera és parell i la segona senar

kill(all)$

f(x):=exp(x);
P(x):=(exp(x)+exp(-x))/2;       S(x):=(exp(x)-exp(-x))/2;

wxplot2d([P(x)], [x,-5,5],   [gnuplot_preamble, "set grid;"])$

wxplot2d([S(x)], [x,-5, 5],   [gnuplot_preamble, "set grid;"])$

kill(all)$

f(x):=x^3 + 5*x + 4;
P(x):=( (x^3 + 5*x + 4) + (-x^3-5*x+4) )/2;       
S(x):=( (x^3 + 5*x + 4) - (-x^3-5*x+4) )/2;

wxplot2d([P(x)], [x,-5,5],   [gnuplot_preamble, "set grid;"])$

wxplot2d([S(x)], [x,-5, 5],   [gnuplot_preamble, "set grid;"])$