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

   1 /* PSPP - a program for statistical analysis.
   2    Copyright (C) 2004, 2008, 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
  18 #include <config.h>
  19
  20 #include "output/charts/boxplot.h"
  21
  22 #include "math/box-whisker.h"
  23 #include "output/chart-item-provider.h"
  24
  25 struct boxplot *
  26 boxplot_create (double y_min, double y_max, const char *title)
  27 {
  28   if (y_min >= y_max)
  29     return NULL;
  30   struct boxplot *boxplot = xmalloc (sizeof *boxplot);
  31   chart_item_init (&boxplot->chart_item, &boxplot_class, title);
  32   boxplot->y_min = y_min;
  33   boxplot->y_max = y_max;
  34   boxplot->boxes = NULL;
  35   boxplot->n_boxes = boxplot->boxes_allocated = 0;
  36   return boxplot;
  37 }
  38
  39 void
  40 boxplot_add_box (struct boxplot *boxplot,
  41                  struct box_whisker *bw, const char *label)
  42 {
  43   if (boxplot == NULL)
  44     {
  45       struct statistic *statistic = &bw->parent.parent;
  46       statistic->destroy (statistic);
  47       return;
  48     }
  49
  50   struct boxplot_box *box;
  51   if (boxplot->n_boxes >= boxplot->boxes_allocated)
  52     boxplot->boxes = x2nrealloc (boxplot->boxes, &boxplot->boxes_allocated,
  53                                  sizeof *boxplot->boxes);
  54   box = &boxplot->boxes[boxplot->n_boxes++];
  55   box->bw = bw;
  56   box->label = xstrdup (label);
  57 }
  58
  59 static void
  60 boxplot_chart_destroy (struct chart_item *chart_item)
  61 {
  62   struct boxplot *boxplot = to_boxplot (chart_item);
  63   if (boxplot == NULL)
  64     return;
  65
  66   size_t i;
  67
  68   for (i = 0; i < boxplot->n_boxes; i++)
  69     {
  70       struct boxplot_box *box = &boxplot->boxes[i];
  71       struct statistic *statistic = &box->bw->parent.parent;
  72       statistic->destroy (statistic);
  73       free (box->label);
  74     }
  75   free (boxplot->boxes);
  76   free (boxplot);
  77 }
  78
  79 const struct chart_item_class boxplot_class =
  80   {
  81     boxplot_chart_destroy
  82   };