!aproximacion numerica de la derivada
!aproximacion por SERIE DE TAYLOR
program por_TAYLOR
REAL(4)H,X0,FX0,E,K
WRITE(*,*)'INGRESE ANCHO DE INTERVALO'
READ(*,*)H
WRITE(*,*)'INGRESE PUNTO A ANALIZAR LA DERIVADA'
READ(*,*)X0
WRITE(*,*)'INGRESE VALOR VERDADERO DE LA DERIVADA'
READ(*,*)K
FX0=(2*F(X0+H)-(0.5)*F(X0+2*H)-((3*F(X0))/2))/H
E=(ABS(K-FX0)/FX0)*100
WRITE(*,*)FX0,E
END
FUNCTION F(X)
F=5*X**3+4*X**2+3*X
RETURN
END
0 comentarios:
Publicar un comentario