# Ejercicio 06.4

## Apartado a)

kill(all)$

f1(x):=1.02/(0.9851+1.024*x^2);       
f2(x):=exp(4-1.02*x);
F1(x):= if x<4 then f1(x) else f2(x);

wxplot2d([F1(x)], [x,-4,10], [gnuplot_preamble, "set grid;"])$

wxplot2d([F1(x)], [x,-4,10], [y,0,1.2], [gnuplot_preamble, "set grid;"])$

## Apartado b)

kill(all)$

f1(x):=exp(1.00234*x);       
f2(x):=exp(-1.00542*x);
F1(x):= if x<0 then f1(x) else f2(x);

wxplot2d([F1(x)], [x,-4,4], [gnuplot_preamble, "set grid;"])$

wxplot2d([F1(x)], [x,-4,4], [y,0,1.2], [gnuplot_preamble, "set grid;"])$

## Apartado c)

kill(all)$

f1(x):=2.001*x^2 + 1.024*x - 0.989;      
f2(x):=1/(x-2);       
f3(x):=log(x-2);
F1(x):= if x<=0 then f1(x) else (if x<2 then f2(x) else f3(x));

wxplot2d([F1(x)], [x,-4,4], [gnuplot_preamble, "set grid;"])$

## Apartado d)

kill(all)$

f1(x):=exp(1.02*x)*cos(0.45*x);      
f2(x):=0.432*x^2 + 1;       
f3(x):=2.0032*log(x);
f4(x):=34.561/(1+1.0034*x^2);
F1(x):= if x<=0 then f1(x) else (if x<=2 then f2(x) else (if x<=4 then f3(x) else f4(x)) );

wxplot2d([F1(x)], [x,-4,10], [gnuplot_preamble, "set grid;"])$