X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Ffrequencies.q;h=9eb171724565e65338b51d1c79de87256acabbbd;hb=2c9a5954d98d4dd508d8fbf2496f2bb819527a46;hp=8a4151640e39321ffaee0e42b2ed3d62f0d58749;hpb=cf89e411db41c05c39753b05cf144c8b26a44d96;p=pspp

diff --git a/src/frequencies.q b/src/frequencies.q
index 8a4151640e..9eb1717245 100644
--- a/src/frequencies.q
+++ b/src/frequencies.q
@@ -29,6 +29,7 @@
 #include <stdlib.h>
 #include "alloc.h"
 #include "bitvector.h"
+#include "case.h"
 #include "hash.h"
 #include "pool.h"
 #include "command.h"
@@ -46,6 +47,7 @@
 #include "var.h"
 #include "vfm.h"
 #include "settings.h"
+#include "chart.h"
 
 #include "debug-print.h"
 
@@ -62,6 +64,9 @@
      barchart(ba_)=:minimum(d:min),
 	    :maximum(d:max),
 	    scale:freq(*n:freq,"%s>0")/percent(*n:pcnt,"%s>0");
+     piechart(pie_)=:minimum(d:min),
+	    :maximum(d:max),
+	    missing:missing/!nomissing;
      histogram(hi_)=:minimum(d:min),
 	    :maximum(d:max),
 	    scale:freq(*n:freq,"%s>0")/percent(*n:pcnt,"%s>0"),
@@ -147,6 +152,7 @@ enum
     GFT_NONE,			/* Don't draw graphs. */
     GFT_BAR,			/* Draw bar charts. */
     GFT_HIST,			/* Draw histograms. */
+    GFT_PIE,                    /* Draw piechart */
     GFT_HBAR			/* Draw bar charts or histograms at our discretion. */
   };
 
@@ -154,7 +160,8 @@ enum
 static struct cmd_frequencies cmd;
 
 /* Summary of the barchart, histogram, and hbar subcommands. */
-static int chart;		/* NONE/BAR/HIST/HBAR. */
+/* FIXME: These should not be mututally exclusive */
+static int chart;		/* NONE/BAR/HIST/HBAR/PIE. */
 static double min, max;		/* Minimum, maximum on y axis. */
 static int format;		/* FREQ/PERCENT: Scaling of y axis. */
 static double scale, incr;	/* FIXME */
@@ -173,6 +180,8 @@ static struct pool *gen_pool;	/* General mode. */
 
 static void determine_charts (void);
 
+static void calc_stats (struct variable * v, double d[frq_n_stats]);
+
 static void precalc (void *);
 static int calc (struct ccase *, void *);
 static void postcalc (void *);
@@ -266,7 +275,8 @@ internal_cmd_frequencies (void)
 static void
 determine_charts (void)
 {
-  int count = (!!cmd.sbc_histogram) + (!!cmd.sbc_barchart) + (!!cmd.sbc_hbar);
+  int count = (!!cmd.sbc_histogram) + (!!cmd.sbc_barchart) + 
+    (!!cmd.sbc_hbar) + (!!cmd.sbc_piechart);
 
   if (!count)
     {
@@ -284,6 +294,8 @@ determine_charts (void)
     chart = GFT_HIST;
   else if (cmd.sbc_barchart)
     chart = GFT_BAR;
+  else if (cmd.sbc_piechart)
+    chart = GFT_PIE;
   else
     chart = GFT_HBAR;
 
@@ -327,7 +339,7 @@ determine_charts (void)
 	  format = FRQ_PERCENT;
 	  scale = cmd.ba_pcnt;
 	}
-      if (cmd.hi_norm)
+      if (cmd.hi_norm != FRQ_NONORMAL )
 	normal = 1;
       if (cmd.hi_incr == FRQ_INCREMENT)
 	incr = cmd.hi_inc;
@@ -377,16 +389,17 @@ calc (struct ccase *c, void *aux UNUSED)
   for (i = 0; i < n_variables; i++)
     {
       struct variable *v = v_variables[i];
-      union value *val = &c->data[v->fv];
+      const union value *val = case_data (c, v->fv);
       struct freq_tab *ft = &v->p.frq.tab;
 
       switch (v->p.frq.tab.mode)
 	{
 	  case FRQM_GENERAL:
 	    {
+
 	      /* General mode. */
 	      struct freq **fpp = (struct freq **) hsh_probe (ft->data, val);
-	  
+
 	      if (*fpp != NULL)
 		(*fpp)->c += weight;
 	      else
@@ -503,7 +516,40 @@ postcalc (void *aux UNUSED)
       if (n_stats)
 	dump_statistics (v, !dumped_freq_tab);
 
+
+      if ( chart == GFT_HIST) 
+	{
+	  struct chart ch;
+	  double d[frq_n_stats];
+	  struct frequencies_proc *frq = &v->p.frq;
+	  
+	  struct normal_curve norm;
+	  norm.N = frq->tab.total_cases ;
+
+	  calc_stats(v,d);
+	  norm.mean = d[frq_mean];
+	  norm.stddev = d[frq_stddev];
+
+	  chart_initialise(&ch);
+	  draw_histogram(&ch, v_variables[i], "HISTOGRAM",&norm,normal);
+	  chart_finalise(&ch);
+	}
+
+
+      if ( chart == GFT_PIE) 
+	{
+	  struct chart ch;
+
+	  chart_initialise(&ch);
+	  
+	  draw_piechart(&ch, v_variables[i]);
+
+	  chart_finalise(&ch);
+	}
+
+
       cleanup_freq_tab (v);
+
     }
 }
 
@@ -561,7 +607,7 @@ postprocess_freq_tab (struct variable *v)
   data = hsh_data (ft->data);
 
   /* Copy dereferenced data into freqs. */
-  freqs = xmalloc (count* sizeof *freqs);
+  freqs = xmalloc (count * sizeof *freqs);
   for (i = 0; i < count; i++) 
     {
       struct freq *f = data[i];
@@ -1101,6 +1147,7 @@ dump_full (struct variable * v)
 
   tab_title (t, 1, "%s: %s", v->name, v->label ? v->label : "");
   tab_submit (t);
+
 }
 
 /* Sets the widths of all the columns and heights of all the rows in