# Exercici 06.2

## apartat a)

kill(all)$

Eq1:y=2.34*x^3-1.87;      solve(Eq1, x);

f1(x):=2.34*x^3-1.87;       
f1_inv(x):=(100*x+187)^(1/3)/234^(1/3);
Id(x):=x;

wxplot2d([f1(x), f1_inv(x), Id(x)], [x,-4,4], [y,-4,4],
 [gnuplot_preamble, "set grid;"], [nticks,5])$

## Apartat b)

kill(all)$

Eq2:y=1/(x-5);      solve(Eq2, x);

f2(x):=1/(x-5);       
f2_inv(x):=(5*x+1)/x;
Id(x):=x;

wxplot2d([f2(x), f2_inv(x), Id(x)], [x,-5,5], [y,-4,4],
 [gnuplot_preamble, "set grid;"],  [nticks,5])$

## Apartat c)

kill(all)$

Eq3:y=x^3 + 3.02*x^2 + 3.034*x + 1.087;      solve(Eq3, x);

f3(x):=x^3 + 3.02*x^2 + 3.034*x + 1.087;       
f3_inv(x):=(sqrt(527343750*x^2-77035000*x+2813323)/(3125*6^(3/2))+(421875*x-30814)/843750)^(1/3)+
23/(11250*(sqrt(527343750*x^2-77035000*x+2813323)/(3125*6^(3/2))+(421875*x-30814)/843750)^(1/3))-151/150;
Id(x):=x;

wxplot2d([f3(x), f3_inv(x), Id(x)], [x,-4,4], [y,-4,4],
 [gnuplot_preamble, "set grid;"],  [nticks,5])$

## Apartat d)

kill(all)$

y=1.0234*exp(1.02*x);
x=(1/1.02)*log(y/1.0234);

f4(x):=1.0234*exp(1.02*x);       
f4_inv(x):= 0.98039215686275*log(0.97713504006254*x) ;
Id(x):=x;

wxplot2d([f4(x), f4_inv(x), Id(x)], [x,-4,4], [y,-4,4],
 [gnuplot_preamble, "set grid;"],  [nticks,5])$