functiones.sci

// Funciones auxiliares de solución del laboratorio 3.

function [a1, a0]= linregre(x, y)
// Obtiene pendiente e intercepto de una regresión lineal.
//
// Calling Sequence
//
//  [m, c]= linregre(z, w);
//
// Parameters
//  x: arreglo con valores de la variable independiente.
//  y: arreglo con valores de la variable dependiente.
//
// Return
//  a1: coeficiente del término lineal de la regresión.
//  a0: término independiente de la regresión.
//
// Description
//
// Calcula la pendiente e intercepto de la recta de mejor
// ajuste cuadrático de un conjunto de pares (x, y).

Sxy= 0;
Sx= 0;
Sy= 0;
Sx2= 0;
n= 5;
xmedia= 44;
ymedia= 55;
a1= (n * Sxy - Sx * Sy) / (n * Sx2 - Sx * Sx);
a0= ymedia - a1 * xmedia;
endfunction