[LON-CAPA-cvs] cvs: modules /gerd/discussions eval.pl /gerd/discussions/paper discussions.tex

[www]

www		Fri Apr  1 17:50:08 2005 EDT

  Modified files:              
    /modules/gerd/discussions	eval.pl 
    /modules/gerd/discussions/paper	discussions.tex 
  Log:
  TeX output of table
  
  
Index: modules/gerd/discussions/eval.pl
diff -u modules/gerd/discussions/eval.pl:1.10 modules/gerd/discussions/eval.pl:1.11
--- modules/gerd/discussions/eval.pl:1.10	Thu Mar 31 13:50:03 2005
+++ modules/gerd/discussions/eval.pl	Fri Apr  1 17:50:07 2005
@@ -194,6 +194,26 @@
                       &reportout('conceptual&type'.$i);
 }
 
+for (my $i=1;$i<=7;$i++) {
+    print "\n".&padded($i).'&'.
+                      &texreportout('emotion&type'.$i).'&',
+                      &texreportout('procedural&type'.$i).'&',
+                      &texreportout('solution&type'.$i).'&',
+                      &texreportout('math&type'.$i).'&',
+                      &texreportout('physics&type'.$i).'&',
+                      &texreportout('conceptual&type'.$i).'\\\\';
+}
+print "\n";
+foreach my $i ('a','b') {
+    print "\n".&padded($i).','.
+                      &texreportout('emotion&type'.$i).'&',
+                      &texreportout('procedural&type'.$i).'&',
+                      &texreportout('solution&type'.$i).'&',
+                      &texreportout('math&type'.$i).'&',
+                      &texreportout('physics&type'.$i).'&',
+                      &texreportout('conceptual&type'.$i).'\\\\';
+}
+
 print "\n\n==== Course\n".&padded();
 foreach ('emot','','','','chat','','','','proc','','','','solu','','','','math','','','','phys','','','','conc','','','') {
     print ','.&padded($_);
@@ -271,6 +291,25 @@
    return &padded($value).','.&padded($error);
 }
 
+sub texreportout {
+   my $which=shift;
+   return &texreportoutinner($which).' ('.&texreportoutinner($which.'&nochat').')';
+}
+
+sub texreportoutinner {
+   my $which=shift;
+   my $value='';
+   if ($statn{$which}>0) {
+       $value=&texpercent($statsum{$which}/$statn{$which});
+   }
+   my $error='';
+   if ($statn{$which}>1) {
+       $error=&texpercent(sqrt($statsumsquare{$which}/($statn{$which}*($statn{$which}-1))));
+   }
+   return $value.'$\pm$'.$error;
+}
+
+
 sub padded {
    return substr('       '.shift,-5,5);
 }
@@ -280,6 +319,11 @@
    return int($val*1000+0.5)/10;
 }
 
+sub texpercent {
+    my $val=shift;
+   return int($val*100+0.5);
+}
+
 sub allcount {
    my @entries=@_;
    my $sum=0;
Index: modules/gerd/discussions/paper/discussions.tex
diff -u modules/gerd/discussions/paper/discussions.tex:1.2 modules/gerd/discussions/paper/discussions.tex:1.3
--- modules/gerd/discussions/paper/discussions.tex:1.2	Thu Mar 31 17:52:57 2005
+++ modules/gerd/discussions/paper/discussions.tex	Fri Apr  1 17:50:07 2005
@@ -155,6 +155,27 @@
 \end{table}
 
 
+\section{Results}
+\subsection{Influence of Question Types}
+
+\begin{table*}
+\begin{ruledtabular}
+\begin{tabular}{cccccccc}
+    1&-5$\pm$3&28$\pm$7 (29$\pm$8)&66$\pm$7 (74$\pm$7)&9$\pm$6 (9$\pm$6)&16$\pm$5 (17$\pm$5)&6$\pm$3 (7$\pm$3)\\
+    2&$\pm$&$\pm$ ($\pm$)&$\pm$ ($\pm$)&$\pm$ ($\pm$)&$\pm$ ($\pm$)&$\pm$ ($\pm$)\\
+    3&4$\pm$1&48$\pm$1 (57$\pm$1)&52$\pm$1 (63$\pm$2)&8$\pm$1 (9$\pm$1)&23$\pm$1 (27$\pm$1)&7$\pm$1 (8$\pm$1)\\
+    4&6$\pm$8&29$\pm$11 (31$\pm$10)&57$\pm$16 (64$\pm$18)&31$\pm$16 (36$\pm$18)&0$\pm$0 (0$\pm$0)&0$\pm$0 (0$\pm$0)\\
+    5&1$\pm$1&15$\pm$3 (16$\pm$3)&66$\pm$4 (72$\pm$4)&1$\pm$1 (2$\pm$2)&22$\pm$3 (26$\pm$3)&14$\pm$2 (18$\pm$3)\\
+    6&2$\pm$3&24$\pm$11 (26$\pm$12)&41$\pm$18 (46$\pm$20)&0$\pm$0 (0$\pm$0)&52$\pm$20 (54$\pm$20)&38$\pm$18 (39$\pm$17)\\
+    7&0$\pm$9&14$\pm$6 (18$\pm$8)&53$\pm$8 (69$\pm$11)&3$\pm$3 (5$\pm$5)&25$\pm$11 (26$\pm$11)&22$\pm$8 (25$\pm$9)\\\hline
+ 
+    a&4$\pm$1&42$\pm$1 (50$\pm$2)&55$\pm$1 (65$\pm$2)&7$\pm$1 (8$\pm$1)&23$\pm$1 (27$\pm$1)&9$\pm$1 (10$\pm$1)\\
+    b&-2$\pm$2&37$\pm$4 (45$\pm$4)&52$\pm$3 (63$\pm$4)&7$\pm$2 (9$\pm$2)&23$\pm$3 (28$\pm$3)&8$\pm$2 (10$\pm$2)\\
+\end{tabular}
+\end{ruledtabular}
+\end{table*}
+
+
 \section{Figures and Tables}
 Figures and tables are typically ``floats'' which means that their
 final position is determined by \LaTeX\ while the document is being