Go to most recent revision | Details | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
23 | reyssat | 1 | |
2 | # class exercise sheet |
||
3 | !if $wims_read_parm > 0 && $wims_class > 0 |
||
4 | s_=wimshome/log/classes/$wims_class/sheets/.sheet$wims_read_parm |
||
5 | ecnt_=!recordcnt $s_ |
||
6 | !endif |
||
7 | |||
8 | deps= |
||
9 | sessionbase=!translate _ to $ $ in $wims_sesdir |
||
10 | sessionbase=!word 1 of $sessionbase |
||
11 | |||
12 | depfile=wimshome/$sessionbase/exodep.$wims_read_parm |
||
13 | !writefile $depfile |
||
14 | !if $ecnt_<=0 |
||
15 | !exit |
||
16 | !endif |
||
17 | |||
18 | !for i=1 to $ecnt_ |
||
19 | a_$i=!word $i of $scores |
||
20 | b_$i=!word $i of $means |
||
21 | c_$i=!word $i of $requires |
||
22 | !next i |
||
23 | |||
24 | !for i=1 to $ecnt_ |
||
25 | l_=!record $i of $s_ |
||
26 | d_=!line 7 of $l_ |
||
27 | d_=!trim $d_ |
||
28 | C_= |
||
29 | !if $d_!=$empty |
||
30 | d_=!translate internal , to $\ |
||
31 | $ in $d_ |
||
32 | d_=!translate internal +: to $ , in $d_ |
||
33 | d_=!nonempty lines $d_ |
||
34 | N_=!linecnt $d_ |
||
35 | !for j=1 to $N_ |
||
36 | l_=!line $j of $d_ |
||
37 | !distribute items $l_ into e_,p_ |
||
38 | !if $p_>0 and $p_<=100 |
||
39 | e_=!words2items $e_ |
||
40 | !distribute items 0,0,0 into sum_,mean_,user_,term_ |
||
41 | !for e in $e_ |
||
42 | !if $e>0 and $e<256 |
||
43 | term_=$[$term_+10] |
||
44 | sum_=$[$sum_+$(c_$e)] |
||
45 | mean_=$[$mean_+$(b_$e)] |
||
46 | user_=$[$user_+$(a_$e)] |
||
47 | !endif |
||
48 | !next |
||
49 | !if $sum_>0 and $user_*sqrt($mean_/$term_)/$sum_*100<$p_ |
||
50 | C_=!append item $e_ to $C_ |
||
51 | !endif |
||
52 | !endif |
||
53 | !next j |
||
54 | C_=!listuniq $C_ |
||
55 | !endif |
||
56 | !appendfile $depfile :$C_ |
||
57 | deps=$deps$C_; |
||
58 | !next i |
||
59 |