Subversion Repositories wimsdev

Rev

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