Download document (10.35 MB) - Escuela Superior de Informática ...

170 Capítulo D. Código fuente124 ome[m] = (3.*(x[m]-x[m-1])-ome[m-1])*gam[m];125126 /* Valor de la primera derivada en los puntos (eje X) */127 der[m]=ome[m];128 for (i=m-1; i>=0; i=i-1) der[i] = ome[i]-gam[i]*der[i+1];129130 /* Sustituimos los valores de gamma, omega y la primera derivada131 para calcular los coeficientes a, b, c y d */132 for (i=0; i