X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=lib%2Flinreg%2Fsweep.c;h=0dfa71fb6ac0468bcf058763d1894c5e25c287fc;hb=f1a07a055a9e1fce1024443e8bf9dcd36c0739f2;hp=6e114266c7ac0f64b5d2d89729a3fb7f568555ce;hpb=9703148a4b6ae39bd7ff79741020dac46018a7f7;p=pspp
diff --git a/lib/linreg/sweep.c b/lib/linreg/sweep.c
index 6e114266c7..0dfa71fb6a 100644
--- a/lib/linreg/sweep.c
+++ b/lib/linreg/sweep.c
@@ -1,30 +1,25 @@
-/* lib/linreg/sweep.c
+/* PSPP - a program for statistical analysis.
+ Copyright (C) 2005, 2009 Free Software Foundation, Inc.
- Copyright (C) 2005 Free Software Foundation, Inc.
- Written by Jason H Stover.
+ This program is free software: you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation, either version 3 of the License, or
+ (at your option) any later version.
- This program is free software; you can redistribute it and/or modify
- it under the terms of the GNU General Public License as published by
- the Free Software Foundation; either version 2 of the License, or (at
- your option) any later version.
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ GNU General Public License for more details.
- This program is distributed in the hope that it will be useful, but
- WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- General Public License for more details.
-
- You should have received a copy of the GNU General Public License
- along with this program; if not, write to the Free Software
- Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
- 02111-1307, USA.
- */
+ You should have received a copy of the GNU General Public License
+ along with this program. If not, see . */
/*
Find the least-squares estimate of b for the linear model:
Y = Xb + Z
- where Y is an n-by-1 column vector, X is an n-by-p matrix of
+ where Y is an n-by-1 column vector, X is an n-by-p matrix of
independent variables, b is a p-by-1 vector of regression coefficients,
and Z is an n-by-1 normally-distributed random vector with independent
identically distributed components with mean 0.
@@ -45,7 +40,9 @@
Springer. 1998. ISBN 0-387-98542-5.
*/
-#include "pspp_linreg.h"
+#include
+
+#include "sweep.h"
/*
The matrix A will be overwritten. In ordinary uses of the sweep
@@ -58,63 +55,83 @@
-- --
X refers to the design matrix and Y to the vector of dependent
- observations. pspp_reg_sweep sweeps on the diagonal elements of
+ observations. reg_sweep sweeps on the diagonal elements of
X'X.
The matrix A is assumed to be symmetric, so the sweep operation is
performed only for the upper triangle of A.
+
+ LAST_COL is considered to be the final column in the augmented matrix,
+ that is, the column to the right of the '=' sign of the system.
*/
int
-pspp_reg_sweep (gsl_matrix * A)
+reg_sweep (gsl_matrix * A, int last_col)
{
double sweep_element;
double tmp;
int i;
int j;
int k;
+ int row_i;
+ int row_k;
+ int row_j;
+ int *ordered_cols;
gsl_matrix *B;
if (A != NULL)
{
if (A->size1 == A->size2)
{
+ ordered_cols = malloc (A->size1 * sizeof (*ordered_cols));
+ for (i = 0; i < last_col; i++)
+ {
+ ordered_cols[i] = i;
+ }
+ for (i = last_col + 1; i < A->size1; i++)
+ {
+ ordered_cols[i - 1] = i;
+ }
+ ordered_cols[A->size1 - 1] = last_col;
B = gsl_matrix_alloc (A->size1, A->size2);
for (k = 0; k < (A->size1 - 1); k++)
{
- sweep_element = gsl_matrix_get (A, k, k);
+ row_k = ordered_cols[k];
+ sweep_element = gsl_matrix_get (A, row_k, row_k);
if (fabs (sweep_element) > GSL_DBL_MIN)
{
tmp = -1.0 / sweep_element;
- gsl_matrix_set (B, k, k, tmp);
+ gsl_matrix_set (B, row_k, row_k, tmp);
/*
Rows before current row k.
*/
for (i = 0; i < k; i++)
{
+ row_i = ordered_cols[i];
for (j = i; j < A->size2; j++)
{
+ row_j = ordered_cols[j];
/*
- Use only the upper triangle of A.
+ Use only the upper triangle of A.
*/
- if (j < k)
+ if (row_j < row_k)
{
- tmp = gsl_matrix_get (A, i, j) -
- gsl_matrix_get (A, i, k)
- * gsl_matrix_get (A, j, k) / sweep_element;
- gsl_matrix_set (B, i, j, tmp);
+ tmp = gsl_matrix_get (A, row_i, row_j) -
+ gsl_matrix_get (A, row_i, row_k)
+ * gsl_matrix_get (A, row_j, row_k) / sweep_element;
+ gsl_matrix_set (B, row_i, row_j, tmp);
}
- else if (j > k)
+ else if (row_j > row_k)
{
- tmp = gsl_matrix_get (A, i, j) -
- gsl_matrix_get (A, i, k)
- * gsl_matrix_get (A, k, j) / sweep_element;
- gsl_matrix_set (B, i, j, tmp);
+ tmp = gsl_matrix_get (A, row_i, row_j) -
+ gsl_matrix_get (A, row_i, row_k)
+ * gsl_matrix_get (A, row_k, row_j) / sweep_element;
+ gsl_matrix_set (B, row_i, row_j, tmp);
}
else
{
- tmp = gsl_matrix_get (A, i, k) / sweep_element;
- gsl_matrix_set (B, i, j, tmp);
+ tmp = gsl_matrix_get (A, row_i, row_k) / sweep_element;
+ gsl_matrix_set (B, row_i, row_j, tmp);
}
}
}
@@ -123,31 +140,37 @@ pspp_reg_sweep (gsl_matrix * A)
*/
for (j = k + 1; j < A->size1; j++)
{
- tmp = gsl_matrix_get (A, k, j) / sweep_element;
- gsl_matrix_set (B, k, j, tmp);
+ row_j = ordered_cols[j];
+ tmp = gsl_matrix_get (A, row_k, row_j) / sweep_element;
+ gsl_matrix_set (B, row_k, row_j, tmp);
}
/*
Rows after the current row k.
*/
for (i = k + 1; i < A->size1; i++)
{
+ row_i = ordered_cols[i];
for (j = i; j < A->size2; j++)
{
- tmp = gsl_matrix_get (A, i, j) -
- gsl_matrix_get (A, k, i)
- * gsl_matrix_get (A, k, j) / sweep_element;
- gsl_matrix_set (B, i, j, tmp);
+ row_j = ordered_cols[j];
+ tmp = gsl_matrix_get (A, row_i, row_j) -
+ gsl_matrix_get (A, row_k, row_i)
+ * gsl_matrix_get (A, row_k, row_j) / sweep_element;
+ gsl_matrix_set (B, row_i, row_j, tmp);
}
}
}
for (i = 0; i < A->size1; i++)
for (j = i; j < A->size2; j++)
{
- gsl_matrix_set (A, i, j, gsl_matrix_get (B, i, j));
+ row_i = ordered_cols[i];
+ row_j = ordered_cols[j];
+ gsl_matrix_set (A, row_i, row_j, gsl_matrix_get (B, row_i, row_j));
}
}
gsl_matrix_free (B);
return GSL_SUCCESS;
+ free (ordered_cols);
}
return GSL_ENOTSQR;
}