Programa Mínimo Quadrados

!********************************************************* ! ************************************************* ********
!*
Approximation of a discreet real function F(x) by * ! * Aproximação de uma função F discreta real (x) por *
!*
least squares
* ! Mínimo * quadrados
!* ----------------------------------------------------- * ! * ------------------------------------------------ ----- *
!* Ref.: "Méthodes de calcul numérique, Tome 2 By Claude * ! Ref *:. "Metodos de calcul numérique, Tomo 2 por Claude *
!*
Nowakowski, PSI Edition, 1984" [BIBLI 04].
* ! * Nowakowski, PSI Edição, 1984 "[Bibli 04]. *
!* ----------------------------------------------------- * ! * ------------------------------------------------ ----- *
!* SAMPLE RUN:
* ! RUN AMOSTRA: *
!*
* ! **
!* Number of points
: 11
* ! * Número de pontos: 11 *
!*
* ! **
!* Degree of polynomial: 3
* ! * Grau de polinomial: 3 *
!*
* ! **
!* Function to approximate:
* ! * Função para aproximada: *
!* X(1), Y(1) = 0 0
* ! * X (1), Y (1) = 0 0 *
!* X(2), Y(2) = 0.1 0.2
* ! * X (2), Y (2) = 0,1 0,2 *
!* X(3), Y(3) = 0.2 0.4
* ! * X (3), Y (3) = 0,2 0,4 *
!* X(4), Y(4) = 0.3 0.6
* ! * X (4), Y (4) = 0,3 0,6 *
!* X(5), Y(5) = 0.4 0.8
* ! * X (5), Y (5) = 0,4 0,8 *
!* X(6), Y(6) = 0.5 1
* ! * X (6), Y (6) = 0,5 1 *
!* X(7), Y(7) = 0.6 0.8
* ! * X (7), Y (7) = 0,6 0,8 *
!* X(8), Y(8) = 0.7 0.6
* ! * X (8), Y (8) = 0,7 0,6 *
!* X(9), Y(9) = 0.8 0.4
* ! * X (9), Y (9) = 0,8 0,4 *
!* X(10), Y(10) = 0.9 0.2
* ! * X (10), Y (10) = 0,9 0,2 *
!* X(11), Y(11) = 1 0
* ! * X (11), Y (11) = 1 0 *
!*
* ! **
!* Polynomial approximation of degree 3 (11 points)
* ! Aproximação * polinomial de grau 3 (11 pontos) *
!* Coefficients of polynomial:
* *! Coeficientes de polinômio: *
!* A(0) =
-0.069930070
* ! * A (0) = -0,069930070 *
!* A(1) =
3.496503497
* ! * A (1) = 3,496503497 *
!* A(2) =
-3.496503497
* ! * A (2) = -3,496503497 *
!* A(3) =
0.000000000
* ! * A (3) =