[LON-CAPA-cvs] cvs: modules /gerd/educause averages.csv averages.pl

[www]

www		Mon Mar 22 20:28:25 2004 EDT

  Added files:                 
    /modules/gerd/educause	averages.csv averages.pl 
  Log:
  Calculating averages
  
  

Index: modules/gerd/educause/averages.csv
+++ modules/gerd/educause/averages.csv
29,4.48484848484848
30,4.21875
31,3.48387096774194
32,3.875
33,3.15625
34,2.96969696969697
35,3.84848484848485
36,3.38709677419355
37,3.125
38,3.51612903225806
39,2.96875
40,3.69230769230769
41,3.76923076923077
42,1.51612903225806
43,1.78125
44,3.6969696969697
45,2.96969696969697
46,3.55882352941176
47,3.58823529411765
48,2.84848484848485
49,3.54545454545455
50,3.57575757575758
51,3.41935483870968
52,3.88235294117647
53,3.23333333333333
54,2.93333333333333
55,2.74285714285714
56,2.94117647058824
57,3.21875
58,3.64705882352941
59,3.54285714285714
60,3.5
61,3.67647058823529
62,3.29411764705882
63,3
64,2.53333333333333
65,2.8
66,3.2
67,3.19354838709677
68,3.16129032258065
69,3.51612903225806
70,3.32258064516129
71,1.34285714285714
72,2.81081081081081
73,2.19444444444444
74,1.11111111111111
75,1.2972972972973
76,1.36111111111111
77,1.05555555555556
78,1.19444444444444
79,1
80,1.41666666666667
81,2
82,1.05555555555556
83,1.16666666666667
84,1.41666666666667
85,2.59459459459459
86,1.46153846153846
87,2.07142857142857
102,1.36842105263158
103,1
104,1
105,1
106,1
107,1.05555555555556
108,1
109,1.05555555555556
110,1
111,1.22222222222222
112,1
113,1
114,1.05555555555556
115,1
116,1.16666666666667
117,1.11111111111111
118,1.11111111111111
119,1
120,1
121,1
122,1
123,1
124,1.11111111111111
125,1.05555555555556
126,1
127,1.05555555555556
128,1.05555555555556
129,1.11111111111111
130,1
131,1.22222222222222
132,1
133,1.05555555555556
134,1
135,1.44444444444444
136,1.11111111111111
137,1.44444444444444
138,4.05
139,3.9
140,3.85
141,4.05
142,3
143,3.22222222222222
144,2.73684210526316
145,2.61111111111111
146,2.88888888888889
147,3.27777777777778
148,3.44444444444444
149,2.77777777777778
150,3
151,3.22222222222222
152,3.3125
153,2.88235294117647
154,3.75
155,3.26315789473684
156,4.55
157,4.61904761904762
158,4.15
159,3.3
160,4.2
161,4.3
162,4.52380952380952
163,2.65
164,3.05263157894737
165,3.16666666666667
166,4.22222222222222
167,3.83333333333333
168,3.23529411764706
169,3.88235294117647
170,3.52941176470588
171,3.58823529411765
172,4.05263157894737
173,4.5
174,4.8
175,4.7
176,4.75
177,3.9
178,4.5
179,4.45
180,3.55
181,4.2
182,4.2
183,4.15
184,4.45
185,4.6
186,4.45
187,4.65
188,4.5
189,4.42105263157895
190,4.42105263157895
191,4.05263157894737
192,3.6
193,4.05
194,4.05263157894737
195,4
196,3.94736842105263
197,4.1
198,4.6
199,4.6
200,4.16666666666667
201,4.15
202,3.52631578947368
203,4.3
204,4.45
205,3.82352941176471
206,4.5
207,4.21052631578947
208,4
209,4.47368421052632
210,3.73684210526316
211,3.66666666666667
212,4.10526315789474
213,4.57894736842105
214,4
215,4.05263157894737
216,4.63157894736842
217,3.26315789473684
218,4.05263157894737
219,4.68421052631579
220,4.66666666666667
221,4.57142857142857
222,4.04761904761905
223,3.66666666666667
224,4.04761904761905
225,4.19047619047619
226,4.28571428571429
227,2.75
228,3.85
229,3.85714285714286
230,3.75
231,3.5625

Index: modules/gerd/educause/averages.pl
+++ modules/gerd/educause/averages.pl
@sum=();
@tot=();
open(IN,'results.csv') || die('Could not open file');
while($line=<IN>) {
    chomp($line);
    @entries=split(/\,/,','.$line);
    for ($first=1;$first<=$#entries;$first++) {
	my $num=int($entries[$first]);
	unless ($num) { next; }
	$sum[$first]+=$num;
	$tot[$first]++;
    }
}
close(IN);
for ($question=1;$question<=$#sum;$question++) {
    if ($tot[$question]) {
	$ave=$sum[$question]/$tot[$question];
	print $question.','.$ave."\n";
    }
}