diff --git a/Rel1/relacion1.wxm b/Rel1/relacion1.wxm new file mode 100644 index 0000000..313ca73 --- /dev/null +++ b/Rel1/relacion1.wxm @@ -0,0 +1,510 @@ +/* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/ +/* [ Created with wxMaxima version 22.04.0 ] */ +/* [wxMaxima: title start ] +Funciones + [wxMaxima: title end ] */ + + +/* [wxMaxima: section start ] +Método de bisección + [wxMaxima: section end ] */ + + +/* [wxMaxima: input start ] */ +bisec(f, a, b, epsilon):= block( + x : float((a+b)/2), + + if f(x)=0 or (abs(x-a) < epsilon) + then return(x), + + if f(x)*f(a) < 0 + then return( bisec(f, a, x, epsilon) ) + else + return( bisec(f, x, b, epsilon) ) +)$ +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +f(x):= x^2-1$ +bisec(f, 0, 2.2, 0.001); +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: section start ] +Método de regula falsi + [wxMaxima: section end ] */ + + +/* [wxMaxima: input start ] */ +regulaFalsi(f, a, b, epsilon) := block( + x : float(b - ((b-a)*f(b))/(f(b)-f(a))), + + if f(x)=0 or (abs(x-a) < epsilon) + then return(x), + + if f(x)*f(a) < 0 + then return( regulaFalsi(f, a, x, epsilon) ) + else + return( regulaFalsi(f, x, b, epsilon) ) +)$ +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +f(x):= x^2-1$ +regulaFalsi(f, 0, 2, 0.00001); +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: section start ] +Método de la secante + [wxMaxima: section end ] */ + + +/* [wxMaxima: input start ] */ +secante(f, a, b, epsilon) := block( + x : float(b - ((b-a)*f(b))/(f(b)-f(a))), + + if f(x)=0 or (abs(x-b) < epsilon) + then return(x), + + return(secante(f, b, x, epsilon)) +)$ +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +f(x):= x^2-1$ +secante(f, 0, 3, 0.1); +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: section start ] +Método de Newton-Ralphson + [wxMaxima: section end ] */ + + +/* [wxMaxima: input start ] */ +newtonR(f, x_0, epsilon) := block( + kill(x, g), + define(g(x), diff(f(x), x)), + err : epsilon+1, + x_i : x_0, + + for i:0 step 1 while err > epsilon do block( + nuevo_x : float(x_i - f(x_i)/g(x_i)), + err : abs(nuevo_x-x_i), + x_i : nuevo_x, + if i>10000 then block( print("Fallo"), break() ) + ), + + return(x_i) +)$ +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: title start ] +Relación de ejercicios + [wxMaxima: title end ] */ + + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ + + +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + + +/* [wxMaxima: comment start ] +Encuentra una aproximación de las soluciones de las siguientes ecuaciones por el +método de Newton-Raphson con precisión de 10^{−7} , partiendo de un valor adecuado, +próximo a cada una de ellas. +a) 3x = 2 + x^2-e^x +b) x^2 + 10*cos x + x = 0. + [wxMaxima: comment end ] */ + + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + + +/* [wxMaxima: input start ] */ +newtonR(f, x_0, epsilon) := block( + kill(x, g), + define(g(x), diff(f(x), x)), + err : epsilon+1, + x_i : x_0, + + for i:0 step 1 while err > epsilon do block( + nuevo_x : (x_i - f(x_i)/g(x_i)), + err : abs(nuevo_x-x_i), + x_i : nuevo_x, + if i>10000 then block( print("Fallo"), break() ) + ), + + return(x_i) +)$ +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +kill(x)$ +f_1(x) := x^2-%e^x-3*x+2; +f_2(x) := x^2+10*cos(x)+x; +newtonR(f_2, 2.5, 0.01); +newtonR(f_1, -0.5, 0.01); +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +define(g(x), diff(f_2(x), x)); +g(2.5); +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: section start ] +Ejercicio 5 + [wxMaxima: section end ] */ + + +/* [wxMaxima: input start ] */ +f(x) := x^3-3*x^2*2^(-x)+3*x*4^(-x)-8^(-x)$ +newtonR(f, 0, 10^(-8)); +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: section start ] +Ejercicio 10 + [wxMaxima: section end ] */ + + +/* [wxMaxima: input start ] */ +f(x) := x^3+4*x^2-10$ +wxplot2d(f(x), [x,-3,3]); +wxplot2d(f(x), [x,-4,2]); +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +converge_10(x_0, iters) := block( + g(x) := (2*x^3+4*x^2+10)/(3*x^2+8*x), + x_i : x_0, + for i:0 step 1 while i < iters do block( + nuevo : g(x_i), + x_i : nuevo + ), + + return(x_i) +)$ +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +converge_10(0.2, 100); +converge_10(0.2, 10000); +converge_10(0.2, 1000000); +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: section start ] +Ejercicio 16 + [wxMaxima: section end ] */ + + +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + + +/* [wxMaxima: comment start ] +Considera el sistema de ecuaciones: + 3x_1 - cos(x_2*x_3) - 1/2 = 0 + x_1^2 - 81(x_2+0.1)^2 + sin(x_3) + 1.06 = 0 + e^(-x_1*x_2) + 20*x_3 + (10*%pi-3)/3 = 0 + +a) Escribe el sistema anterior en la forma x = g(x) despejando en la ecuación i la +variable x i , i = 1, 2, 3. +b) Demuestra, utilizando el resultado del ejercicio anterior que el sistema de ecua- +ciones tiene una única solución en +D = {(x_1, x_2, x_3) ∈ R^3 | 1 ≤ x_i ≤ 1, i = 1,2,3}. +c) Calcula una aproximación de la solución con el método de iteración funcio- +nal tomando x (0) = (0.1, 0.1, 0.1) con una tolerancia fijada de 10 −5 , donde la +tolerancia viene dada por la norma infinito de dos aproximaciones sucesivas. +d ) Sabiendo que la solución del sistema es x? = (0.5, 0, π/6) calcula el error abso- +luto cometido en la aproximación obtenida. +e) Calcula, utilizando la cota teórica del método de iteración funcional, el número +de iteraciones necesarias para asegurar un error absoluto menor que 10 −5 ¿Qué +conclusión extraes? + [wxMaxima: comment end ] */ + + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + + +/* [wxMaxima: comment start ] +Como puede verse, se cumplen las hipótesis del ejercicio anterior (las funciones son menores que 1/3 en el dominio especificado), por tanto, nuestra función es contractiva. + [wxMaxima: comment end ] */ + + +/* [wxMaxima: input start ] */ +f_1(x1,x2,x3) := (cos(x2*x3)+1/2)/3$ +f_2(x1,x2,x3) := sqrt( (x1^2+sin(x3)+1.06)/81 )-0.1$ +f_3(x1,x2,x3) := ( -%pi +3/10 -e^(-x1*x2))/20$ +define ( f_1x1(x1,x2,x3), diff(f_1(x1,x2,x3), x1) ); +define ( f_1x2(x1,x2,x3), diff(f_1(x1,x2,x3), x2) ); +define ( f_1x3(x1,x2,x3), diff(f_1(x1,x2,x3), x3) ); +define ( f_2x1(x1,x2,x3), diff(f_2(x1,x2,x3), x1) ); +define ( f_2x2(x1,x2,x3), diff(f_2(x1,x2,x3), x2) ); +define ( f_2x3(x1,x2,x3), diff(f_2(x1,x2,x3), x3) ); +define ( f_3x1(x1,x2,x3), diff(f_3(x1,x2,x3), x1) ); +define ( f_3x2(x1,x2,x3), diff(f_3(x1,x2,x3), x2) ); +define ( f_3x3(x1,x2,x3), diff(f_3(x1,x2,x3), x3) ); +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +x : cos(1); +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: comment start ] +Comprobamos que la imagen de la función está contenida en el dominio que se nos pide + [wxMaxima: comment end ] */ + + +/* [wxMaxima: input start ] */ +abs( f_1(x1,x2,x3) ) <= abs( (1+1/2)/3 ); +abs( f_2(x1,x2,x3) ) <= abs( sqrt(3.06/81)-0.1 ); +abs( f_3(x1,x2,x3) ) <= abs( float( (-%pi+3/10-%e)/20 ) ); +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: comment start ] +Por tanto, por el teorema de la convergencia global tenemos el resultado buscado. + [wxMaxima: comment end ] */ + + +/* [wxMaxima: comment start ] +Apartado c) + [wxMaxima: comment end ] */ + + +/* [wxMaxima: input start ] */ +ratprint:false$ +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +normaInfinito3(vector) := block( return(max(abs(vector[1]), abs(vector[2]), abs(vector[3]))) )$ +iteracionFuncional(f, x_0, epsilon) := block( + err : epsilon+1, + x_i : x_0, + + for i:0 step 1 while err > epsilon do block( + nuevo_x : f(x_i[1], x_i[2], x_i[3]), + err : float( normaInfinito3(nuevo_x-x_i) ), + x_i : nuevo_x, + if i>1000000 then block( print("Fallo"), break() ) + ), + + return(float(x_i)) +)$ +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +f(x1,x2,x3) := [ (cos(x2*x3)+1/2)/3, sqrt( (x1^2+sin(x3)+1.06)/81 )-0.1, (%pi +3/10 -%e^(-x1*x2))/20]$ +solucion : iteracionFuncional(f, [0.1,0.1,-0.1], 10^(-5)); +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: comment start ] +Apartado d) + [wxMaxima: comment end ] */ + + +/* [wxMaxima: input start ] */ +sin(1); +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +var : f(0.5, 0, -%pi/6); +var : [float(var[1]), float(var[2]), float(var[3])]; +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +variable : ( f(solucion[1], solucion[2], solucion[3]) - f(0.5, 0, -%pi/6) )$ +variable : [float(variable[1]), float(variable[2]), float(variable[3])]; +"---------"; +variable : normaInfinito3 (variable); + +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: comment start ] +Apartado e) + [wxMaxima: comment end ] */ + + +/* [wxMaxima: input start ] */ +f(n) := +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: section start ] +Ejercicio 19 + [wxMaxima: section end ] */ + + +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + + +/* [wxMaxima: comment start ] +Obtén aproximaciones de la solución de los sistemas de los ejercicios 16 y 18 mediante +el método de Newton. Compara la convergencia de los resultados obtenidos con los +diferentes métodos. + [wxMaxima: comment end ] */ + + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + + +/* [wxMaxima: input start ] */ +normaInfinito2(vector) := block( return(max(abs(vector[1]), abs(vector[2])))) )$ +normaInfinito3(vector) := block( return(max(abs(vector[1]), abs(vector[2]), abs(vector[3]))) )$ +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: subsubsect start ] +Ejercicio 16 + [wxMaxima: subsubsect end ] */ + + +/* [wxMaxima: input start ] */ +newton3(f, x_0, epsilon) := block( + err : epsilon+1, + x_i : x_0, + + for i:0 step 1 while err > epsilon do block( + J : jacobian(f(x,y,z), [x,y,z]), + x_imas1 : x_i - inv( subst([x=x_i[1], y=x_i[2], z=x_i[3]], J) )*f(x_i), + err : normaInfinito3(x_imas1-x_i), + x_i : x_imas1, + + if i>10000 then block( print("Fallo"), break() ) + ), + + return(x_i) +)$ +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +f(x1,x2,x3) := ( 3*x1-cos(x2*x3)-1/2, x1^2 - 81*(x2+0.1)^2 + sin(x3) + 1.06, %e^(-x1*x2) + 20*x3 + (10*%pi-3)/3)$ +x_0 : [0.1, 0.1, 0.1]$ +newton2(f, x_0, 10^(-5)); +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: subsubsect start ] +Ejercicio 18 + [wxMaxima: subsubsect end ] */ + + +/* [wxMaxima: input start ] */ +newton2(f, x_0, epsilon) := block( + err : epsilon+1, + x_i : x_0, + + for i:0 step 1 while err > epsilon do block( + J : jacobian(f(x,y,z), [x,y,z]), + x_imas1 : x_i - inv( subst([x=x_i[1], y=x_i[2], z=x_i[3]], J) )*f(x_i), + err : normaInfinito2(x_imas1-x_i), + x_i : x_imas1, + + if i>10000 then block( print("Fallo"), break() ) + ), + + return(x_i) +)$ +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +f(x1, x2) := (5*x1^2, x2-0.25*(sin(x1)+cos(x2)))$ +x_0 : [0.1, 0.1, 0.1]$ +newton2(f, x_0, 10^(-5)); +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: section start ] +Ejercicio 20 + [wxMaxima: section end ] */ + + +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + + +/* [wxMaxima: comment start ] +El método de Newton precisa en cada iteración de la resolución de un sistema de +ecuaciones lineales, con diferentes matrices de coeficientes. Este hecho se traduce +en un elevado coste computacional. Se han propuesto diferentes modificaciones al +método para reducir este coste. La más sencilla consiste en sustituir en cada iteración +Jf(x(n)) por una matriz fija, Jf(x(0)) y de esta forma todos los sistemas lineales a +resolver tienen la misma matriz de coeficientes. Analiza experimentalmente con el +sistema del ejercicio 16 como afecta esta modificación a la convergencia del método. + [wxMaxima: comment end ] */ + + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + + +/* [wxMaxima: input start ] */ +normaInfinito3(vector) := block( return(max(abs(vector[1]), abs(vector[2]), abs(vector[3]))) )$ +newtonMejorado(f, x_0, epsilon) := block( + err : epsilon+1, + x_i : x_0, + J : subst([x=x_i[1], y=x_i[2], z=x_i[3]], jacobian(f(x,y,z), [x,y,z])), + J : inv (J), + + for i:0 step 1 while err > epsilon do block( + + x_imas1 : x_i - J*f(x_i), + err : normaInfinito3(x_imas1-x_i), + x_i : x_imas1, + + if i>10000 then block( print("Fallo"), break() ) + ), + + return(x_i) +)$ +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +f(x1,x2,x3) := ( 3*x1-cos(x2*x3)-1/2, x1^2 - 81*(x2+0.1)^2 + sin(x3) + 1.06, %e^(-x1*x2) + 20*x3 + (10*%pi-3)/3)$ +x_0 : [0.1, 0.1, 0.1]$ +newtonMejorado(f, x_0, 10^(-5)); +/* [wxMaxima: input end ] */ + + + +/* Old versions of Maxima abort on loading files that end in a comment. */ +"Created with wxMaxima 22.04.0"$ diff --git a/Rel2/relacion2.wxm b/Rel2/relacion2.wxm new file mode 100644 index 0000000..bb34c2d --- /dev/null +++ b/Rel2/relacion2.wxm @@ -0,0 +1,30646 @@ +/* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/ +/* [ Created with wxMaxima version 22.04.0 ] */ +/* [wxMaxima: title start ] +Funciones + [wxMaxima: title end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: section start ] +Polinomios de Lagrange + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: input start ] */ +Lagrange(f, nodos) := block( [base,n, x,a], + n : length(nodos), + base : makelist(1,i,1,n), + + for i:1 step 1 while i<=n do block( + for j:1 step 1 while j<=n do block( + print(j), + if (i#j) then do block( base[i] : base[i]*(x-nodos[j])/(nodos[i]-nodos[j]) ) + ) + ), + /* + p(x) := 0, + for i:1 step 1 while i<=n do block( + p(x) : p(x) + f(nodos[i])*base[i](x) + ),*/ + + return(base) +)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: title start ] +Funciones + [wxMaxima: title end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: section start ] +Polinomios de Lagrange + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: input start ] */ +Lagrange(f, nodos) := block( [base,n, x,a], + n : length(nodos), + base : makelist(1,i,1,n), + + for i:1 step 1 while i<=n do block( + for j:1 step 1 while j<=n do block( + print(j), + if (i#j) then do block( base[i] : base[i]*(x-nodos[j])/(nodos[i]-nodos[j]) ) + ) + ), + /* + p(x) := 0, + for i:1 step 1 while i<=n do block( + p(x) : p(x) + f(nodos[i])*base[i](x) + ),*/ + + return(base) +)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: input start ] */ +f(x) := x^2$ +nodos : [1, 3, 5]$ +Lagrange(f, nodos); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: title start ] +Funciones + [wxMaxima: title end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: section start ] +Polinomios de Lagrange + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: input start ] */ +Lagrange(f, nodos) := block( [base,n, x,a], + n : length(nodos), + base : makelist(1,i,1,n), + + for i:1 step 1 while i<=n do block( + for j:1 step 1 while j<=n do block( + print(j), + if (i#j) then do block( base[i] : base[i]*(x-nodos[j])/(nodos[i]-nodos[j]) ) + ) + ), + /* + p(x) := 0, + for i:1 step 1 while i<=n do block( + p(x) : p(x) + f(nodos[i])*base[i](x) + ),*/ + + return(base) +)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: title start ] +Funciones + [wxMaxima: title end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: section start ] +Polinomios de Lagrange + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: input start ] */ +Lagrange(f, nodos) := block( [base,n, x,a], + n : length(nodos), + base : makelist(1,i,1,n), + + for i:1 step 1 while i<=n do block( + for j:1 step 1 while j<=n do block( + print(j), + if (i#j) then do block( base[i] : base[i]*(x-nodos[j])/(nodos[i]-nodos[j]) ) + ) + ), + /* + p(x) := 0, + for i:1 step 1 while i<=n do block( + p(x) : p(x) + f(nodos[i])*base[i](x) + ),*/ + + return(base) +)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: input start ] */ +f(x) := x^2$ +nodos : [1, 3, 5]$ +Lagrange(f, nodos); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: fold end ] */ + +/* [wxMaxima: title start ] +Funciones + [wxMaxima: title end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: section start ] +Polinomios de Lagrange + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: input start ] */ +Lagrange(f, nodos) := block( [base,n, x,a], + n : length(nodos), + base : makelist(1,i,1,n), + + for i:1 step 1 while i<=n do block( + for j:1 step 1 while j<=n do block( + print(j), + if (i#j) then do block( base[i] : base[i]*(x-nodos[j])/(nodos[i]-nodos[j]) ) + ) + ), + /* + p(x) := 0, + for i:1 step 1 while i<=n do block( + p(x) : p(x) + f(nodos[i])*base[i](x) + ),*/ + + return(base) +)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: title start ] +Funciones + [wxMaxima: title end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: section start ] +Polinomios de Lagrange + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: input start ] */ +Lagrange(f, nodos) := block( [base,n, x,a], + n : length(nodos), + base : makelist(1,i,1,n), + + for i:1 step 1 while i<=n do block( + for j:1 step 1 while j<=n do block( + print(j), + if (i#j) then do block( base[i] : base[i]*(x-nodos[j])/(nodos[i]-nodos[j]) ) + ) + ), + /* + p(x) := 0, + for i:1 step 1 while i<=n do block( + p(x) : p(x) + f(nodos[i])*base[i](x) + ),*/ + + return(base) +)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: input start ] */ +f(x) := x^2$ +nodos : [1, 3, 5]$ +Lagrange(f, nodos); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: title start ] +Funciones + [wxMaxima: title end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: section start ] +Polinomios de Lagrange + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: input start ] */ +Lagrange(f, nodos) := block( [base,n, x,a], + n : length(nodos), + base : makelist(1,i,1,n), + + for i:1 step 1 while i<=n do block( + for j:1 step 1 while j<=n do block( + print(j), + if (i#j) then do block( base[i] : base[i]*(x-nodos[j])/(nodos[i]-nodos[j]) ) + ) + ), + /* + p(x) := 0, + for i:1 step 1 while i<=n do block( + p(x) : p(x) + f(nodos[i])*base[i](x) + ),*/ + + return(base) +)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: title start ] +Funciones + [wxMaxima: title end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: section start ] +Polinomios de Lagrange + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: input start ] */ +Lagrange(f, nodos) := block( [base,n, x,a], + n : length(nodos), + base : makelist(1,i,1,n), + + for i:1 step 1 while i<=n do block( + for j:1 step 1 while j<=n do block( + print(j), + if (i#j) then do block( base[i] : base[i]*(x-nodos[j])/(nodos[i]-nodos[j]) ) + ) + ), + /* + p(x) := 0, + for i:1 step 1 while i<=n do block( + p(x) : p(x) + f(nodos[i])*base[i](x) + ),*/ + + return(base) +)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: input start ] */ +f(x) := x^2$ +nodos : [1, 3, 5]$ +Lagrange(f, nodos); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: fold end ] */ + +/* [wxMaxima: section start ] +Diferencias divididas + [wxMaxima: section end ] */ + +/* [wxMaxima: title start ] +Funciones + [wxMaxima: title end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: section start ] +Polinomios de Lagrange + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: input start ] */ +Lagrange(f, nodos) := block( [base,n, x,a], + n : length(nodos), + base : makelist(1,i,1,n), + + for i:1 step 1 while i<=n do block( + for j:1 step 1 while j<=n do block( + print(j), + if (i#j) then do block( base[i] : base[i]*(x-nodos[j])/(nodos[i]-nodos[j]) ) + ) + ), + /* + p(x) := 0, + for i:1 step 1 while i<=n do block( + p(x) : p(x) + f(nodos[i])*base[i](x) + ),*/ + + return(base) +)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: title start ] +Funciones + [wxMaxima: title end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: section start ] +Polinomios de Lagrange + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: input start ] */ +Lagrange(f, nodos) := block( [base,n, x,a], + n : length(nodos), + base : makelist(1,i,1,n), + + for i:1 step 1 while i<=n do block( + for j:1 step 1 while j<=n do block( + print(j), + if (i#j) then do block( base[i] : base[i]*(x-nodos[j])/(nodos[i]-nodos[j]) ) + ) + ), + /* + p(x) := 0, + for i:1 step 1 while i<=n do block( + p(x) : p(x) + f(nodos[i])*base[i](x) + ),*/ + + return(base) +)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: input start ] */ +f(x) := x^2$ +nodos : [1, 3, 5]$ +Lagrange(f, nodos); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: title start ] +Funciones + [wxMaxima: title end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: section start ] +Polinomios de Lagrange + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: input start ] */ +Lagrange(f, nodos) := block( [base,n, x,a], + n : length(nodos), + base : makelist(1,i,1,n), + + for i:1 step 1 while i<=n do block( + for j:1 step 1 while j<=n do block( + print(j), + if (i#j) then do block( base[i] : base[i]*(x-nodos[j])/(nodos[i]-nodos[j]) ) + ) + ), + /* + p(x) := 0, + for i:1 step 1 while i<=n do block( + p(x) : p(x) + f(nodos[i])*base[i](x) + ),*/ + + return(base) +)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: title start ] +Funciones + [wxMaxima: title end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: section start ] +Polinomios de Lagrange + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: input start ] */ +Lagrange(f, nodos) := block( [base,n, x,a], + n : length(nodos), + base : makelist(1,i,1,n), + + for i:1 step 1 while i<=n do block( + for j:1 step 1 while j<=n do block( + print(j), + if (i#j) then do block( base[i] : base[i]*(x-nodos[j])/(nodos[i]-nodos[j]) ) + ) + ), + /* + p(x) := 0, + for i:1 step 1 while i<=n do block( + p(x) : p(x) + f(nodos[i])*base[i](x) + ),*/ + + return(base) +)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: input start ] */ +f(x) := x^2$ +nodos : [1, 3, 5]$ +Lagrange(f, nodos); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: fold end ] */ + +/* [wxMaxima: title start ] +Funciones + [wxMaxima: title end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: section start ] +Polinomios de Lagrange + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: input start ] */ +Lagrange(f, nodos) := block( [base,n, x,a], + n : length(nodos), + base : makelist(1,i,1,n), + + for i:1 step 1 while i<=n do block( + for j:1 step 1 while j<=n do block( + print(j), + if (i#j) then do block( base[i] : base[i]*(x-nodos[j])/(nodos[i]-nodos[j]) ) + ) + ), + /* + p(x) := 0, + for i:1 step 1 while i<=n do block( + p(x) : p(x) + f(nodos[i])*base[i](x) + ),*/ + + return(base) +)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: title start ] +Funciones + [wxMaxima: title end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: section start ] +Polinomios de Lagrange + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: input start ] */ +Lagrange(f, nodos) := block( [base,n, x,a], + n : length(nodos), + base : makelist(1,i,1,n), + + for i:1 step 1 while i<=n do block( + for j:1 step 1 while j<=n do block( + print(j), + if (i#j) then do block( base[i] : base[i]*(x-nodos[j])/(nodos[i]-nodos[j]) ) + ) + ), + /* + p(x) := 0, + for i:1 step 1 while i<=n do block( + p(x) : p(x) + f(nodos[i])*base[i](x) + ),*/ + + return(base) +)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: input start ] */ +f(x) := x^2$ +nodos : [1, 3, 5]$ +Lagrange(f, nodos); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: title start ] +Funciones + [wxMaxima: title end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: section start ] +Polinomios de Lagrange + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: input start ] */ +Lagrange(f, nodos) := block( [base,n, x,a], + n : length(nodos), + base : makelist(1,i,1,n), + + for i:1 step 1 while i<=n do block( + for j:1 step 1 while j<=n do block( + print(j), + if (i#j) then do block( base[i] : base[i]*(x-nodos[j])/(nodos[i]-nodos[j]) ) + ) + ), + /* + p(x) := 0, + for i:1 step 1 while i<=n do block( + p(x) : p(x) + f(nodos[i])*base[i](x) + ),*/ + + return(base) +)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: title start ] +Funciones + [wxMaxima: title end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: section start ] +Polinomios de Lagrange + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: input start ] */ +Lagrange(f, nodos) := block( [base,n, x,a], + n : length(nodos), + base : makelist(1,i,1,n), + + for i:1 step 1 while i<=n do block( + for j:1 step 1 while j<=n do block( + print(j), + if (i#j) then do block( base[i] : base[i]*(x-nodos[j])/(nodos[i]-nodos[j]) ) + ) + ), + /* + p(x) := 0, + for i:1 step 1 while i<=n do block( + p(x) : p(x) + f(nodos[i])*base[i](x) + ),*/ + + return(base) +)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: input start ] */ +f(x) := x^2$ +nodos : [1, 3, 5]$ +Lagrange(f, nodos); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: fold end ] */ + +/* [wxMaxima: section start ] +Diferencias divididas + [wxMaxima: section end ] */ + +/* [wxMaxima: fold end ] */ + + +/* [wxMaxima: title start ] +Ejercicios + [wxMaxima: title end ] */ + + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +dfx(c,p0,p1,p2,fp0,fp1,fp2) := fp0*((c-p1)+(c-p2))/((p0-p1)*(p0-p2)) + fp1*((c-p0)+(c-p2))/((p1-p0)*(p1-p2)) + fp2*((c-p0)+(c-p1))/((p2-p0)*(p2-p1))$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +dfx(c,p0,p1,p2,fp0,fp1,fp2) := fp0*((c-p1)+(c-p2))/((p0-p1)*(p0-p2)) + fp1*((c-p0)+(c-p2))/((p1-p0)*(p1-p2)) + fp2*((c-p0)+(c-p1))/((p2-p0)*(p2-p1))$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Para minimizar el error usaremos los casos con puntos equidistantes, por tanto tendremos dos fórmulas, df1(c) con los puntos x_1,x_2,x_3 y df2(c) con los puntos x_2,x_3,x_4. + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +dfx(c,p0,p1,p2,fp0,fp1,fp2) := fp0*((c-p1)+(c-p2))/((p0-p1)*(p0-p2)) + fp1*((c-p0)+(c-p2))/((p1-p0)*(p1-p2)) + fp2*((c-p0)+(c-p1))/((p2-p0)*(p2-p1))$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +dfx(c,p0,p1,p2,fp0,fp1,fp2) := fp0*((c-p1)+(c-p2))/((p0-p1)*(p0-p2)) + fp1*((c-p0)+(c-p2))/((p1-p0)*(p1-p2)) + fp2*((c-p0)+(c-p1))/((p2-p0)*(p2-p1))$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Para minimizar el error usaremos los casos con puntos equidistantes, por tanto tendremos dos fórmulas, df1(c) con los puntos x_1,x_2,x_3 y df2(c) con los puntos x_2,x_3,x_4. + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +df1(c) := dfx(c,x_1,x_2,x_3,fx_1,fx_2,fx_3)$ +df2(c) := dfx(c,x_2,x_3,x_4,fx_2,fx_3,fx_4)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +dfx(c,p0,p1,p2,fp0,fp1,fp2) := fp0*((c-p1)+(c-p2))/((p0-p1)*(p0-p2)) + fp1*((c-p0)+(c-p2))/((p1-p0)*(p1-p2)) + fp2*((c-p0)+(c-p1))/((p2-p0)*(p2-p1))$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +dfx(c,p0,p1,p2,fp0,fp1,fp2) := fp0*((c-p1)+(c-p2))/((p0-p1)*(p0-p2)) + fp1*((c-p0)+(c-p2))/((p1-p0)*(p1-p2)) + fp2*((c-p0)+(c-p1))/((p2-p0)*(p2-p1))$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Para minimizar el error usaremos los casos con puntos equidistantes, por tanto tendremos dos fórmulas, df1(c) con los puntos x_1,x_2,x_3 y df2(c) con los puntos x_2,x_3,x_4. + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +dfx(c,p0,p1,p2,fp0,fp1,fp2) := fp0*((c-p1)+(c-p2))/((p0-p1)*(p0-p2)) + fp1*((c-p0)+(c-p2))/((p1-p0)*(p1-p2)) + fp2*((c-p0)+(c-p1))/((p2-p0)*(p2-p1))$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +dfx(c,p0,p1,p2,fp0,fp1,fp2) := fp0*((c-p1)+(c-p2))/((p0-p1)*(p0-p2)) + fp1*((c-p0)+(c-p2))/((p1-p0)*(p1-p2)) + fp2*((c-p0)+(c-p1))/((p2-p0)*(p2-p1))$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Para minimizar el error usaremos los casos con puntos equidistantes, por tanto tendremos dos fórmulas, df1(c) con los puntos x_1,x_2,x_3 y df2(c) con los puntos x_2,x_3,x_4. + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +df1(c) := dfx(c,x_1,x_2,x_3,fx_1,fx_2,fx_3)$ +df2(c) := dfx(c,x_2,x_3,x_4,fx_2,fx_3,fx_4)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Ahora vemos las aproximaciones de las derivadas en los puntos x_1,x_2,x_3,x_4: + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +dfx(c,p0,p1,p2,fp0,fp1,fp2) := fp0*((c-p1)+(c-p2))/((p0-p1)*(p0-p2)) + fp1*((c-p0)+(c-p2))/((p1-p0)*(p1-p2)) + fp2*((c-p0)+(c-p1))/((p2-p0)*(p2-p1))$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +dfx(c,p0,p1,p2,fp0,fp1,fp2) := fp0*((c-p1)+(c-p2))/((p0-p1)*(p0-p2)) + fp1*((c-p0)+(c-p2))/((p1-p0)*(p1-p2)) + fp2*((c-p0)+(c-p1))/((p2-p0)*(p2-p1))$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Para minimizar el error usaremos los casos con puntos equidistantes, por tanto tendremos dos fórmulas, df1(c) con los puntos x_1,x_2,x_3 y df2(c) con los puntos x_2,x_3,x_4. + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +dfx(c,p0,p1,p2,fp0,fp1,fp2) := fp0*((c-p1)+(c-p2))/((p0-p1)*(p0-p2)) + fp1*((c-p0)+(c-p2))/((p1-p0)*(p1-p2)) + fp2*((c-p0)+(c-p1))/((p2-p0)*(p2-p1))$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +dfx(c,p0,p1,p2,fp0,fp1,fp2) := fp0*((c-p1)+(c-p2))/((p0-p1)*(p0-p2)) + fp1*((c-p0)+(c-p2))/((p1-p0)*(p1-p2)) + fp2*((c-p0)+(c-p1))/((p2-p0)*(p2-p1))$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Para minimizar el error usaremos los casos con puntos equidistantes, por tanto tendremos dos fórmulas, df1(c) con los puntos x_1,x_2,x_3 y df2(c) con los puntos x_2,x_3,x_4. + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +df1(c) := dfx(c,x_1,x_2,x_3,fx_1,fx_2,fx_3)$ +df2(c) := dfx(c,x_2,x_3,x_4,fx_2,fx_3,fx_4)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +dfx(c,p0,p1,p2,fp0,fp1,fp2) := fp0*((c-p1)+(c-p2))/((p0-p1)*(p0-p2)) + fp1*((c-p0)+(c-p2))/((p1-p0)*(p1-p2)) + fp2*((c-p0)+(c-p1))/((p2-p0)*(p2-p1))$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +dfx(c,p0,p1,p2,fp0,fp1,fp2) := fp0*((c-p1)+(c-p2))/((p0-p1)*(p0-p2)) + fp1*((c-p0)+(c-p2))/((p1-p0)*(p1-p2)) + fp2*((c-p0)+(c-p1))/((p2-p0)*(p2-p1))$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Para minimizar el error usaremos los casos con puntos equidistantes, por tanto tendremos dos fórmulas, df1(c) con los puntos x_1,x_2,x_3 y df2(c) con los puntos x_2,x_3,x_4. + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +dfx(c,p0,p1,p2,fp0,fp1,fp2) := fp0*((c-p1)+(c-p2))/((p0-p1)*(p0-p2)) + fp1*((c-p0)+(c-p2))/((p1-p0)*(p1-p2)) + fp2*((c-p0)+(c-p1))/((p2-p0)*(p2-p1))$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +dfx(c,p0,p1,p2,fp0,fp1,fp2) := fp0*((c-p1)+(c-p2))/((p0-p1)*(p0-p2)) + fp1*((c-p0)+(c-p2))/((p1-p0)*(p1-p2)) + fp2*((c-p0)+(c-p1))/((p2-p0)*(p2-p1))$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Para minimizar el error usaremos los casos con puntos equidistantes, por tanto tendremos dos fórmulas, df1(c) con los puntos x_1,x_2,x_3 y df2(c) con los puntos x_2,x_3,x_4. + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +df1(c) := dfx(c,x_1,x_2,x_3,fx_1,fx_2,fx_3)$ +df2(c) := dfx(c,x_2,x_3,x_4,fx_2,fx_3,fx_4)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Ahora vemos las aproximaciones de las derivadas en los puntos x_1,x_2,x_3,x_4: + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +df1(x_1); +df1(x_2); +df2(x_3); +df2(x_4); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +dfx(c,p0,p1,p2,fp0,fp1,fp2) := fp0*((c-p1)+(c-p2))/((p0-p1)*(p0-p2)) + fp1*((c-p0)+(c-p2))/((p1-p0)*(p1-p2)) + fp2*((c-p0)+(c-p1))/((p2-p0)*(p2-p1))$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +dfx(c,p0,p1,p2,fp0,fp1,fp2) := fp0*((c-p1)+(c-p2))/((p0-p1)*(p0-p2)) + fp1*((c-p0)+(c-p2))/((p1-p0)*(p1-p2)) + fp2*((c-p0)+(c-p1))/((p2-p0)*(p2-p1))$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Para minimizar el error usaremos los casos con puntos equidistantes, por tanto tendremos dos fórmulas, df1(c) con los puntos x_1,x_2,x_3 y df2(c) con los puntos x_2,x_3,x_4. + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +dfx(c,p0,p1,p2,fp0,fp1,fp2) := fp0*((c-p1)+(c-p2))/((p0-p1)*(p0-p2)) + fp1*((c-p0)+(c-p2))/((p1-p0)*(p1-p2)) + fp2*((c-p0)+(c-p1))/((p2-p0)*(p2-p1))$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +dfx(c,p0,p1,p2,fp0,fp1,fp2) := fp0*((c-p1)+(c-p2))/((p0-p1)*(p0-p2)) + fp1*((c-p0)+(c-p2))/((p1-p0)*(p1-p2)) + fp2*((c-p0)+(c-p1))/((p2-p0)*(p2-p1))$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Para minimizar el error usaremos los casos con puntos equidistantes, por tanto tendremos dos fórmulas, df1(c) con los puntos x_1,x_2,x_3 y df2(c) con los puntos x_2,x_3,x_4. + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +df1(c) := dfx(c,x_1,x_2,x_3,fx_1,fx_2,fx_3)$ +df2(c) := dfx(c,x_2,x_3,x_4,fx_2,fx_3,fx_4)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +dfx(c,p0,p1,p2,fp0,fp1,fp2) := fp0*((c-p1)+(c-p2))/((p0-p1)*(p0-p2)) + fp1*((c-p0)+(c-p2))/((p1-p0)*(p1-p2)) + fp2*((c-p0)+(c-p1))/((p2-p0)*(p2-p1))$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +dfx(c,p0,p1,p2,fp0,fp1,fp2) := fp0*((c-p1)+(c-p2))/((p0-p1)*(p0-p2)) + fp1*((c-p0)+(c-p2))/((p1-p0)*(p1-p2)) + fp2*((c-p0)+(c-p1))/((p2-p0)*(p2-p1))$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Para minimizar el error usaremos los casos con puntos equidistantes, por tanto tendremos dos fórmulas, df1(c) con los puntos x_1,x_2,x_3 y df2(c) con los puntos x_2,x_3,x_4. + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +dfx(c,p0,p1,p2,fp0,fp1,fp2) := fp0*((c-p1)+(c-p2))/((p0-p1)*(p0-p2)) + fp1*((c-p0)+(c-p2))/((p1-p0)*(p1-p2)) + fp2*((c-p0)+(c-p1))/((p2-p0)*(p2-p1))$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +dfx(c,p0,p1,p2,fp0,fp1,fp2) := fp0*((c-p1)+(c-p2))/((p0-p1)*(p0-p2)) + fp1*((c-p0)+(c-p2))/((p1-p0)*(p1-p2)) + fp2*((c-p0)+(c-p1))/((p2-p0)*(p2-p1))$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Para minimizar el error usaremos los casos con puntos equidistantes, por tanto tendremos dos fórmulas, df1(c) con los puntos x_1,x_2,x_3 y df2(c) con los puntos x_2,x_3,x_4. + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +df1(c) := dfx(c,x_1,x_2,x_3,fx_1,fx_2,fx_3)$ +df2(c) := dfx(c,x_2,x_3,x_4,fx_2,fx_3,fx_4)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Ahora vemos las aproximaciones de las derivadas en los puntos x_1,x_2,x_3,x_4: + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +dfx(c,p0,p1,p2,fp0,fp1,fp2) := fp0*((c-p1)+(c-p2))/((p0-p1)*(p0-p2)) + fp1*((c-p0)+(c-p2))/((p1-p0)*(p1-p2)) + fp2*((c-p0)+(c-p1))/((p2-p0)*(p2-p1))$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +dfx(c,p0,p1,p2,fp0,fp1,fp2) := fp0*((c-p1)+(c-p2))/((p0-p1)*(p0-p2)) + fp1*((c-p0)+(c-p2))/((p1-p0)*(p1-p2)) + fp2*((c-p0)+(c-p1))/((p2-p0)*(p2-p1))$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Para minimizar el error usaremos los casos con puntos equidistantes, por tanto tendremos dos fórmulas, df1(c) con los puntos x_1,x_2,x_3 y df2(c) con los puntos x_2,x_3,x_4. + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +dfx(c,p0,p1,p2,fp0,fp1,fp2) := fp0*((c-p1)+(c-p2))/((p0-p1)*(p0-p2)) + fp1*((c-p0)+(c-p2))/((p1-p0)*(p1-p2)) + fp2*((c-p0)+(c-p1))/((p2-p0)*(p2-p1))$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +dfx(c,p0,p1,p2,fp0,fp1,fp2) := fp0*((c-p1)+(c-p2))/((p0-p1)*(p0-p2)) + fp1*((c-p0)+(c-p2))/((p1-p0)*(p1-p2)) + fp2*((c-p0)+(c-p1))/((p2-p0)*(p2-p1))$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Para minimizar el error usaremos los casos con puntos equidistantes, por tanto tendremos dos fórmulas, df1(c) con los puntos x_1,x_2,x_3 y df2(c) con los puntos x_2,x_3,x_4. + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +df1(c) := dfx(c,x_1,x_2,x_3,fx_1,fx_2,fx_3)$ +df2(c) := dfx(c,x_2,x_3,x_4,fx_2,fx_3,fx_4)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +dfx(c,p0,p1,p2,fp0,fp1,fp2) := fp0*((c-p1)+(c-p2))/((p0-p1)*(p0-p2)) + fp1*((c-p0)+(c-p2))/((p1-p0)*(p1-p2)) + fp2*((c-p0)+(c-p1))/((p2-p0)*(p2-p1))$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +dfx(c,p0,p1,p2,fp0,fp1,fp2) := fp0*((c-p1)+(c-p2))/((p0-p1)*(p0-p2)) + fp1*((c-p0)+(c-p2))/((p1-p0)*(p1-p2)) + fp2*((c-p0)+(c-p1))/((p2-p0)*(p2-p1))$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Para minimizar el error usaremos los casos con puntos equidistantes, por tanto tendremos dos fórmulas, df1(c) con los puntos x_1,x_2,x_3 y df2(c) con los puntos x_2,x_3,x_4. + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +dfx(c,p0,p1,p2,fp0,fp1,fp2) := fp0*((c-p1)+(c-p2))/((p0-p1)*(p0-p2)) + fp1*((c-p0)+(c-p2))/((p1-p0)*(p1-p2)) + fp2*((c-p0)+(c-p1))/((p2-p0)*(p2-p1))$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Ejercicio 3 + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Utiliza la fórmula de derivación numérica de tipo interpolatorio con soporte de tres +puntos más precisa para completar los valores de la siguiente tabla: +x 2.9 3.0 3.1 3.2 +f (x) -4.827866 -4.240058 -3.496909 -2.596792 +f'(x) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Definimos los puntos y su imagen + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +x_1 : 2.9$ +x_2 : 3.0$ +x_3 : 3.1$ +x_4 : 3.2$ +fx_1 : -4.827866$ +fx_2 : -4.240058$ +fx_3 : -3.496909$ +fx_4 : -2.596792$ +listx : [x_1,x_2,x_3,x_4]$ +listfx : [fx_1,fx_2,fx_3,fx_4]$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +La fórmula derivación numérica de tipo interpolatorio con soporte de tres puntos se expresa de la siguiente forma, donde p0,p1,p2 son los puntos de interpolación y fp0,fp1,fp2 las imágenes de dichos puntos. + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +dfx(c,p0,p1,p2,fp0,fp1,fp2) := fp0*((c-p1)+(c-p2))/((p0-p1)*(p0-p2)) + fp1*((c-p0)+(c-p2))/((p1-p0)*(p1-p2)) + fp2*((c-p0)+(c-p1))/((p2-p0)*(p2-p1))$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Para minimizar el error usaremos los casos con puntos equidistantes, por tanto tendremos dos fórmulas, df1(c) con los puntos x_1,x_2,x_3 y df2(c) con los puntos x_2,x_3,x_4. + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +df1(c) := dfx(c,x_1,x_2,x_3,fx_1,fx_2,fx_3)$ +df2(c) := dfx(c,x_2,x_3,x_4,fx_2,fx_3,fx_4)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Ahora vemos las aproximaciones de las derivadas en los puntos x_1,x_2,x_3,x_4: + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +df1(x_1); +df1(x_2); +df2(x_3); +df2(x_4); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: fold end ] */ + + +/* [wxMaxima: section start ] +Ejercicio 7 + [wxMaxima: section end ] */ + + +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) Deduce la fórmula de derivación numérica que aproxime el valor de f''(c) uti- +lizando los valores de f en los puntos +x_0 = c − 2h, +x_1 = c − h, +x_2 = c, +x_3 = c + h, +x_4 = c + 2h, +maximizando el grado de exactitud de la fórmula. +b) Aplica la fórmula anterior para estimar f''(0) siendo f (x) = cos x, utilizando +en los cálculos 7 cifras decimales para los valores h = 0.1,0.01,0.001 y escribe +el error obtenido en cada caso. + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +Enunciado + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) Deduce la fórmula de derivación numérica que aproxime el valor de f''(c) uti- +lizando los valores de f en los puntos +x_0 = c − 2h, +x_1 = c − h, +x_2 = c, +x_3 = c + h, +x_4 = c + 2h, +maximizando el grado de exactitud de la fórmula. +b) Aplica la fórmula anterior para estimar f''(0) siendo f (x) = cos x, utilizando +en los cálculos 7 cifras decimales para los valores h = 0.1,0.01,0.001 y escribe +el error obtenido en cada caso. + [wxMaxima: comment end ] */ + +/* [wxMaxima: fold end ] */ + + +/* [wxMaxima: subsect start ] +Solución + [wxMaxima: subsect end ] */ + + +/* [wxMaxima: input start ] */ +x_0(c,h) := c-2*h$ +x_1(c,h) := c-h$ +x_2(c,h) := c$ +x_3(c,h) := c+h$ +x_4(c,h) := c+2*h$ +f(x) := cos(x)$ +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +l_0(x) := (x-x_1)*(x-x_2)*(x-x_3)*(x-x_4)/((x_0-x_1)*(x_0-x_2)*(x_0-x_3)*(x_0-x_4))$ +l_1(x) := (x-x_0)*(x-x_2)*(x-x_3)*(x-x_4)/((x_1-x_0)*(x_1-x_2)*(x_1-x_3)*(x_1-x_4))$ +l_2(x) := (x-x_0)*(x-x_1)*(x-x_3)*(x-x_4)/((x_2-x_0)*(x_2-x_1)*(x_2-x_3)*(x_2-x_4))$ +l_3(x) := (x-x_0)*(x-x_1)*(x-x_2)*(x-x_4)/((x_3-x_0)*(x_3-x_1)*(x_3-x_2)*(x_3-x_4))$ +l_4(x) := (x-x_0)*(x-x_1)*(x-x_2)*(x-x_3)/((x_4-x_0)*(x_4-x_1)*(x_4-x_2)*(x_4-x_3))$ +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: comment start ] +Definimos las derivadas segundas, que serán los pesos a_i_k de la fórmula de derivación numérica de tipo interpolatorio para la derivada segunda. + [wxMaxima: comment end ] */ + + +/* [wxMaxima: input start ] */ +define(a_0_2(x),diff(l_0(x),x,2))$ +define(a_1_2(x),diff(l_1(x),x,2))$ +define(a_2_2(x),diff(l_2(x),x,2))$ +define(a_3_2(x),diff(l_3(x),x,2))$ +define(a_4_2(x),diff(l_4(x),x,2))$ +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: comment start ] +La fórmula inicial de derivación numérica de tipo interpolatorio sería: + [wxMaxima: comment end ] */ + + +/* [wxMaxima: input start ] */ +f_2(c) := a_0_2(c)*f(x_0) + a_1_2(c)*f(x_1) + a_2_2(c)*f(x_2) + a_3_2(c)*f(x_3) + a_4_2(c)*f(x_4)$ +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: comment start ] +Sin embargo el enunciado nos pide MAXIMIZAR el grado de exactitud, con lo que tendremos que modificar los pesos a_i_k por los que a_i que salen de resolver el siguiente sistema de ecuaciones, derivado de la combinación de desarrollos en serie de Taylor. +h_i := x_i-c; + [wxMaxima: comment end ] */ + + +/* [wxMaxima: input start ] */ +f(x) := bfloat(cos(x))$ +c : 0$ +h : 0.1$ +/*h : 0.01$ +h : 0.001$ */ +x_0 : c-2*h$ +x_1 : c-h$ +x_2 : c$ +x_3 : c+h$ +x_4 : c+2*h$ +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +formula1 : a_0+a_1+a_2+a_3+a_4$ +formula2 : a_0*(x_0-c)+a_1*(x_1-c)+a_2*(x_2-c)+a_3*(x_3-c)+a_4*(x_4-c)$ +formula3 : a_0*(x_0-c)^2+a_1*(x_1-c)^2+a_2*(x_2-c)^2+a_3*(x_3-c)^2+a_4*(x_4-c)^2 - 2$ +formula4 : a_0*(x_0-c)^3+a_1*(x_1-c)^3+a_2*(x_2-c)^3+a_3*(x_3-c)^3+a_4*(x_4-c)^3$ +formula5 : a_0*(x_0-c)^4+a_1*(x_1-c)^4+a_2*(x_2-c)^4+a_3*(x_3-c)^4+a_4*(x_4-c)^4$ +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +c : 0$ +h : 1/10$ +list : algsys([formula1,formula2,formula3,formula4,formula5],[a_0,a_1,a_2,a_3,a_4])$ +a_0 : bfloat(rhs(list[1][1])); +a_1 : bfloat(rhs(list[1][2])); +a_2 : bfloat(rhs(list[1][3])); +a_3 : bfloat(rhs(list[1][4])); +a_4 : bfloat(rhs(list[1][5])); + +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: comment start ] +Redefinimos la fórmula + [wxMaxima: comment end ] */ + + +/* [wxMaxima: input start ] */ +f_2_c : bfloat(a_0*f(x_0) + a_1*f(x_1) + a_2*f(x_2) + a_3*f(x_3) + a_4*f(x_4)); +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: comment start ] +h = 0.01 + [wxMaxima: comment end ] */ + + +/* [wxMaxima: input start ] */ +fpprec : 7$ +f(x) := bfloat(cos(x))$ +c : 0$ +h : 0.01$ +x_0 : c-2*h$ +x_1 : c-h$ +x_2 : c$ +x_3 : c+h$ +x_4 : c+2*h$ +formula1 : a_0+a_1+a_2+a_3+a_4$ +formula2 : a_0*(x_0-c)+a_1*(x_1-c)+a_2*(x_2-c)+a_3*(x_3-c)+a_4*(x_4-c)$ +formula3 : a_0*(x_0-c)^2+a_1*(x_1-c)^2+a_2*(x_2-c)^2+a_3*(x_3-c)^2+a_4*(x_4-c)^2 - 2$ +formula4 : a_0*(x_0-c)^3+a_1*(x_1-c)^3+a_2*(x_2-c)^3+a_3*(x_3-c)^3+a_4*(x_4-c)^3$ +formula5 : a_0*(x_0-c)^4+a_1*(x_1-c)^4+a_2*(x_2-c)^4+a_3*(x_3-c)^4+a_4*(x_4-c)^4$ +c : 0$ +h : 1/10$ +list : algsys([formula1,formula2,formula3,formula4,formula5],[a_0,a_1,a_2,a_3,a_4])$ +a_0 : bfloat(rhs(list[1][1]))$ +a_1 : bfloat(rhs(list[1][2]))$ +a_2 : bfloat(rhs(list[1][3]))$ +a_3 : bfloat(rhs(list[1][4]))$ +a_4 : bfloat(rhs(list[1][5]))$ +f_2_c : bfloat(a_0*f(x_0) + a_1*f(x_1) + a_2*f(x_2) + a_3*f(x_3) + a_4*f(x_4)); +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: comment start ] +h = 0.001 + [wxMaxima: comment end ] */ + + +/* [wxMaxima: input start ] */ +fpprec : 7$ +f(x) := bfloat(cos(x))$ +c : 0$ +h : 0.001$ +x_0 : c-2*h$ +x_1 : c-h$ +x_2 : c$ +x_3 : c+h$ +x_4 : c+2*h$ +formula1 : a_0+a_1+a_2+a_3+a_4$ +formula2 : a_0*(x_0-c)+a_1*(x_1-c)+a_2*(x_2-c)+a_3*(x_3-c)+a_4*(x_4-c)$ +formula3 : a_0*(x_0-c)^2+a_1*(x_1-c)^2+a_2*(x_2-c)^2+a_3*(x_3-c)^2+a_4*(x_4-c)^2 - 2$ +formula4 : a_0*(x_0-c)^3+a_1*(x_1-c)^3+a_2*(x_2-c)^3+a_3*(x_3-c)^3+a_4*(x_4-c)^3$ +formula5 : a_0*(x_0-c)^4+a_1*(x_1-c)^4+a_2*(x_2-c)^4+a_3*(x_3-c)^4+a_4*(x_4-c)^4$ +c : 0$ +h : 1/10$ +list : algsys([formula1,formula2,formula3,formula4,formula5],[a_0,a_1,a_2,a_3,a_4])$ +a_0 : bfloat(rhs(list[1][1]))$ +a_1 : bfloat(rhs(list[1][2]))$ +a_2 : bfloat(rhs(list[1][3]))$ +a_3 : bfloat(rhs(list[1][4]))$ +a_4 : bfloat(rhs(list[1][5]))$ +f_2_c : bfloat(a_0*f(x_0) + a_1*f(x_1) + a_2*f(x_2) + a_3*f(x_3) + a_4*f(x_4)); +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: comment start ] +Problemas raros: + [wxMaxima: comment end ] */ + + +/* [wxMaxima: input start ] */ +x_0(c,h) := c-2*h; +x_1(c,h) := c-h; +x_2(y,h) := y; +x_3(y,h) := y+h; +x_4(c,h) := c+2*h; +x_0(2,3); +x_1(2,3); +x_2(2,3); +x_3(2,3); +x_4(2,3); +f(x,h) := x; +f(2,3); +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: section start ] +Ejercicio 16 + [wxMaxima: section end ] */ + + +/* [wxMaxima: subsect start ] +c) + [wxMaxima: subsect end ] */ + + +/* [wxMaxima: input start ] */ +f(x) := x^4*%e^(-2*x^2); +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +define(f8(x), diff(f(x),x,8)); +wxplot2d(f8(x),[x,0,2]); +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: subsect start ] +d) + [wxMaxima: subsect end ] */ + + +/* [wxMaxima: input start ] */ +f(x) := %e^(3*x)*sin(3*x)/(x^4+1); +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +define(fff(x), diff(f(x),x,2)); +wxplot2d(fff(x),[x,0,2]); +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +define(f4(x), diff(f(x),x,4)); +wxplot2d(f4(x),[x,0,2]); +/* [wxMaxima: input end ] */ + + + +/* Old versions of Maxima abort on loading files that end in a comment. */ +"Created with wxMaxima 22.04.0"$ diff --git a/Rel2/romberg.wxm b/Rel2/romberg.wxm new file mode 100644 index 0000000..14600dc --- /dev/null +++ b/Rel2/romberg.wxm @@ -0,0 +1,57 @@ +/* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/ +/* [ Created with wxMaxima version 22.04.0 ] */ +/* [wxMaxima: title start ] +Romberg + [wxMaxima: title end ] */ + + +/* [wxMaxima: comment start ] +Vemos las integrales I_1 de f_1 entre 0 y pi y la integral I_2 de f_2 entre 0 y 1 +con los R_{k,0} k=0,...,7 con ER_{k,0}^{i} = | I_i-R_{k,0}^{i} | hasta |I_i-R_{k,k}^{i}| para k=1,...,7 + [wxMaxima: comment end ] */ + + +/* [wxMaxima: input start ] */ +R(f, a, b, k, j) := block( + r : 0, + sumita : 0, + if k=0 and j=0 then + r : (b-a)*(f(a)+f(b))/2 /* Fórmula del trapecio*/ + else( + if j=0 then( + r : 1/2*R(f,a,b,k-1,j), + /*sumita : 0, + for l:1 thru 2^(k-1) do( + sumita : sumita + f(a+(2*l-1)*(b-a)/(2^k)) + ),*/ + r : r+(b-a)/(2^k)*sum( f(a+(2*l-1)*(b-a)/(2^k)), l,1,2^(k-1) ) + ) + else( + r : R(f,a,b,k,j-1), + r : r + 1/(4^j-1)*(R(f,a,b,k,j-1)-R(f,a,b,k-1,j-1)) + ) + ), + print(r), + return(float(r)) +)$ +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +f_1(x) := (%e^x*cos(x))$ +f_2(x) := sqrt(x)$ +I_1 : integrate(f_1(x), x, 0, %pi)$ +I_2 : integrate(f_2(x), x, 0, 1)$ +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: input start ] */ +/* Errores */ +makelist(float(abs(R(f_1,0,%pi,k,k)-I_1), k, 0, 7)); +makelist(float(abs(R(f_2,0,1,k,k)-I_1), k, 0, 7)); +/* [wxMaxima: input end ] */ + + + +/* Old versions of Maxima abort on loading files that end in a comment. */ +"Created with wxMaxima 22.04.0"$ diff --git a/Rel3/relacion3.wxm b/Rel3/relacion3.wxm new file mode 100644 index 0000000..98ded5e --- /dev/null +++ b/Rel3/relacion3.wxm @@ -0,0 +1,15662 @@ +/* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/ +/* [ Created with wxMaxima version 22.04.0 ] */ +/* [wxMaxima: title start ] +Funciones + [wxMaxima: title end ] */ + + +/* [wxMaxima: comment start ] +Insertamos paquete para manejar listas + [wxMaxima: comment end ] */ + + +/* [wxMaxima: input start ] */ +load ("basic")$ +/* [wxMaxima: input end ] */ + + +/* [wxMaxima: section start ] +Método de Euler + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: input start ] */ +metodoEuler(f, y_0, a, b, n_iteraciones) := block( + u_j : y_0, + h : (b-a)/n_iteraciones, + lista : [u_j], + + for j:1 thru n_iteraciones do block( + t_j : a+j*h, + u_j : u_j+h*f(t_j,u_j), + lista : push(float(u_j), lista) + ), + + /*push añade los elementos previamente en la lista + y no sé como añadirlos después, así que invierto + la lista*/ + lista_r : reverse(lista), + return(lista_r) +)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Método de Euler + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: input start ] */ +metodoEuler(f, y_0, a, b, n_iteraciones) := block( + u_j : y_0, + h : (b-a)/n_iteraciones, + lista : [u_j], + + for j:1 thru n_iteraciones do block( + t_j : a+j*h, + u_j : u_j+h*f(t_j,u_j), + lista : push(float(u_j), lista) + ), + + /*push añade los elementos previamente en la lista + y no sé como añadirlos después, así que invierto + la lista*/ + lista_r : reverse(lista), + return(lista_r) +)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +Euler mejorado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Método de Euler + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: input start ] */ +metodoEuler(f, y_0, a, b, n_iteraciones) := block( + u_j : y_0, + h : (b-a)/n_iteraciones, + lista : [u_j], + + for j:1 thru n_iteraciones do block( + t_j : a+j*h, + u_j : u_j+h*f(t_j,u_j), + lista : push(float(u_j), lista) + ), + + /*push añade los elementos previamente en la lista + y no sé como añadirlos después, así que invierto + la lista*/ + lista_r : reverse(lista), + return(lista_r) +)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Método de Euler + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: input start ] */ +metodoEuler(f, y_0, a, b, n_iteraciones) := block( + u_j : y_0, + h : (b-a)/n_iteraciones, + lista : [u_j], + + for j:1 thru n_iteraciones do block( + t_j : a+j*h, + u_j : u_j+h*f(t_j,u_j), + lista : push(float(u_j), lista) + ), + + /*push añade los elementos previamente en la lista + y no sé como añadirlos después, así que invierto + la lista*/ + lista_r : reverse(lista), + return(lista_r) +)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +Euler mejorado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Consideramos entonces el siguiente método de Runge-Kutta de orden 2, llamado método de Euler mejorado: + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Método de Euler + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: input start ] */ +metodoEuler(f, y_0, a, b, n_iteraciones) := block( + u_j : y_0, + h : (b-a)/n_iteraciones, + lista : [u_j], + + for j:1 thru n_iteraciones do block( + t_j : a+j*h, + u_j : u_j+h*f(t_j,u_j), + lista : push(float(u_j), lista) + ), + + /*push añade los elementos previamente en la lista + y no sé como añadirlos después, así que invierto + la lista*/ + lista_r : reverse(lista), + return(lista_r) +)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Método de Euler + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: input start ] */ +metodoEuler(f, y_0, a, b, n_iteraciones) := block( + u_j : y_0, + h : (b-a)/n_iteraciones, + lista : [u_j], + + for j:1 thru n_iteraciones do block( + t_j : a+j*h, + u_j : u_j+h*f(t_j,u_j), + lista : push(float(u_j), lista) + ), + + /*push añade los elementos previamente en la lista + y no sé como añadirlos después, así que invierto + la lista*/ + lista_r : reverse(lista), + return(lista_r) +)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +Euler mejorado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Método de Euler + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: input start ] */ +metodoEuler(f, y_0, a, b, n_iteraciones) := block( + u_j : y_0, + h : (b-a)/n_iteraciones, + lista : [u_j], + + for j:1 thru n_iteraciones do block( + t_j : a+j*h, + u_j : u_j+h*f(t_j,u_j), + lista : push(float(u_j), lista) + ), + + /*push añade los elementos previamente en la lista + y no sé como añadirlos después, así que invierto + la lista*/ + lista_r : reverse(lista), + return(lista_r) +)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Método de Euler + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: input start ] */ +metodoEuler(f, y_0, a, b, n_iteraciones) := block( + u_j : y_0, + h : (b-a)/n_iteraciones, + lista : [u_j], + + for j:1 thru n_iteraciones do block( + t_j : a+j*h, + u_j : u_j+h*f(t_j,u_j), + lista : push(float(u_j), lista) + ), + + /*push añade los elementos previamente en la lista + y no sé como añadirlos después, así que invierto + la lista*/ + lista_r : reverse(lista), + return(lista_r) +)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +Euler mejorado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Consideramos entonces el siguiente método de Runge-Kutta de orden 2, llamado método de Euler mejorado: + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +EulerMejorado(f, y_0, a, b, n_iteraciones) := block( + u_j : y_0, + h : (b-a)/n_iteraciones, + lista : [u_j], + + for j:1 thru n_iteraciones do block( + t_j : a+j*h, + u_j : u_j+h*f(t_j+h/2, u_j+h/2*f(t_j,u_j)), + lista : push(float(u_j), lista) + ), + + lista_r : reverse(lista), + return(lista_r) +)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Método de Euler + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: input start ] */ +metodoEuler(f, y_0, a, b, n_iteraciones) := block( + u_j : y_0, + h : (b-a)/n_iteraciones, + lista : [u_j], + + for j:1 thru n_iteraciones do block( + t_j : a+j*h, + u_j : u_j+h*f(t_j,u_j), + lista : push(float(u_j), lista) + ), + + /*push añade los elementos previamente en la lista + y no sé como añadirlos después, así que invierto + la lista*/ + lista_r : reverse(lista), + return(lista_r) +)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Método de Euler + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: input start ] */ +metodoEuler(f, y_0, a, b, n_iteraciones) := block( + u_j : y_0, + h : (b-a)/n_iteraciones, + lista : [u_j], + + for j:1 thru n_iteraciones do block( + t_j : a+j*h, + u_j : u_j+h*f(t_j,u_j), + lista : push(float(u_j), lista) + ), + + /*push añade los elementos previamente en la lista + y no sé como añadirlos después, así que invierto + la lista*/ + lista_r : reverse(lista), + return(lista_r) +)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +Euler mejorado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Método de Euler + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: input start ] */ +metodoEuler(f, y_0, a, b, n_iteraciones) := block( + u_j : y_0, + h : (b-a)/n_iteraciones, + lista : [u_j], + + for j:1 thru n_iteraciones do block( + t_j : a+j*h, + u_j : u_j+h*f(t_j,u_j), + lista : push(float(u_j), lista) + ), + + /*push añade los elementos previamente en la lista + y no sé como añadirlos después, así que invierto + la lista*/ + lista_r : reverse(lista), + return(lista_r) +)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Método de Euler + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: input start ] */ +metodoEuler(f, y_0, a, b, n_iteraciones) := block( + u_j : y_0, + h : (b-a)/n_iteraciones, + lista : [u_j], + + for j:1 thru n_iteraciones do block( + t_j : a+j*h, + u_j : u_j+h*f(t_j,u_j), + lista : push(float(u_j), lista) + ), + + /*push añade los elementos previamente en la lista + y no sé como añadirlos después, así que invierto + la lista*/ + lista_r : reverse(lista), + return(lista_r) +)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +Euler mejorado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Consideramos entonces el siguiente método de Runge-Kutta de orden 2, llamado método de Euler mejorado: + [wxMaxima: comment end ] */ + +/* [wxMaxima: section start ] +Método de Euler + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: input start ] */ +metodoEuler(f, y_0, a, b, n_iteraciones) := block( + u_j : y_0, + h : (b-a)/n_iteraciones, + lista : [u_j], + + for j:1 thru n_iteraciones do block( + t_j : a+j*h, + u_j : u_j+h*f(t_j,u_j), + lista : push(float(u_j), lista) + ), + + /*push añade los elementos previamente en la lista + y no sé como añadirlos después, así que invierto + la lista*/ + lista_r : reverse(lista), + return(lista_r) +)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Método de Euler + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: input start ] */ +metodoEuler(f, y_0, a, b, n_iteraciones) := block( + u_j : y_0, + h : (b-a)/n_iteraciones, + lista : [u_j], + + for j:1 thru n_iteraciones do block( + t_j : a+j*h, + u_j : u_j+h*f(t_j,u_j), + lista : push(float(u_j), lista) + ), + + /*push añade los elementos previamente en la lista + y no sé como añadirlos después, así que invierto + la lista*/ + lista_r : reverse(lista), + return(lista_r) +)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +Euler mejorado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: section start ] +Método de Euler + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: input start ] */ +metodoEuler(f, y_0, a, b, n_iteraciones) := block( + u_j : y_0, + h : (b-a)/n_iteraciones, + lista : [u_j], + + for j:1 thru n_iteraciones do block( + t_j : a+j*h, + u_j : u_j+h*f(t_j,u_j), + lista : push(float(u_j), lista) + ), + + /*push añade los elementos previamente en la lista + y no sé como añadirlos después, así que invierto + la lista*/ + lista_r : reverse(lista), + return(lista_r) +)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Método de Euler + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: input start ] */ +metodoEuler(f, y_0, a, b, n_iteraciones) := block( + u_j : y_0, + h : (b-a)/n_iteraciones, + lista : [u_j], + + for j:1 thru n_iteraciones do block( + t_j : a+j*h, + u_j : u_j+h*f(t_j,u_j), + lista : push(float(u_j), lista) + ), + + /*push añade los elementos previamente en la lista + y no sé como añadirlos después, así que invierto + la lista*/ + lista_r : reverse(lista), + return(lista_r) +)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +Euler mejorado + [wxMaxima: subsect end ] */ + +/* [wxMaxima: comment start ] +Consideramos entonces el siguiente método de Runge-Kutta de orden 2, llamado método de Euler mejorado: + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +EulerMejorado(f, y_0, a, b, n_iteraciones) := block( + u_j : y_0, + h : (b-a)/n_iteraciones, + lista : [u_j], + + for j:1 thru n_iteraciones do block( + t_j : a+j*h, + u_j : u_j+h*f(t_j+h/2, u_j+h/2*f(t_j,u_j)), + lista : push(float(u_j), lista) + ), + + lista_r : reverse(lista), + return(lista_r) +)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: fold end ] */ + + +/* [wxMaxima: section start ] +Método de Taylor + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: input start ] */ +T_r(t, y, f, h, r) := block( + ret : f(t,y) + h/2*f(t,y), + define(dfdt(x,s), diff(f(x,s), x, 1)), + define(dfdy(x,s), diff(f(x,s), s, 1)), + + lim : (r-1), + for i:1 thru lim do block( + f_s : dfdt(t,y) + dfdy(t,y)*f(t,y), + define(dfdt(x,s), diff(dfdt(x,s), x, 1)), + define(dfdy(x,s), diff(dfdt(x,s), s, 1)), + ret : ret + h^i/(i+1)!*f_s + ), + + return(f(t, y) + h/2*(dfdt(t, y)+dfdy(t, y)*f(t, y))) +)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Método de Taylor + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: input start ] */ +T_r(t, y, f, h, r) := block( + ret : f(t,y) + h/2*f(t,y), + define(dfdt(x,s), diff(f(x,s), x, 1)), + define(dfdy(x,s), diff(f(x,s), s, 1)), + + lim : (r-1), + for i:1 thru lim do block( + f_s : dfdt(t,y) + dfdy(t,y)*f(t,y), + define(dfdt(x,s), diff(dfdt(x,s), x, 1)), + define(dfdy(x,s), diff(dfdt(x,s), s, 1)), + ret : ret + h^i/(i+1)!*f_s + ), + + return(f(t, y) + h/2*(dfdt(t, y)+dfdy(t, y)*f(t, y))) +)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: input start ] */ +taylor(f, y_0, a, b, n, r) := block( + /*no se puede sustituir la 'r' (?)*/ + h : (b-a)/n, + lista_u : [y_0], + + for j:1 thru n do block( + t_j : a+h*j, + u_j : lista_u[j], + u : u_j + h*T_r(t_j, u_j, f, h,r), + lista_u : push(float(u), lista_u) + ), + + lista_u_r : reverse(lista_u), + return(lista_u_r) +)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Método de Taylor + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: input start ] */ +T_r(t, y, f, h, r) := block( + ret : f(t,y) + h/2*f(t,y), + define(dfdt(x,s), diff(f(x,s), x, 1)), + define(dfdy(x,s), diff(f(x,s), s, 1)), + + lim : (r-1), + for i:1 thru lim do block( + f_s : dfdt(t,y) + dfdy(t,y)*f(t,y), + define(dfdt(x,s), diff(dfdt(x,s), x, 1)), + define(dfdy(x,s), diff(dfdt(x,s), s, 1)), + ret : ret + h^i/(i+1)!*f_s + ), + + return(f(t, y) + h/2*(dfdt(t, y)+dfdy(t, y)*f(t, y))) +)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Método de Taylor + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: input start ] */ +T_r(t, y, f, h, r) := block( + ret : f(t,y) + h/2*f(t,y), + define(dfdt(x,s), diff(f(x,s), x, 1)), + define(dfdy(x,s), diff(f(x,s), s, 1)), + + lim : (r-1), + for i:1 thru lim do block( + f_s : dfdt(t,y) + dfdy(t,y)*f(t,y), + define(dfdt(x,s), diff(dfdt(x,s), x, 1)), + define(dfdy(x,s), diff(dfdt(x,s), s, 1)), + ret : ret + h^i/(i+1)!*f_s + ), + + return(f(t, y) + h/2*(dfdt(t, y)+dfdy(t, y)*f(t, y))) +)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: input start ] */ +taylor(f, y_0, a, b, n, r) := block( + /*no se puede sustituir la 'r' (?)*/ + h : (b-a)/n, + lista_u : [y_0], + + for j:1 thru n do block( + t_j : a+h*j, + u_j : lista_u[j], + u : u_j + h*T_r(t_j, u_j, f, h,r), + lista_u : push(float(u), lista_u) + ), + + lista_u_r : reverse(lista_u), + return(lista_u_r) +)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: input start ] */ +kill(f,a,b,y_0,n_iteraciones,solucion,nodos)$ +f(t,y) := y^2/(1+t)$ +solucion(t) := float(-1/log(t+1))$ +a : 1$ +b : 2$ +y_0 : float(-1/log(2))$ +n_iteraciones : 10$ +nodos : makelist(float(a+j*(a+b)/10), j, 0, 10)$ + +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Método de Taylor + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: input start ] */ +T_r(t, y, f, h, r) := block( + ret : f(t,y) + h/2*f(t,y), + define(dfdt(x,s), diff(f(x,s), x, 1)), + define(dfdy(x,s), diff(f(x,s), s, 1)), + + lim : (r-1), + for i:1 thru lim do block( + f_s : dfdt(t,y) + dfdy(t,y)*f(t,y), + define(dfdt(x,s), diff(dfdt(x,s), x, 1)), + define(dfdy(x,s), diff(dfdt(x,s), s, 1)), + ret : ret + h^i/(i+1)!*f_s + ), + + return(f(t, y) + h/2*(dfdt(t, y)+dfdy(t, y)*f(t, y))) +)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Método de Taylor + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: input start ] */ +T_r(t, y, f, h, r) := block( + ret : f(t,y) + h/2*f(t,y), + define(dfdt(x,s), diff(f(x,s), x, 1)), + define(dfdy(x,s), diff(f(x,s), s, 1)), + + lim : (r-1), + for i:1 thru lim do block( + f_s : dfdt(t,y) + dfdy(t,y)*f(t,y), + define(dfdt(x,s), diff(dfdt(x,s), x, 1)), + define(dfdy(x,s), diff(dfdt(x,s), s, 1)), + ret : ret + h^i/(i+1)!*f_s + ), + + return(f(t, y) + h/2*(dfdt(t, y)+dfdy(t, y)*f(t, y))) +)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: input start ] */ +taylor(f, y_0, a, b, n, r) := block( + /*no se puede sustituir la 'r' (?)*/ + h : (b-a)/n, + lista_u : [y_0], + + for j:1 thru n do block( + t_j : a+h*j, + u_j : lista_u[j], + u : u_j + h*T_r(t_j, u_j, f, h,r), + lista_u : push(float(u), lista_u) + ), + + lista_u_r : reverse(lista_u), + return(lista_u_r) +)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Método de Taylor + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: input start ] */ +T_r(t, y, f, h, r) := block( + ret : f(t,y) + h/2*f(t,y), + define(dfdt(x,s), diff(f(x,s), x, 1)), + define(dfdy(x,s), diff(f(x,s), s, 1)), + + lim : (r-1), + for i:1 thru lim do block( + f_s : dfdt(t,y) + dfdy(t,y)*f(t,y), + define(dfdt(x,s), diff(dfdt(x,s), x, 1)), + define(dfdy(x,s), diff(dfdt(x,s), s, 1)), + ret : ret + h^i/(i+1)!*f_s + ), + + return(f(t, y) + h/2*(dfdt(t, y)+dfdy(t, y)*f(t, y))) +)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Método de Taylor + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: input start ] */ +T_r(t, y, f, h, r) := block( + ret : f(t,y) + h/2*f(t,y), + define(dfdt(x,s), diff(f(x,s), x, 1)), + define(dfdy(x,s), diff(f(x,s), s, 1)), + + lim : (r-1), + for i:1 thru lim do block( + f_s : dfdt(t,y) + dfdy(t,y)*f(t,y), + define(dfdt(x,s), diff(dfdt(x,s), x, 1)), + define(dfdy(x,s), diff(dfdt(x,s), s, 1)), + ret : ret + h^i/(i+1)!*f_s + ), + + return(f(t, y) + h/2*(dfdt(t, y)+dfdy(t, y)*f(t, y))) +)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: input start ] */ +taylor(f, y_0, a, b, n, r) := block( + /*no se puede sustituir la 'r' (?)*/ + h : (b-a)/n, + lista_u : [y_0], + + for j:1 thru n do block( + t_j : a+h*j, + u_j : lista_u[j], + u : u_j + h*T_r(t_j, u_j, f, h,r), + lista_u : push(float(u), lista_u) + ), + + lista_u_r : reverse(lista_u), + return(lista_u_r) +)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: input start ] */ +kill(f,a,b,y_0,n_iteraciones,solucion,nodos)$ +f(t,y) := y^2/(1+t)$ +solucion(t) := float(-1/log(t+1))$ +a : 1$ +b : 2$ +y_0 : float(-1/log(2))$ +n_iteraciones : 10$ +nodos : makelist(float(a+j*(a+b)/10), j, 0, 10)$ + +/* [wxMaxima: input end ] */ + +/* [wxMaxima: fold end ] */ + + +/* [wxMaxima: section start ] +Método del punto medio + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: input start ] */ +metodoPuntoMedio(f, y_0, y_1, a, b, n_iteraciones) := block( + u_j_1 : y_0, /* u_j menos uno*/ + u_j : y_1, + h : (b-a)/n_iteraciones, + lista : [u_j, u_j_1], + + for j:2 thru n_iteraciones do block( + t_j_1 : float(a+(j-1)*h), /* t_j menos 1*/ + t_j : float(a+j*h), + + /* No podemos pisar el valor de u_j, lo necesitamos */ + u_j_1_aux : u_j, + u_j : u_j_1 + 2*h*f(t_j, u_j), + lista : push(float(u_j), lista), + + /* Actualizamos valor anterior*/ + u_j_1 : u_j_1_aux + ), + + lista_r : reverse(lista), + return(lista_r) +)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Método del punto medio + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: input start ] */ +metodoPuntoMedio(f, y_0, y_1, a, b, n_iteraciones) := block( + u_j_1 : y_0, /* u_j menos uno*/ + u_j : y_1, + h : (b-a)/n_iteraciones, + lista : [u_j, u_j_1], + + for j:2 thru n_iteraciones do block( + t_j_1 : float(a+(j-1)*h), /* t_j menos 1*/ + t_j : float(a+j*h), + + /* No podemos pisar el valor de u_j, lo necesitamos */ + u_j_1_aux : u_j, + u_j : u_j_1 + 2*h*f(t_j, u_j), + lista : push(float(u_j), lista), + + /* Actualizamos valor anterior*/ + u_j_1 : u_j_1_aux + ), + + lista_r : reverse(lista), + return(lista_r) +)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: fold end ] */ + + +/* [wxMaxima: section start ] +Método de Crank-Nicholson + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: input start ] */ +metodoNumerico(f, t_j, u_j, h) := block( + return(u_j+h*f(t_j+h/2, u_j+h/2*f(t_j,u_j))) +)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Método de Crank-Nicholson + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: input start ] */ +metodoNumerico(f, t_j, u_j, h) := block( + return(u_j+h*f(t_j+h/2, u_j+h/2*f(t_j,u_j))) +)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: input start ] */ +metodoCrankNicholson(f, y_0, a, b, n_iteraciones) := block( + u_j : y_0, + h : (b-a)/n_iteraciones, + lista : [u_j], + + for j:1 thru n_iteraciones do block( + t_j : float(a+j*h), + + /* Aproximamos con una iteración del método de Euler mejorado */ + u_j : u_j + h/2*(f(t_j,u_j)+ metodoNumerico(f,t_j,u_j,h)), + lista : push(float(u_j), lista) + ), + + lista_r : reverse(lista), + return(lista_r) +)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Método de Crank-Nicholson + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: input start ] */ +metodoNumerico(f, t_j, u_j, h) := block( + return(u_j+h*f(t_j+h/2, u_j+h/2*f(t_j,u_j))) +)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: section start ] +Método de Crank-Nicholson + [wxMaxima: section end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: input start ] */ +metodoNumerico(f, t_j, u_j, h) := block( + return(u_j+h*f(t_j+h/2, u_j+h/2*f(t_j,u_j))) +)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: input start ] */ +metodoCrankNicholson(f, y_0, a, b, n_iteraciones) := block( + u_j : y_0, + h : (b-a)/n_iteraciones, + lista : [u_j], + + for j:1 thru n_iteraciones do block( + t_j : float(a+j*h), + + /* Aproximamos con una iteración del método de Euler mejorado */ + u_j : u_j + h/2*(f(t_j,u_j)+ metodoNumerico(f,t_j,u_j,h)), + lista : push(float(u_j), lista) + ), + + lista_r : reverse(lista), + return(lista_r) +)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: fold end ] */ + + +/* [wxMaxima: title start ] +Ejercicios + [wxMaxima: title end ] */ + + +/* [wxMaxima: section start ] +10-5 + [wxMaxima: section end ] */ + + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +c) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +c) + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +errores_e : create_list (abs(float(solucion_real[i]-solucion_euler[i])), i, makelist(i,i,1,11))$ +errores_e_m : create_list (abs(float(solucion_real[i]-solucion_euler_mej[i])), i, makelist(i,i,1,11))$ +print("Solución real:")$ +print(solucion_real)$ +print(" ")$ +print("Solución método de Euler:")$ +print(solucion_euler)$ +print(" ")$ +print("Errores Euler:")$ +print(errores_e)$ +print(" ")$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +c) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +c) + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +errores_e : create_list (abs(float(solucion_real[i]-solucion_euler[i])), i, makelist(i,i,1,11))$ +errores_e_m : create_list (abs(float(solucion_real[i]-solucion_euler_mej[i])), i, makelist(i,i,1,11))$ +print("Solución real:")$ +print(solucion_real)$ +print(" ")$ +print("Solución método de Euler:")$ +print(solucion_euler)$ +print(" ")$ +print("Errores Euler:")$ +print(errores_e)$ +print(" ")$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +d) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +c) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +c) + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +errores_e : create_list (abs(float(solucion_real[i]-solucion_euler[i])), i, makelist(i,i,1,11))$ +errores_e_m : create_list (abs(float(solucion_real[i]-solucion_euler_mej[i])), i, makelist(i,i,1,11))$ +print("Solución real:")$ +print(solucion_real)$ +print(" ")$ +print("Solución método de Euler:")$ +print(solucion_euler)$ +print(" ")$ +print("Errores Euler:")$ +print(errores_e)$ +print(" ")$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +c) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +c) + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +errores_e : create_list (abs(float(solucion_real[i]-solucion_euler[i])), i, makelist(i,i,1,11))$ +errores_e_m : create_list (abs(float(solucion_real[i]-solucion_euler_mej[i])), i, makelist(i,i,1,11))$ +print("Solución real:")$ +print(solucion_real)$ +print(" ")$ +print("Solución método de Euler:")$ +print(solucion_euler)$ +print(" ")$ +print("Errores Euler:")$ +print(errores_e)$ +print(" ")$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +d) + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +crearPuntos(abscisas, ordenadas) := block( + /* Precondición: longitud de abscisas igual a la de ordenadas */ + lista : [], + + for j:1 thru length(abscisas) do block( + punto : [abscisas[j], ordenadas[j]], + lista : push(float(punto), lista) + ), + return(lista) +)$ +puntos : crearPuntos(nodos, solucion_euler)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +c) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +c) + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +errores_e : create_list (abs(float(solucion_real[i]-solucion_euler[i])), i, makelist(i,i,1,11))$ +errores_e_m : create_list (abs(float(solucion_real[i]-solucion_euler_mej[i])), i, makelist(i,i,1,11))$ +print("Solución real:")$ +print(solucion_real)$ +print(" ")$ +print("Solución método de Euler:")$ +print(solucion_euler)$ +print(" ")$ +print("Errores Euler:")$ +print(errores_e)$ +print(" ")$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +c) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +c) + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +errores_e : create_list (abs(float(solucion_real[i]-solucion_euler[i])), i, makelist(i,i,1,11))$ +errores_e_m : create_list (abs(float(solucion_real[i]-solucion_euler_mej[i])), i, makelist(i,i,1,11))$ +print("Solución real:")$ +print(solucion_real)$ +print(" ")$ +print("Solución método de Euler:")$ +print(solucion_euler)$ +print(" ")$ +print("Errores Euler:")$ +print(errores_e)$ +print(" ")$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +d) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +c) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +c) + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +errores_e : create_list (abs(float(solucion_real[i]-solucion_euler[i])), i, makelist(i,i,1,11))$ +errores_e_m : create_list (abs(float(solucion_real[i]-solucion_euler_mej[i])), i, makelist(i,i,1,11))$ +print("Solución real:")$ +print(solucion_real)$ +print(" ")$ +print("Solución método de Euler:")$ +print(solucion_euler)$ +print(" ")$ +print("Errores Euler:")$ +print(errores_e)$ +print(" ")$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +c) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +c) + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +errores_e : create_list (abs(float(solucion_real[i]-solucion_euler[i])), i, makelist(i,i,1,11))$ +errores_e_m : create_list (abs(float(solucion_real[i]-solucion_euler_mej[i])), i, makelist(i,i,1,11))$ +print("Solución real:")$ +print(solucion_real)$ +print(" ")$ +print("Solución método de Euler:")$ +print(solucion_euler)$ +print(" ")$ +print("Errores Euler:")$ +print(errores_e)$ +print(" ")$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +d) + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +crearPuntos(abscisas, ordenadas) := block( + /* Precondición: longitud de abscisas igual a la de ordenadas */ + lista : [], + + for j:1 thru length(abscisas) do block( + punto : [abscisas[j], ordenadas[j]], + lista : push(float(punto), lista) + ), + return(lista) +)$ +puntos : crearPuntos(nodos, solucion_euler)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: input start ] */ +puntos : [[1,1],[2,2],[3,3]]$ +grafico1 : wxplot2d(solucion(x), [x,0,2])$ +grafico2 : wxplot2d([discrete, [[1,1],[2,2],[3,3]]], [style, points])$ +/*grafico2 : wxplot2d([discrete, [[1,1],[2,2],[3,3]]], [x,0,2], [style, points, lines])$*/ + + +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +c) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +c) + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +errores_e : create_list (abs(float(solucion_real[i]-solucion_euler[i])), i, makelist(i,i,1,11))$ +errores_e_m : create_list (abs(float(solucion_real[i]-solucion_euler_mej[i])), i, makelist(i,i,1,11))$ +print("Solución real:")$ +print(solucion_real)$ +print(" ")$ +print("Solución método de Euler:")$ +print(solucion_euler)$ +print(" ")$ +print("Errores Euler:")$ +print(errores_e)$ +print(" ")$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +c) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +c) + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +errores_e : create_list (abs(float(solucion_real[i]-solucion_euler[i])), i, makelist(i,i,1,11))$ +errores_e_m : create_list (abs(float(solucion_real[i]-solucion_euler_mej[i])), i, makelist(i,i,1,11))$ +print("Solución real:")$ +print(solucion_real)$ +print(" ")$ +print("Solución método de Euler:")$ +print(solucion_euler)$ +print(" ")$ +print("Errores Euler:")$ +print(errores_e)$ +print(" ")$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +d) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +c) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +c) + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +errores_e : create_list (abs(float(solucion_real[i]-solucion_euler[i])), i, makelist(i,i,1,11))$ +errores_e_m : create_list (abs(float(solucion_real[i]-solucion_euler_mej[i])), i, makelist(i,i,1,11))$ +print("Solución real:")$ +print(solucion_real)$ +print(" ")$ +print("Solución método de Euler:")$ +print(solucion_euler)$ +print(" ")$ +print("Errores Euler:")$ +print(errores_e)$ +print(" ")$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +c) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +c) + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +errores_e : create_list (abs(float(solucion_real[i]-solucion_euler[i])), i, makelist(i,i,1,11))$ +errores_e_m : create_list (abs(float(solucion_real[i]-solucion_euler_mej[i])), i, makelist(i,i,1,11))$ +print("Solución real:")$ +print(solucion_real)$ +print(" ")$ +print("Solución método de Euler:")$ +print(solucion_euler)$ +print(" ")$ +print("Errores Euler:")$ +print(errores_e)$ +print(" ")$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +d) + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +crearPuntos(abscisas, ordenadas) := block( + /* Precondición: longitud de abscisas igual a la de ordenadas */ + lista : [], + + for j:1 thru length(abscisas) do block( + punto : [abscisas[j], ordenadas[j]], + lista : push(float(punto), lista) + ), + return(lista) +)$ +puntos : crearPuntos(nodos, solucion_euler)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +c) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +c) + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +errores_e : create_list (abs(float(solucion_real[i]-solucion_euler[i])), i, makelist(i,i,1,11))$ +errores_e_m : create_list (abs(float(solucion_real[i]-solucion_euler_mej[i])), i, makelist(i,i,1,11))$ +print("Solución real:")$ +print(solucion_real)$ +print(" ")$ +print("Solución método de Euler:")$ +print(solucion_euler)$ +print(" ")$ +print("Errores Euler:")$ +print(errores_e)$ +print(" ")$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +c) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +c) + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +errores_e : create_list (abs(float(solucion_real[i]-solucion_euler[i])), i, makelist(i,i,1,11))$ +errores_e_m : create_list (abs(float(solucion_real[i]-solucion_euler_mej[i])), i, makelist(i,i,1,11))$ +print("Solución real:")$ +print(solucion_real)$ +print(" ")$ +print("Solución método de Euler:")$ +print(solucion_euler)$ +print(" ")$ +print("Errores Euler:")$ +print(errores_e)$ +print(" ")$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +d) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +c) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +c) + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +errores_e : create_list (abs(float(solucion_real[i]-solucion_euler[i])), i, makelist(i,i,1,11))$ +errores_e_m : create_list (abs(float(solucion_real[i]-solucion_euler_mej[i])), i, makelist(i,i,1,11))$ +print("Solución real:")$ +print(solucion_real)$ +print(" ")$ +print("Solución método de Euler:")$ +print(solucion_euler)$ +print(" ")$ +print("Errores Euler:")$ +print(errores_e)$ +print(" ")$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +c) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) + + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h=(b-a)/n --> 0.2=(2-0)/n --> n=10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,solucion,y_0,a,b,n_iteraciones,h,solucion_euler,solucion_euler_mej,solucion_real)$ +f(t,y) := y-t^2+1$ +solucion(t) := float((t+1)^2 - 0.5*%e^t)$ +y_0 : 0.5$ +a : 0$ +b : 2$ +n_iteraciones : 10$ /* No se puede poner n_iteraciones en las funciones...*/ +h : float((b-a)/n_iteraciones)$ +nodos : makelist(float(a+j*h), j, 0, 10)$ +solucion_euler : metodoEuler(f, y_0, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* Si pongo 'h' en vez del makelist no aproxima, maxima, me rindo*/ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +c) + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +errores_e : create_list (abs(float(solucion_real[i]-solucion_euler[i])), i, makelist(i,i,1,11))$ +errores_e_m : create_list (abs(float(solucion_real[i]-solucion_euler_mej[i])), i, makelist(i,i,1,11))$ +print("Solución real:")$ +print(solucion_real)$ +print(" ")$ +print("Solución método de Euler:")$ +print(solucion_euler)$ +print(" ")$ +print("Errores Euler:")$ +print(errores_e)$ +print(" ")$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +d) + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +crearPuntos(abscisas, ordenadas) := block( + /* Precondición: longitud de abscisas igual a la de ordenadas */ + lista : [], + + for j:1 thru length(abscisas) do block( + punto : [abscisas[j], ordenadas[j]], + lista : push(float(punto), lista) + ), + return(lista) +)$ +puntos : crearPuntos(nodos, solucion_euler)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: input start ] */ +puntos : [[1,1],[2,2],[3,3]]$ +grafico1 : wxplot2d(solucion(x), [x,0,2])$ +grafico2 : wxplot2d([discrete, [[1,1],[2,2],[3,3]]], [style, points])$ +/*grafico2 : wxplot2d([discrete, [[1,1],[2,2],[3,3]]], [x,0,2], [style, points, lines])$*/ + + +/* [wxMaxima: input end ] */ + +/* [wxMaxima: fold end ] */ + + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) Vemos que la derivada coincide, en particular coincide en +el segmento del ejercicio [0,1]: + y(t) = t^2/4 + y'(t) = 2*t/4 = t/2 = sqrt(t^2/4) +Como y(0) = 0^2/4 = 0 la función también cumple la segunda +condición inicial es una solución del problema de valores +iniciales planteado. + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) Vemos que la derivada coincide, en particular coincide en +el segmento del ejercicio [0,1]: + y(t) = t^2/4 + y'(t) = 2*t/4 = t/2 = sqrt(t^2/4) +Como y(0) = 0^2/4 = 0 la función también cumple la segunda +condición inicial es una solución del problema de valores +iniciales planteado. + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h = (a+b)/n --> n = (a+b)/h = (0+1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) Vemos que la derivada coincide, en particular coincide en +el segmento del ejercicio [0,1]: + y(t) = t^2/4 + y'(t) = 2*t/4 = t/2 = sqrt(t^2/4) +Como y(0) = 0^2/4 = 0 la función también cumple la segunda +condición inicial es una solución del problema de valores +iniciales planteado. + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) Vemos que la derivada coincide, en particular coincide en +el segmento del ejercicio [0,1]: + y(t) = t^2/4 + y'(t) = 2*t/4 = t/2 = sqrt(t^2/4) +Como y(0) = 0^2/4 = 0 la función también cumple la segunda +condición inicial es una solución del problema de valores +iniciales planteado. + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h = (a+b)/n --> n = (a+b)/h = (0+1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,a,b,y_0,n_iteraciones,r)$ +f(t,y) := sqrt(y)$ +a : 0$ +b : 1$ +y_0 : 0$ +n_iteraciones = 10$ +solucion_euler : metodoEuler(f, y_0, a, b, 10); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) Vemos que la derivada coincide, en particular coincide en +el segmento del ejercicio [0,1]: + y(t) = t^2/4 + y'(t) = 2*t/4 = t/2 = sqrt(t^2/4) +Como y(0) = 0^2/4 = 0 la función también cumple la segunda +condición inicial es una solución del problema de valores +iniciales planteado. + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) Vemos que la derivada coincide, en particular coincide en +el segmento del ejercicio [0,1]: + y(t) = t^2/4 + y'(t) = 2*t/4 = t/2 = sqrt(t^2/4) +Como y(0) = 0^2/4 = 0 la función también cumple la segunda +condición inicial es una solución del problema de valores +iniciales planteado. + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h = (a+b)/n --> n = (a+b)/h = (0+1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) Vemos que la derivada coincide, en particular coincide en +el segmento del ejercicio [0,1]: + y(t) = t^2/4 + y'(t) = 2*t/4 = t/2 = sqrt(t^2/4) +Como y(0) = 0^2/4 = 0 la función también cumple la segunda +condición inicial es una solución del problema de valores +iniciales planteado. + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) Vemos que la derivada coincide, en particular coincide en +el segmento del ejercicio [0,1]: + y(t) = t^2/4 + y'(t) = 2*t/4 = t/2 = sqrt(t^2/4) +Como y(0) = 0^2/4 = 0 la función también cumple la segunda +condición inicial es una solución del problema de valores +iniciales planteado. + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h = (a+b)/n --> n = (a+b)/h = (0+1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,a,b,y_0,n_iteraciones,r)$ +f(t,y) := sqrt(y)$ +a : 0$ +b : 1$ +y_0 : 0$ +n_iteraciones = 10$ +solucion_euler : metodoEuler(f, y_0, a, b, 10); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +c) La solución aproximada difiere de t^2/4 ya que la función f(t,y(t)) aplicada a (0,0) es siempre 0, lo que hace salga el punto (0,0) en todas las iteraciones del método de Euler. + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) Vemos que la derivada coincide, en particular coincide en +el segmento del ejercicio [0,1]: + y(t) = t^2/4 + y'(t) = 2*t/4 = t/2 = sqrt(t^2/4) +Como y(0) = 0^2/4 = 0 la función también cumple la segunda +condición inicial es una solución del problema de valores +iniciales planteado. + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) Vemos que la derivada coincide, en particular coincide en +el segmento del ejercicio [0,1]: + y(t) = t^2/4 + y'(t) = 2*t/4 = t/2 = sqrt(t^2/4) +Como y(0) = 0^2/4 = 0 la función también cumple la segunda +condición inicial es una solución del problema de valores +iniciales planteado. + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h = (a+b)/n --> n = (a+b)/h = (0+1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) Vemos que la derivada coincide, en particular coincide en +el segmento del ejercicio [0,1]: + y(t) = t^2/4 + y'(t) = 2*t/4 = t/2 = sqrt(t^2/4) +Como y(0) = 0^2/4 = 0 la función también cumple la segunda +condición inicial es una solución del problema de valores +iniciales planteado. + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) Vemos que la derivada coincide, en particular coincide en +el segmento del ejercicio [0,1]: + y(t) = t^2/4 + y'(t) = 2*t/4 = t/2 = sqrt(t^2/4) +Como y(0) = 0^2/4 = 0 la función también cumple la segunda +condición inicial es una solución del problema de valores +iniciales planteado. + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h = (a+b)/n --> n = (a+b)/h = (0+1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,a,b,y_0,n_iteraciones,r)$ +f(t,y) := sqrt(y)$ +a : 0$ +b : 1$ +y_0 : 0$ +n_iteraciones = 10$ +solucion_euler : metodoEuler(f, y_0, a, b, 10); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) Vemos que la derivada coincide, en particular coincide en +el segmento del ejercicio [0,1]: + y(t) = t^2/4 + y'(t) = 2*t/4 = t/2 = sqrt(t^2/4) +Como y(0) = 0^2/4 = 0 la función también cumple la segunda +condición inicial es una solución del problema de valores +iniciales planteado. + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) Vemos que la derivada coincide, en particular coincide en +el segmento del ejercicio [0,1]: + y(t) = t^2/4 + y'(t) = 2*t/4 = t/2 = sqrt(t^2/4) +Como y(0) = 0^2/4 = 0 la función también cumple la segunda +condición inicial es una solución del problema de valores +iniciales planteado. + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h = (a+b)/n --> n = (a+b)/h = (0+1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) Vemos que la derivada coincide, en particular coincide en +el segmento del ejercicio [0,1]: + y(t) = t^2/4 + y'(t) = 2*t/4 = t/2 = sqrt(t^2/4) +Como y(0) = 0^2/4 = 0 la función también cumple la segunda +condición inicial es una solución del problema de valores +iniciales planteado. + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) Vemos que la derivada coincide, en particular coincide en +el segmento del ejercicio [0,1]: + y(t) = t^2/4 + y'(t) = 2*t/4 = t/2 = sqrt(t^2/4) +Como y(0) = 0^2/4 = 0 la función también cumple la segunda +condición inicial es una solución del problema de valores +iniciales planteado. + [wxMaxima: comment end ] */ + +/* [wxMaxima: comment start ] +b) h = (a+b)/n --> n = (a+b)/h = (0+1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,a,b,y_0,n_iteraciones,r)$ +f(t,y) := sqrt(y)$ +a : 0$ +b : 1$ +y_0 : 0$ +n_iteraciones = 10$ +solucion_euler : metodoEuler(f, y_0, a, b, 10); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +c) La solución aproximada difiere de t^2/4 ya que la función f(t,y(t)) aplicada a (0,0) es siempre 0, lo que hace salga el punto (0,0) en todas las iteraciones del método de Euler. + [wxMaxima: comment end ] */ + +/* [wxMaxima: fold end ] */ + + +/* [wxMaxima: section start ] +17-5 + [wxMaxima: section end ] */ + + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,a,b,y_0,n_iteraciones,solucion,nodos)$ +f(t,y) := y^2/(1+t)$ +solucion(t) := float(-1/log(t+1))$ +a : 1$ +b : 2$ +y_0 : float(-1/log(2))$ +n_iteraciones : 10$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +solucion_euler : EulerMejorado(f, y_0, a, b, 10)$ +solucion_taylor_2 : taylor(f, y_0, a, b, 10, 2)$ +solucion_taylor_4 : taylor(f, y_0, a, b, 10, 4)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,a,b,y_0,n_iteraciones,solucion,nodos)$ +f(t,y) := y^2/(1+t)$ +solucion(t) := float(-1/log(t+1))$ +a : 1$ +b : 2$ +y_0 : float(-1/log(2))$ +n_iteraciones : 10$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +solucion_euler : EulerMejorado(f, y_0, a, b, 10)$ +solucion_taylor_2 : taylor(f, y_0, a, b, 10, 2)$ +solucion_taylor_4 : taylor(f, y_0, a, b, 10, 4)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: input start ] */ +errores_e : create_list (abs(float(solucion_real[i]-solucion_euler[i])), i, makelist(i,i,1,11))$ +errores_t_2 : create_list (abs(float(solucion_real[i]-solucion_taylor_2[i])), i, makelist(i,i,1,11))$ +errores_t_4 : create_list (abs(float(solucion_real[i]-solucion_taylor_4[i])), i, makelist(i,i,1,11))$ +print("Solución real:")$ +print(solucion_real)$ +print(" ")$ +print("Solución método de Euler mejorado:")$ +print(solucion_euler)$ +print(" ")$ +print("Errores Euler mejorado:")$ +print(errores_e)$ +print(" ")$ +print("Solución método de Taylor de orden 2:")$ +print(solucion_taylor_2)$ +print(" ")$ +print("Errores Taylor 2:")$ +print(errores_t_2)$ +print(" ")$ +print("Solución método de Taylor de orden 4:")$ +print(solucion_taylor_4)$ +print(" ")$ +print("Errores Taylor 4:")$ +print(errores_t_4)$ +print(" ")$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,a,b,y_0,n_iteraciones,solucion,nodos)$ +f(t,y) := y^2/(1+t)$ +solucion(t) := float(-1/log(t+1))$ +a : 1$ +b : 2$ +y_0 : float(-1/log(2))$ +n_iteraciones : 10$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +solucion_euler : EulerMejorado(f, y_0, a, b, 10)$ +solucion_taylor_2 : taylor(f, y_0, a, b, 10, 2)$ +solucion_taylor_4 : taylor(f, y_0, a, b, 10, 4)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,a,b,y_0,n_iteraciones,solucion,nodos)$ +f(t,y) := y^2/(1+t)$ +solucion(t) := float(-1/log(t+1))$ +a : 1$ +b : 2$ +y_0 : float(-1/log(2))$ +n_iteraciones : 10$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +solucion_euler : EulerMejorado(f, y_0, a, b, 10)$ +solucion_taylor_2 : taylor(f, y_0, a, b, 10, 2)$ +solucion_taylor_4 : taylor(f, y_0, a, b, 10, 4)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: input start ] */ +errores_e : create_list (abs(float(solucion_real[i]-solucion_euler[i])), i, makelist(i,i,1,11))$ +errores_t_2 : create_list (abs(float(solucion_real[i]-solucion_taylor_2[i])), i, makelist(i,i,1,11))$ +errores_t_4 : create_list (abs(float(solucion_real[i]-solucion_taylor_4[i])), i, makelist(i,i,1,11))$ +print("Solución real:")$ +print(solucion_real)$ +print(" ")$ +print("Solución método de Euler mejorado:")$ +print(solucion_euler)$ +print(" ")$ +print("Errores Euler mejorado:")$ +print(errores_e)$ +print(" ")$ +print("Solución método de Taylor de orden 2:")$ +print(solucion_taylor_2)$ +print(" ")$ +print("Errores Taylor 2:")$ +print(errores_t_2)$ +print(" ")$ +print("Solución método de Taylor de orden 4:")$ +print(solucion_taylor_4)$ +print(" ")$ +print("Errores Taylor 4:")$ +print(errores_t_4)$ +print(" ")$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +b) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,a,b,y_0,n_iteraciones,solucion,nodos)$ +f(t,y) := y^2/(1+t)$ +solucion(t) := float(-1/log(t+1))$ +a : 1$ +b : 2$ +y_0 : float(-1/log(2))$ +n_iteraciones : 10$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +solucion_euler : EulerMejorado(f, y_0, a, b, 10)$ +solucion_taylor_2 : taylor(f, y_0, a, b, 10, 2)$ +solucion_taylor_4 : taylor(f, y_0, a, b, 10, 4)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,a,b,y_0,n_iteraciones,solucion,nodos)$ +f(t,y) := y^2/(1+t)$ +solucion(t) := float(-1/log(t+1))$ +a : 1$ +b : 2$ +y_0 : float(-1/log(2))$ +n_iteraciones : 10$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +solucion_euler : EulerMejorado(f, y_0, a, b, 10)$ +solucion_taylor_2 : taylor(f, y_0, a, b, 10, 2)$ +solucion_taylor_4 : taylor(f, y_0, a, b, 10, 4)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: input start ] */ +errores_e : create_list (abs(float(solucion_real[i]-solucion_euler[i])), i, makelist(i,i,1,11))$ +errores_t_2 : create_list (abs(float(solucion_real[i]-solucion_taylor_2[i])), i, makelist(i,i,1,11))$ +errores_t_4 : create_list (abs(float(solucion_real[i]-solucion_taylor_4[i])), i, makelist(i,i,1,11))$ +print("Solución real:")$ +print(solucion_real)$ +print(" ")$ +print("Solución método de Euler mejorado:")$ +print(solucion_euler)$ +print(" ")$ +print("Errores Euler mejorado:")$ +print(errores_e)$ +print(" ")$ +print("Solución método de Taylor de orden 2:")$ +print(solucion_taylor_2)$ +print(" ")$ +print("Errores Taylor 2:")$ +print(errores_t_2)$ +print(" ")$ +print("Solución método de Taylor de orden 4:")$ +print(solucion_taylor_4)$ +print(" ")$ +print("Errores Taylor 4:")$ +print(errores_t_4)$ +print(" ")$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,a,b,y_0,n_iteraciones,solucion,nodos)$ +f(t,y) := y^2/(1+t)$ +solucion(t) := float(-1/log(t+1))$ +a : 1$ +b : 2$ +y_0 : float(-1/log(2))$ +n_iteraciones : 10$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +solucion_euler : EulerMejorado(f, y_0, a, b, 10)$ +solucion_taylor_2 : taylor(f, y_0, a, b, 10, 2)$ +solucion_taylor_4 : taylor(f, y_0, a, b, 10, 4)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,a,b,y_0,n_iteraciones,solucion,nodos)$ +f(t,y) := y^2/(1+t)$ +solucion(t) := float(-1/log(t+1))$ +a : 1$ +b : 2$ +y_0 : float(-1/log(2))$ +n_iteraciones : 10$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +solucion_euler : EulerMejorado(f, y_0, a, b, 10)$ +solucion_taylor_2 : taylor(f, y_0, a, b, 10, 2)$ +solucion_taylor_4 : taylor(f, y_0, a, b, 10, 4)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: input start ] */ +errores_e : create_list (abs(float(solucion_real[i]-solucion_euler[i])), i, makelist(i,i,1,11))$ +errores_t_2 : create_list (abs(float(solucion_real[i]-solucion_taylor_2[i])), i, makelist(i,i,1,11))$ +errores_t_4 : create_list (abs(float(solucion_real[i]-solucion_taylor_4[i])), i, makelist(i,i,1,11))$ +print("Solución real:")$ +print(solucion_real)$ +print(" ")$ +print("Solución método de Euler mejorado:")$ +print(solucion_euler)$ +print(" ")$ +print("Errores Euler mejorado:")$ +print(errores_e)$ +print(" ")$ +print("Solución método de Taylor de orden 2:")$ +print(solucion_taylor_2)$ +print(" ")$ +print("Errores Taylor 2:")$ +print(errores_t_2)$ +print(" ")$ +print("Solución método de Taylor de orden 4:")$ +print(solucion_taylor_4)$ +print(" ")$ +print("Errores Taylor 4:")$ +print(errores_t_4)$ +print(" ")$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +b) + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y^2/(1+t)$ +solucion(t) := float(-1/log(t+1))$ +a : 1$ +b : 2$ +y_0 : float(-1/log(2))$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +y_1_euler : float(y_0+h*f(a,y_0))$ +y_1_euler_m : float(y_0+h*f(a+h/2, y_0+h/2*f(a,y_0)))$ +solucion_p_medio_e : metodoPuntoMedio(f, y_0, y_1_euler, a, b, 10)$ +solucion_p_medio_e_m : metodoPuntoMedio(f, y_0, y_1_euler_m, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,a,b,y_0,n_iteraciones,solucion,nodos)$ +f(t,y) := y^2/(1+t)$ +solucion(t) := float(-1/log(t+1))$ +a : 1$ +b : 2$ +y_0 : float(-1/log(2))$ +n_iteraciones : 10$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +solucion_euler : EulerMejorado(f, y_0, a, b, 10)$ +solucion_taylor_2 : taylor(f, y_0, a, b, 10, 2)$ +solucion_taylor_4 : taylor(f, y_0, a, b, 10, 4)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,a,b,y_0,n_iteraciones,solucion,nodos)$ +f(t,y) := y^2/(1+t)$ +solucion(t) := float(-1/log(t+1))$ +a : 1$ +b : 2$ +y_0 : float(-1/log(2))$ +n_iteraciones : 10$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +solucion_euler : EulerMejorado(f, y_0, a, b, 10)$ +solucion_taylor_2 : taylor(f, y_0, a, b, 10, 2)$ +solucion_taylor_4 : taylor(f, y_0, a, b, 10, 4)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: input start ] */ +errores_e : create_list (abs(float(solucion_real[i]-solucion_euler[i])), i, makelist(i,i,1,11))$ +errores_t_2 : create_list (abs(float(solucion_real[i]-solucion_taylor_2[i])), i, makelist(i,i,1,11))$ +errores_t_4 : create_list (abs(float(solucion_real[i]-solucion_taylor_4[i])), i, makelist(i,i,1,11))$ +print("Solución real:")$ +print(solucion_real)$ +print(" ")$ +print("Solución método de Euler mejorado:")$ +print(solucion_euler)$ +print(" ")$ +print("Errores Euler mejorado:")$ +print(errores_e)$ +print(" ")$ +print("Solución método de Taylor de orden 2:")$ +print(solucion_taylor_2)$ +print(" ")$ +print("Errores Taylor 2:")$ +print(errores_t_2)$ +print(" ")$ +print("Solución método de Taylor de orden 4:")$ +print(solucion_taylor_4)$ +print(" ")$ +print("Errores Taylor 4:")$ +print(errores_t_4)$ +print(" ")$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,a,b,y_0,n_iteraciones,solucion,nodos)$ +f(t,y) := y^2/(1+t)$ +solucion(t) := float(-1/log(t+1))$ +a : 1$ +b : 2$ +y_0 : float(-1/log(2))$ +n_iteraciones : 10$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +solucion_euler : EulerMejorado(f, y_0, a, b, 10)$ +solucion_taylor_2 : taylor(f, y_0, a, b, 10, 2)$ +solucion_taylor_4 : taylor(f, y_0, a, b, 10, 4)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,a,b,y_0,n_iteraciones,solucion,nodos)$ +f(t,y) := y^2/(1+t)$ +solucion(t) := float(-1/log(t+1))$ +a : 1$ +b : 2$ +y_0 : float(-1/log(2))$ +n_iteraciones : 10$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +solucion_euler : EulerMejorado(f, y_0, a, b, 10)$ +solucion_taylor_2 : taylor(f, y_0, a, b, 10, 2)$ +solucion_taylor_4 : taylor(f, y_0, a, b, 10, 4)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: input start ] */ +errores_e : create_list (abs(float(solucion_real[i]-solucion_euler[i])), i, makelist(i,i,1,11))$ +errores_t_2 : create_list (abs(float(solucion_real[i]-solucion_taylor_2[i])), i, makelist(i,i,1,11))$ +errores_t_4 : create_list (abs(float(solucion_real[i]-solucion_taylor_4[i])), i, makelist(i,i,1,11))$ +print("Solución real:")$ +print(solucion_real)$ +print(" ")$ +print("Solución método de Euler mejorado:")$ +print(solucion_euler)$ +print(" ")$ +print("Errores Euler mejorado:")$ +print(errores_e)$ +print(" ")$ +print("Solución método de Taylor de orden 2:")$ +print(solucion_taylor_2)$ +print(" ")$ +print("Errores Taylor 2:")$ +print(errores_t_2)$ +print(" ")$ +print("Solución método de Taylor de orden 4:")$ +print(solucion_taylor_4)$ +print(" ")$ +print("Errores Taylor 4:")$ +print(errores_t_4)$ +print(" ")$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +b) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,a,b,y_0,n_iteraciones,solucion,nodos)$ +f(t,y) := y^2/(1+t)$ +solucion(t) := float(-1/log(t+1))$ +a : 1$ +b : 2$ +y_0 : float(-1/log(2))$ +n_iteraciones : 10$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +solucion_euler : EulerMejorado(f, y_0, a, b, 10)$ +solucion_taylor_2 : taylor(f, y_0, a, b, 10, 2)$ +solucion_taylor_4 : taylor(f, y_0, a, b, 10, 4)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,a,b,y_0,n_iteraciones,solucion,nodos)$ +f(t,y) := y^2/(1+t)$ +solucion(t) := float(-1/log(t+1))$ +a : 1$ +b : 2$ +y_0 : float(-1/log(2))$ +n_iteraciones : 10$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +solucion_euler : EulerMejorado(f, y_0, a, b, 10)$ +solucion_taylor_2 : taylor(f, y_0, a, b, 10, 2)$ +solucion_taylor_4 : taylor(f, y_0, a, b, 10, 4)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: input start ] */ +errores_e : create_list (abs(float(solucion_real[i]-solucion_euler[i])), i, makelist(i,i,1,11))$ +errores_t_2 : create_list (abs(float(solucion_real[i]-solucion_taylor_2[i])), i, makelist(i,i,1,11))$ +errores_t_4 : create_list (abs(float(solucion_real[i]-solucion_taylor_4[i])), i, makelist(i,i,1,11))$ +print("Solución real:")$ +print(solucion_real)$ +print(" ")$ +print("Solución método de Euler mejorado:")$ +print(solucion_euler)$ +print(" ")$ +print("Errores Euler mejorado:")$ +print(errores_e)$ +print(" ")$ +print("Solución método de Taylor de orden 2:")$ +print(solucion_taylor_2)$ +print(" ")$ +print("Errores Taylor 2:")$ +print(errores_t_2)$ +print(" ")$ +print("Solución método de Taylor de orden 4:")$ +print(solucion_taylor_4)$ +print(" ")$ +print("Errores Taylor 4:")$ +print(errores_t_4)$ +print(" ")$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,a,b,y_0,n_iteraciones,solucion,nodos)$ +f(t,y) := y^2/(1+t)$ +solucion(t) := float(-1/log(t+1))$ +a : 1$ +b : 2$ +y_0 : float(-1/log(2))$ +n_iteraciones : 10$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +solucion_euler : EulerMejorado(f, y_0, a, b, 10)$ +solucion_taylor_2 : taylor(f, y_0, a, b, 10, 2)$ +solucion_taylor_4 : taylor(f, y_0, a, b, 10, 4)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,a,b,y_0,n_iteraciones,solucion,nodos)$ +f(t,y) := y^2/(1+t)$ +solucion(t) := float(-1/log(t+1))$ +a : 1$ +b : 2$ +y_0 : float(-1/log(2))$ +n_iteraciones : 10$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +solucion_euler : EulerMejorado(f, y_0, a, b, 10)$ +solucion_taylor_2 : taylor(f, y_0, a, b, 10, 2)$ +solucion_taylor_4 : taylor(f, y_0, a, b, 10, 4)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: input start ] */ +errores_e : create_list (abs(float(solucion_real[i]-solucion_euler[i])), i, makelist(i,i,1,11))$ +errores_t_2 : create_list (abs(float(solucion_real[i]-solucion_taylor_2[i])), i, makelist(i,i,1,11))$ +errores_t_4 : create_list (abs(float(solucion_real[i]-solucion_taylor_4[i])), i, makelist(i,i,1,11))$ +print("Solución real:")$ +print(solucion_real)$ +print(" ")$ +print("Solución método de Euler mejorado:")$ +print(solucion_euler)$ +print(" ")$ +print("Errores Euler mejorado:")$ +print(errores_e)$ +print(" ")$ +print("Solución método de Taylor de orden 2:")$ +print(solucion_taylor_2)$ +print(" ")$ +print("Errores Taylor 2:")$ +print(errores_t_2)$ +print(" ")$ +print("Solución método de Taylor de orden 4:")$ +print(solucion_taylor_4)$ +print(" ")$ +print("Errores Taylor 4:")$ +print(errores_t_4)$ +print(" ")$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +b) + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y^2/(1+t)$ +solucion(t) := float(-1/log(t+1))$ +a : 1$ +b : 2$ +y_0 : float(-1/log(2))$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +y_1_euler : float(y_0+h*f(a,y_0))$ +y_1_euler_m : float(y_0+h*f(a+h/2, y_0+h/2*f(a,y_0)))$ +solucion_p_medio_e : metodoPuntoMedio(f, y_0, y_1_euler, a, b, 10)$ +solucion_p_medio_e_m : metodoPuntoMedio(f, y_0, y_1_euler_m, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: input start ] */ +errores_e : create_list (abs(float(solucion_real[i]-solucion_p_medio_e[i])), i, makelist(i,i,1,11))$ +errores_e_m : create_list (abs(float(solucion_real[i]-solucion_p_medio_e_m[i])), i, makelist(i,i,1,11))$ +print("Solución real:")$ +print(solucion_real)$ +print(" ")$ +print("Solución método del punto medio obteniendo u_1 con el método de Euler:")$ +print(solucion_p_medio_e)$ +print(" ")$ +print("Errores punto medio con Euler:")$ +print(errores_e)$ +print(" ")$ +print("Solución método del punto medio obteniendo u_1 con el método de Euler mejorado:")$ +print(solucion_p_medio_e_m)$ +print(" ")$ +print("Errores punto medio con Euler mejorado:")$ +print(errores_e_m)$ +print(" ")$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,a,b,y_0,n_iteraciones,solucion,nodos)$ +f(t,y) := y^2/(1+t)$ +solucion(t) := float(-1/log(t+1))$ +a : 1$ +b : 2$ +y_0 : float(-1/log(2))$ +n_iteraciones : 10$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +solucion_euler : EulerMejorado(f, y_0, a, b, 10)$ +solucion_taylor_2 : taylor(f, y_0, a, b, 10, 2)$ +solucion_taylor_4 : taylor(f, y_0, a, b, 10, 4)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,a,b,y_0,n_iteraciones,solucion,nodos)$ +f(t,y) := y^2/(1+t)$ +solucion(t) := float(-1/log(t+1))$ +a : 1$ +b : 2$ +y_0 : float(-1/log(2))$ +n_iteraciones : 10$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +solucion_euler : EulerMejorado(f, y_0, a, b, 10)$ +solucion_taylor_2 : taylor(f, y_0, a, b, 10, 2)$ +solucion_taylor_4 : taylor(f, y_0, a, b, 10, 4)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: input start ] */ +errores_e : create_list (abs(float(solucion_real[i]-solucion_euler[i])), i, makelist(i,i,1,11))$ +errores_t_2 : create_list (abs(float(solucion_real[i]-solucion_taylor_2[i])), i, makelist(i,i,1,11))$ +errores_t_4 : create_list (abs(float(solucion_real[i]-solucion_taylor_4[i])), i, makelist(i,i,1,11))$ +print("Solución real:")$ +print(solucion_real)$ +print(" ")$ +print("Solución método de Euler mejorado:")$ +print(solucion_euler)$ +print(" ")$ +print("Errores Euler mejorado:")$ +print(errores_e)$ +print(" ")$ +print("Solución método de Taylor de orden 2:")$ +print(solucion_taylor_2)$ +print(" ")$ +print("Errores Taylor 2:")$ +print(errores_t_2)$ +print(" ")$ +print("Solución método de Taylor de orden 4:")$ +print(solucion_taylor_4)$ +print(" ")$ +print("Errores Taylor 4:")$ +print(errores_t_4)$ +print(" ")$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,a,b,y_0,n_iteraciones,solucion,nodos)$ +f(t,y) := y^2/(1+t)$ +solucion(t) := float(-1/log(t+1))$ +a : 1$ +b : 2$ +y_0 : float(-1/log(2))$ +n_iteraciones : 10$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +solucion_euler : EulerMejorado(f, y_0, a, b, 10)$ +solucion_taylor_2 : taylor(f, y_0, a, b, 10, 2)$ +solucion_taylor_4 : taylor(f, y_0, a, b, 10, 4)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,a,b,y_0,n_iteraciones,solucion,nodos)$ +f(t,y) := y^2/(1+t)$ +solucion(t) := float(-1/log(t+1))$ +a : 1$ +b : 2$ +y_0 : float(-1/log(2))$ +n_iteraciones : 10$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +solucion_euler : EulerMejorado(f, y_0, a, b, 10)$ +solucion_taylor_2 : taylor(f, y_0, a, b, 10, 2)$ +solucion_taylor_4 : taylor(f, y_0, a, b, 10, 4)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: input start ] */ +errores_e : create_list (abs(float(solucion_real[i]-solucion_euler[i])), i, makelist(i,i,1,11))$ +errores_t_2 : create_list (abs(float(solucion_real[i]-solucion_taylor_2[i])), i, makelist(i,i,1,11))$ +errores_t_4 : create_list (abs(float(solucion_real[i]-solucion_taylor_4[i])), i, makelist(i,i,1,11))$ +print("Solución real:")$ +print(solucion_real)$ +print(" ")$ +print("Solución método de Euler mejorado:")$ +print(solucion_euler)$ +print(" ")$ +print("Errores Euler mejorado:")$ +print(errores_e)$ +print(" ")$ +print("Solución método de Taylor de orden 2:")$ +print(solucion_taylor_2)$ +print(" ")$ +print("Errores Taylor 2:")$ +print(errores_t_2)$ +print(" ")$ +print("Solución método de Taylor de orden 4:")$ +print(solucion_taylor_4)$ +print(" ")$ +print("Errores Taylor 4:")$ +print(errores_t_4)$ +print(" ")$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +b) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,a,b,y_0,n_iteraciones,solucion,nodos)$ +f(t,y) := y^2/(1+t)$ +solucion(t) := float(-1/log(t+1))$ +a : 1$ +b : 2$ +y_0 : float(-1/log(2))$ +n_iteraciones : 10$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +solucion_euler : EulerMejorado(f, y_0, a, b, 10)$ +solucion_taylor_2 : taylor(f, y_0, a, b, 10, 2)$ +solucion_taylor_4 : taylor(f, y_0, a, b, 10, 4)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,a,b,y_0,n_iteraciones,solucion,nodos)$ +f(t,y) := y^2/(1+t)$ +solucion(t) := float(-1/log(t+1))$ +a : 1$ +b : 2$ +y_0 : float(-1/log(2))$ +n_iteraciones : 10$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +solucion_euler : EulerMejorado(f, y_0, a, b, 10)$ +solucion_taylor_2 : taylor(f, y_0, a, b, 10, 2)$ +solucion_taylor_4 : taylor(f, y_0, a, b, 10, 4)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: input start ] */ +errores_e : create_list (abs(float(solucion_real[i]-solucion_euler[i])), i, makelist(i,i,1,11))$ +errores_t_2 : create_list (abs(float(solucion_real[i]-solucion_taylor_2[i])), i, makelist(i,i,1,11))$ +errores_t_4 : create_list (abs(float(solucion_real[i]-solucion_taylor_4[i])), i, makelist(i,i,1,11))$ +print("Solución real:")$ +print(solucion_real)$ +print(" ")$ +print("Solución método de Euler mejorado:")$ +print(solucion_euler)$ +print(" ")$ +print("Errores Euler mejorado:")$ +print(errores_e)$ +print(" ")$ +print("Solución método de Taylor de orden 2:")$ +print(solucion_taylor_2)$ +print(" ")$ +print("Errores Taylor 2:")$ +print(errores_t_2)$ +print(" ")$ +print("Solución método de Taylor de orden 4:")$ +print(solucion_taylor_4)$ +print(" ")$ +print("Errores Taylor 4:")$ +print(errores_t_4)$ +print(" ")$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,a,b,y_0,n_iteraciones,solucion,nodos)$ +f(t,y) := y^2/(1+t)$ +solucion(t) := float(-1/log(t+1))$ +a : 1$ +b : 2$ +y_0 : float(-1/log(2))$ +n_iteraciones : 10$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +solucion_euler : EulerMejorado(f, y_0, a, b, 10)$ +solucion_taylor_2 : taylor(f, y_0, a, b, 10, 2)$ +solucion_taylor_4 : taylor(f, y_0, a, b, 10, 4)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,a,b,y_0,n_iteraciones,solucion,nodos)$ +f(t,y) := y^2/(1+t)$ +solucion(t) := float(-1/log(t+1))$ +a : 1$ +b : 2$ +y_0 : float(-1/log(2))$ +n_iteraciones : 10$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +solucion_euler : EulerMejorado(f, y_0, a, b, 10)$ +solucion_taylor_2 : taylor(f, y_0, a, b, 10, 2)$ +solucion_taylor_4 : taylor(f, y_0, a, b, 10, 4)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: input start ] */ +errores_e : create_list (abs(float(solucion_real[i]-solucion_euler[i])), i, makelist(i,i,1,11))$ +errores_t_2 : create_list (abs(float(solucion_real[i]-solucion_taylor_2[i])), i, makelist(i,i,1,11))$ +errores_t_4 : create_list (abs(float(solucion_real[i]-solucion_taylor_4[i])), i, makelist(i,i,1,11))$ +print("Solución real:")$ +print(solucion_real)$ +print(" ")$ +print("Solución método de Euler mejorado:")$ +print(solucion_euler)$ +print(" ")$ +print("Errores Euler mejorado:")$ +print(errores_e)$ +print(" ")$ +print("Solución método de Taylor de orden 2:")$ +print(solucion_taylor_2)$ +print(" ")$ +print("Errores Taylor 2:")$ +print(errores_t_2)$ +print(" ")$ +print("Solución método de Taylor de orden 4:")$ +print(solucion_taylor_4)$ +print(" ")$ +print("Errores Taylor 4:")$ +print(errores_t_4)$ +print(" ")$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +b) + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y^2/(1+t)$ +solucion(t) := float(-1/log(t+1))$ +a : 1$ +b : 2$ +y_0 : float(-1/log(2))$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +y_1_euler : float(y_0+h*f(a,y_0))$ +y_1_euler_m : float(y_0+h*f(a+h/2, y_0+h/2*f(a,y_0)))$ +solucion_p_medio_e : metodoPuntoMedio(f, y_0, y_1_euler, a, b, 10)$ +solucion_p_medio_e_m : metodoPuntoMedio(f, y_0, y_1_euler_m, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,a,b,y_0,n_iteraciones,solucion,nodos)$ +f(t,y) := y^2/(1+t)$ +solucion(t) := float(-1/log(t+1))$ +a : 1$ +b : 2$ +y_0 : float(-1/log(2))$ +n_iteraciones : 10$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +solucion_euler : EulerMejorado(f, y_0, a, b, 10)$ +solucion_taylor_2 : taylor(f, y_0, a, b, 10, 2)$ +solucion_taylor_4 : taylor(f, y_0, a, b, 10, 4)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,a,b,y_0,n_iteraciones,solucion,nodos)$ +f(t,y) := y^2/(1+t)$ +solucion(t) := float(-1/log(t+1))$ +a : 1$ +b : 2$ +y_0 : float(-1/log(2))$ +n_iteraciones : 10$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +solucion_euler : EulerMejorado(f, y_0, a, b, 10)$ +solucion_taylor_2 : taylor(f, y_0, a, b, 10, 2)$ +solucion_taylor_4 : taylor(f, y_0, a, b, 10, 4)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: input start ] */ +errores_e : create_list (abs(float(solucion_real[i]-solucion_euler[i])), i, makelist(i,i,1,11))$ +errores_t_2 : create_list (abs(float(solucion_real[i]-solucion_taylor_2[i])), i, makelist(i,i,1,11))$ +errores_t_4 : create_list (abs(float(solucion_real[i]-solucion_taylor_4[i])), i, makelist(i,i,1,11))$ +print("Solución real:")$ +print(solucion_real)$ +print(" ")$ +print("Solución método de Euler mejorado:")$ +print(solucion_euler)$ +print(" ")$ +print("Errores Euler mejorado:")$ +print(errores_e)$ +print(" ")$ +print("Solución método de Taylor de orden 2:")$ +print(solucion_taylor_2)$ +print(" ")$ +print("Errores Taylor 2:")$ +print(errores_t_2)$ +print(" ")$ +print("Solución método de Taylor de orden 4:")$ +print(solucion_taylor_4)$ +print(" ")$ +print("Errores Taylor 4:")$ +print(errores_t_4)$ +print(" ")$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,a,b,y_0,n_iteraciones,solucion,nodos)$ +f(t,y) := y^2/(1+t)$ +solucion(t) := float(-1/log(t+1))$ +a : 1$ +b : 2$ +y_0 : float(-1/log(2))$ +n_iteraciones : 10$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +solucion_euler : EulerMejorado(f, y_0, a, b, 10)$ +solucion_taylor_2 : taylor(f, y_0, a, b, 10, 2)$ +solucion_taylor_4 : taylor(f, y_0, a, b, 10, 4)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,a,b,y_0,n_iteraciones,solucion,nodos)$ +f(t,y) := y^2/(1+t)$ +solucion(t) := float(-1/log(t+1))$ +a : 1$ +b : 2$ +y_0 : float(-1/log(2))$ +n_iteraciones : 10$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +solucion_euler : EulerMejorado(f, y_0, a, b, 10)$ +solucion_taylor_2 : taylor(f, y_0, a, b, 10, 2)$ +solucion_taylor_4 : taylor(f, y_0, a, b, 10, 4)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: input start ] */ +errores_e : create_list (abs(float(solucion_real[i]-solucion_euler[i])), i, makelist(i,i,1,11))$ +errores_t_2 : create_list (abs(float(solucion_real[i]-solucion_taylor_2[i])), i, makelist(i,i,1,11))$ +errores_t_4 : create_list (abs(float(solucion_real[i]-solucion_taylor_4[i])), i, makelist(i,i,1,11))$ +print("Solución real:")$ +print(solucion_real)$ +print(" ")$ +print("Solución método de Euler mejorado:")$ +print(solucion_euler)$ +print(" ")$ +print("Errores Euler mejorado:")$ +print(errores_e)$ +print(" ")$ +print("Solución método de Taylor de orden 2:")$ +print(solucion_taylor_2)$ +print(" ")$ +print("Errores Taylor 2:")$ +print(errores_t_2)$ +print(" ")$ +print("Solución método de Taylor de orden 4:")$ +print(solucion_taylor_4)$ +print(" ")$ +print("Errores Taylor 4:")$ +print(errores_t_4)$ +print(" ")$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +b) + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,a,b,y_0,n_iteraciones,solucion,nodos)$ +f(t,y) := y^2/(1+t)$ +solucion(t) := float(-1/log(t+1))$ +a : 1$ +b : 2$ +y_0 : float(-1/log(2))$ +n_iteraciones : 10$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +solucion_euler : EulerMejorado(f, y_0, a, b, 10)$ +solucion_taylor_2 : taylor(f, y_0, a, b, 10, 2)$ +solucion_taylor_4 : taylor(f, y_0, a, b, 10, 4)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,a,b,y_0,n_iteraciones,solucion,nodos)$ +f(t,y) := y^2/(1+t)$ +solucion(t) := float(-1/log(t+1))$ +a : 1$ +b : 2$ +y_0 : float(-1/log(2))$ +n_iteraciones : 10$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +solucion_euler : EulerMejorado(f, y_0, a, b, 10)$ +solucion_taylor_2 : taylor(f, y_0, a, b, 10, 2)$ +solucion_taylor_4 : taylor(f, y_0, a, b, 10, 4)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: input start ] */ +errores_e : create_list (abs(float(solucion_real[i]-solucion_euler[i])), i, makelist(i,i,1,11))$ +errores_t_2 : create_list (abs(float(solucion_real[i]-solucion_taylor_2[i])), i, makelist(i,i,1,11))$ +errores_t_4 : create_list (abs(float(solucion_real[i]-solucion_taylor_4[i])), i, makelist(i,i,1,11))$ +print("Solución real:")$ +print(solucion_real)$ +print(" ")$ +print("Solución método de Euler mejorado:")$ +print(solucion_euler)$ +print(" ")$ +print("Errores Euler mejorado:")$ +print(errores_e)$ +print(" ")$ +print("Solución método de Taylor de orden 2:")$ +print(solucion_taylor_2)$ +print(" ")$ +print("Errores Taylor 2:")$ +print(errores_t_2)$ +print(" ")$ +print("Solución método de Taylor de orden 4:")$ +print(solucion_taylor_4)$ +print(" ")$ +print("Errores Taylor 4:")$ +print(errores_t_4)$ +print(" ")$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,a,b,y_0,n_iteraciones,solucion,nodos)$ +f(t,y) := y^2/(1+t)$ +solucion(t) := float(-1/log(t+1))$ +a : 1$ +b : 2$ +y_0 : float(-1/log(2))$ +n_iteraciones : 10$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +solucion_euler : EulerMejorado(f, y_0, a, b, 10)$ +solucion_taylor_2 : taylor(f, y_0, a, b, 10, 2)$ +solucion_taylor_4 : taylor(f, y_0, a, b, 10, 4)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +1 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +a) h = (b-a)/n --> n = (b-a)/h = (2-1)/0.1 = 10 + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +kill(f,a,b,y_0,n_iteraciones,solucion,nodos)$ +f(t,y) := y^2/(1+t)$ +solucion(t) := float(-1/log(t+1))$ +a : 1$ +b : 2$ +y_0 : float(-1/log(2))$ +n_iteraciones : 10$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +solucion_euler : EulerMejorado(f, y_0, a, b, 10)$ +solucion_taylor_2 : taylor(f, y_0, a, b, 10, 2)$ +solucion_taylor_4 : taylor(f, y_0, a, b, 10, 4)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: input start ] */ +errores_e : create_list (abs(float(solucion_real[i]-solucion_euler[i])), i, makelist(i,i,1,11))$ +errores_t_2 : create_list (abs(float(solucion_real[i]-solucion_taylor_2[i])), i, makelist(i,i,1,11))$ +errores_t_4 : create_list (abs(float(solucion_real[i]-solucion_taylor_4[i])), i, makelist(i,i,1,11))$ +print("Solución real:")$ +print(solucion_real)$ +print(" ")$ +print("Solución método de Euler mejorado:")$ +print(solucion_euler)$ +print(" ")$ +print("Errores Euler mejorado:")$ +print(errores_e)$ +print(" ")$ +print("Solución método de Taylor de orden 2:")$ +print(solucion_taylor_2)$ +print(" ")$ +print("Errores Taylor 2:")$ +print(errores_t_2)$ +print(" ")$ +print("Solución método de Taylor de orden 4:")$ +print(solucion_taylor_4)$ +print(" ")$ +print("Errores Taylor 4:")$ +print(errores_t_4)$ +print(" ")$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +b) + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y^2/(1+t)$ +solucion(t) := float(-1/log(t+1))$ +a : 1$ +b : 2$ +y_0 : float(-1/log(2))$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +y_1_euler : float(y_0+h*f(a,y_0))$ +y_1_euler_m : float(y_0+h*f(a+h/2, y_0+h/2*f(a,y_0)))$ +solucion_p_medio_e : metodoPuntoMedio(f, y_0, y_1_euler, a, b, 10)$ +solucion_p_medio_e_m : metodoPuntoMedio(f, y_0, y_1_euler_m, a, b, 10)$ +solucion_real : create_list (float(solucion(i)), i, makelist(float(a+j*h), j, 0, 10))$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: input start ] */ +errores_e : create_list (abs(float(solucion_real[i]-solucion_p_medio_e[i])), i, makelist(i,i,1,11))$ +errores_e_m : create_list (abs(float(solucion_real[i]-solucion_p_medio_e_m[i])), i, makelist(i,i,1,11))$ +print("Solución real:")$ +print(solucion_real)$ +print(" ")$ +print("Solución método del punto medio obteniendo u_1 con el método de Euler:")$ +print(solucion_p_medio_e)$ +print(" ")$ +print("Errores punto medio con Euler:")$ +print(errores_e)$ +print(" ")$ +print("Solución método del punto medio obteniendo u_1 con el método de Euler mejorado:")$ +print(solucion_p_medio_e_m)$ +print(" ")$ +print("Errores punto medio con Euler mejorado:")$ +print(errores_e_m)$ +print(" ")$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: fold end ] */ + + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsubsect start ] +b) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsubsect start ] +b) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: comment start ] +h=(b-a)/n --> n=(b-a)/h = (2-0)/0.2 = 10 +Usamos el método de Euler mejorado para la ecuación no lineal que aparece en cada etapa + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsubsect start ] +b) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsubsect start ] +b) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: comment start ] +h=(b-a)/n --> n=(b-a)/h = (2-0)/0.2 = 10 +Usamos el método de Euler mejorado para la ecuación no lineal que aparece en cada etapa + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +metodoCrankNicholson(f, y_0, a, b, n_iteraciones)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsubsect start ] +b) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsubsect start ] +b) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: comment start ] +h=(b-a)/n --> n=(b-a)/h = (2-0)/0.2 = 10 +Usamos el método de Euler mejorado para la ecuación no lineal que aparece en cada etapa + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsubsect start ] +b) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsubsect start ] +b) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: comment start ] +h=(b-a)/n --> n=(b-a)/h = (2-0)/0.2 = 10 +Usamos el método de Euler mejorado para la ecuación no lineal que aparece en cada etapa + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +metodoCrankNicholson(f, y_0, a, b, n_iteraciones)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsubsect start ] +c) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsubsect start ] +b) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsubsect start ] +b) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: comment start ] +h=(b-a)/n --> n=(b-a)/h = (2-0)/0.2 = 10 +Usamos el método de Euler mejorado para la ecuación no lineal que aparece en cada etapa + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsubsect start ] +b) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsubsect start ] +b) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: comment start ] +h=(b-a)/n --> n=(b-a)/h = (2-0)/0.2 = 10 +Usamos el método de Euler mejorado para la ecuación no lineal que aparece en cada etapa + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +metodoCrankNicholson(f, y_0, a, b, n_iteraciones)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsubsect start ] +b) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsubsect start ] +b) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: comment start ] +h=(b-a)/n --> n=(b-a)/h = (2-0)/0.2 = 10 +Usamos el método de Euler mejorado para la ecuación no lineal que aparece en cada etapa + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsubsect start ] +b) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsubsect start ] +b) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: comment start ] +h=(b-a)/n --> n=(b-a)/h = (2-0)/0.2 = 10 +Usamos el método de Euler mejorado para la ecuación no lineal que aparece en cada etapa + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +metodoCrankNicholson(f, y_0, a, b, n_iteraciones)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsubsect start ] +c) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: comment start ] +Aquí debemos comparar los resultados del método de Crank-Nicholson con el de Euler mejorado + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsubsect start ] +b) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsubsect start ] +b) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: comment start ] +h=(b-a)/n --> n=(b-a)/h = (2-0)/0.2 = 10 +Usamos el método de Euler mejorado para la ecuación no lineal que aparece en cada etapa + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsubsect start ] +b) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsubsect start ] +b) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: comment start ] +h=(b-a)/n --> n=(b-a)/h = (2-0)/0.2 = 10 +Usamos el método de Euler mejorado para la ecuación no lineal que aparece en cada etapa + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +metodoCrankNicholson(f, y_0, a, b, n_iteraciones)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsubsect start ] +b) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsubsect start ] +b) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: comment start ] +h=(b-a)/n --> n=(b-a)/h = (2-0)/0.2 = 10 +Usamos el método de Euler mejorado para la ecuación no lineal que aparece en cada etapa + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsubsect start ] +b) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsubsect start ] +b) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: comment start ] +h=(b-a)/n --> n=(b-a)/h = (2-0)/0.2 = 10 +Usamos el método de Euler mejorado para la ecuación no lineal que aparece en cada etapa + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +metodoCrankNicholson(f, y_0, a, b, n_iteraciones)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsubsect start ] +c) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsubsect start ] +b) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsubsect start ] +b) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: comment start ] +h=(b-a)/n --> n=(b-a)/h = (2-0)/0.2 = 10 +Usamos el método de Euler mejorado para la ecuación no lineal que aparece en cada etapa + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsubsect start ] +b) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsubsect start ] +b) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: comment start ] +h=(b-a)/n --> n=(b-a)/h = (2-0)/0.2 = 10 +Usamos el método de Euler mejorado para la ecuación no lineal que aparece en cada etapa + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +metodoCrankNicholson(f, y_0, a, b, n_iteraciones)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsubsect start ] +b) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsubsect start ] +b) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: comment start ] +h=(b-a)/n --> n=(b-a)/h = (2-0)/0.2 = 10 +Usamos el método de Euler mejorado para la ecuación no lineal que aparece en cada etapa + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsubsect start ] +b) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: subsect start ] +2 + [wxMaxima: subsect end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: subsubsect start ] +a) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: input start ] */ +f(t,y) := y-t^2$ +a : 0$ +b : 2$ +y_0 : 3$ +n_iteraciones : 10$ +h : (b-a)/n_iteraciones$ +nodos : create_list (float(i), i, makelist(float(a+j*h), j, 0, 10))$ +df2(t) := -2*t$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: comment start ] +Error de truncatura local: + Como la derivada será siempre negativa en el intervalo [a,b] + tenemos que el máximo error de truncatura local entre los puntos + [t_j,t_{j+1}] estará siempre en el punto t_j +error_{j+1} <= |h/2*df2(t_j)| + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +/* Eliminado el último nodo para calcular los errores */ +nuevos_nodos : makelist(nodos[j], j, 1, (length(nodos)-1))$ +/* Cotas superiores de los errores por intervalos */ +makelist(h/2*df2( nuevos_nodos[j] ), j, 1, (length(nuevos_nodos)-1)); +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsubsect start ] +b) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: comment start ] +h=(b-a)/n --> n=(b-a)/h = (2-0)/0.2 = 10 +Usamos el método de Euler mejorado para la ecuación no lineal que aparece en cada etapa + [wxMaxima: comment end ] */ + +/* [wxMaxima: input start ] */ +metodoCrankNicholson(f, y_0, a, b, n_iteraciones)$ +/* [wxMaxima: input end ] */ + +/* [wxMaxima: subsubsect start ] +c) + [wxMaxima: subsubsect end ] */ + +/* [wxMaxima: comment start ] +Aquí debemos comparar los resultados del método de Crank-Nicholson con el de Euler mejorado + [wxMaxima: comment end ] */ + +/* [wxMaxima: fold end ] */ + + +/* [wxMaxima: title start ] +Notas + [wxMaxima: title end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +En el ejercicio 12 la solución está dividida entre (t^2+1) + [wxMaxima: comment end ] */ + +/* [wxMaxima: title start ] +Notas + [wxMaxima: title end ] */ +/* [wxMaxima: fold start ] */ +/* [wxMaxima: comment start ] +En el ejercicio 12 la solución está dividida entre (t^2+1) + [wxMaxima: comment end ] */ + +/* [wxMaxima: fold end ] */ + + + +/* Old versions of Maxima abort on loading files that end in a comment. */ +"Created with wxMaxima 22.04.0"$