# Ejemplo de aproximación de orden 1 al valor de la función en el entorno de un punto dado

1. Se define la función "f(x)":

f(x):=1+sin(x);

2. Se define la ecuación de la recta tangente "rtanf(x)":

rtanf(x):=x+1;

3. Dibujamos:

wxplot2d([f(x),rtanf(x)], [x,-1,1]);

4. Valores de prueba para x (centrados en x_0=0):

v:[-1,-0.5,-0.1,-0.01,0,0.01,0.1,0.5,1];

5. Evaluamos f(x) para esos valores

f(v),numer;

6. Evaluamos esos valores considerando la recta tangente:

rtanf(v);

7. El error absoluto es la diferencia en valor absoluto entre 5. y 6.:

eabs:abs(f(v)-rtanf(v)),numer;

Dibujamos la función de error en el entorno de Xo=0:

wxplot2d([discrete,v,eabs],[x,-1,1],
     [style, lines], grid2d,
     [title, "Error absoluto"],
     [xlabel, "Xo"],
     [ylabel, "ErrAbs aproximación"]);