punto1.sce

// Respuesta del punto 1
exec('data.sci', -1); // Carga de la data.
// Función derivada analítica
function [y]= Df(x)
    y= -2 * exp(-2 * x) - 1;
endfunction

// Valor correcto de la derivada
DfCorrecto= Df(x);
clc(); // Limpiar consola
mprintf('\nLa derivada exacta en %g vale %g\n', x, DfCorrecto);