[prev in list] [next in list] [prev in thread] [next in thread]
List: lon-capa-cvs
Subject: [LON-CAPA-cvs] cvs: modules /gerd evaluate.pl
From: www <lon-capa-cvs () mail ! lon-capa ! org>
Date: 2006-03-31 16:43:11
Message-ID: cvswww1143823391 () cvsserver
[Download RAW message or body]
www Fri Mar 31 11:43:11 2006 EDT
Modified files:
/modules/gerd evaluate.pl
Log:
Detailed discussion FCI, Grade
Index: modules/gerd/evaluate.pl
diff -u modules/gerd/evaluate.pl:1.5 modules/gerd/evaluate.pl:1.6
--- modules/gerd/evaluate.pl:1.5 Thu Mar 30 21:10:20 2006
+++ modules/gerd/evaluate.pl Fri Mar 31 11:43:09 2006
@@ -221,6 +221,14 @@
print "\nFCIg/Procedural: ".&hashcorrelate(\%fcigain,'',\%procedural,'',\@userkeys,'',0.01);
print "\nFCIg/Conceptual: ".&hashcorrelate(\%fcigain,'',\%conceptual,'',\@userkeys,'',0.01);
+foreach my $number (1..8) {
+ foreach my $char ('a'..'d') {
+ print "\n$number$char: ".
+ &hashcorrelate(\%grade,'',\%discussion,$number.$char,\@userkeys,'Grade',0.01).
+ &hashcorrelate(\%fcipost,'',\%discussion,$number.$char,\@userkeys,'FCIFinal',0.01).
+ &hashcorrelate(\%fcigain,'',\%discussion,$number.$char,\@userkeys,'FCIg',0.01);
+ }
+}
foreach my $mpexidx (1..34) {
print "\n$mpexidx - ";
_______________________________________________
LON-CAPA-cvs mailing list
LON-CAPA-cvs@mail.lon-capa.org
http://mail.lon-capa.org/mailman/listinfo/lon-capa-cvs
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic