' Programa DERIVA.BAS
' Programa que evalua la derivada de la función seno en x=1
' mediante la derivada central de tres puntos,
' y mediante la derivada lateral derecha e izquierda de dos puntos
CLS
x0 = 1 : h0 = .5 : 
f0 = SIN(x0) : exac = COS(1)
FOR m = 0 TO 15  
   h = h0 / 2 ^ m
   f1m = SIN(x0 - h) : f1p = SIN(x0 + h)
   dc3p = (f1p - f1m) / (2! * h)        'Deri. central 3 puntos
   dld2p = (f1p - f0) / h               'Deri. lateral dcha. 2 pts.
   dli2p = (f0 - f1m) / h               'Deri. lateral izqda. 2 pts.
   e3 = ABS(dc3p - exac)		'Error Deri. central
   e2d = ABS(dld2p - exac)		'Error Deri. lateral dcha.
   e2i = ABS(dli2p - exac)		'Error Deri. lateral izqda
PRINT USING "#.######   "; h; e3; e2d; e2i
NEXT m