pintos-os.org Git - pspp/blob - src/output/charts/scree.c

   1 /* PSPP - a program for statistical analysis.
   2    Copyright (C) 2009, 2011 Free Software Foundation, Inc.
   3
   4    This program is free software: you can redistribute it and/or modify
   5    it under the terms of the GNU General Public License as published by
   6    the Free Software Foundation, either version 3 of the License, or
   7    (at your option) any later version.
   8
   9    This program is distributed in the hope that it will be useful,
  10    but WITHOUT ANY WARRANTY; without even the implied warranty of
  11    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12    GNU General Public License for more details.
  13
  14    You should have received a copy of the GNU General Public License
  15    along with this program.  If not, see <http://www.gnu.org/licenses/>. */
  16
  17 #include <config.h>
  18
  19 #include "output/charts/scree.h"
  20
  21 #include "output/chart-provider.h"
  22
  23 #include "gl/xalloc.h"
  24
  25 #include "gettext.h"
  26 #define _(msgid) gettext (msgid)
  27
  28 struct scree *
  29 scree_create (const gsl_vector *eigenvalues, const char *xlabel)
  30 {
  31   struct scree *rc = xmalloc (sizeof *rc);
  32   chart_init (&rc->chart, &scree_class, NULL);
  33
  34   rc->eval = gsl_vector_alloc (eigenvalues->size);
  35   gsl_vector_memcpy (rc->eval, eigenvalues);
  36
  37   rc->xlabel = xstrdup (xlabel);
  38
  39   return rc;
  40 }
  41
  42 static void
  43 scree_destroy (struct chart *chart)
  44 {
  45   struct scree *rc = to_scree (chart);
  46
  47   gsl_vector_free (rc->eval);
  48   free (rc->xlabel);
  49   free (rc);
  50 }
  51
  52 const struct chart_class scree_class =
  53   {
  54     scree_destroy
  55   };