Subversion Repositories wimsdev

# class exercise sheet
!if $wims_read_parm > 0 && $wims_class > 0
 s_=wimshome/log/classes/$wims_class/sheets/.sheet$wims_read_parm
 ecnt_=!recordcnt $s_
!endif

deps=
sessionbase=!translate _ to $ $ in $wims_sesdir
sessionbase=!word 1 of $sessionbase

depfile=wimshome/$sessionbase/exodep.$wims_read_parm
!writefile $depfile
!if $ecnt_<=0
 !exit
!endif

!for i=1 to $ecnt_
 a_$i=!word $i of $scores
 b_$i=!word $i of $means
 c_$i=!word $i of $requires
!next i

!for i=1 to $ecnt_
 l_=!record $i of $s_
 d_=!line 7 of $l_
 d_=!trim $d_
 C_=
 !if $d_!=$empty
  d_=!translate internal , to $\
$ in $d_
  d_=!translate internal +: to $ , in $d_
  d_=!nonempty lines $d_
  N_=!linecnt $d_
  !for j=1 to $N_
   l_=!line $j of $d_
   !distribute items $l_ into e_,p_
   !if $p_>0 and $p_<=100
    e_=!words2items $e_
    !distribute items 0,0,0 into sum_,mean_,user_,term_
    !for e in $e_
     !if $e>0 and $e<256
      term_=$[$term_+10]
      sum_=$[$sum_+$(c_$e)]
      mean_=$[$mean_+$(b_$e)]
      user_=$[$user_+$(a_$e)]
     !endif
    !next
    !if $sum_>0 and $user_*sqrt($mean_/$term_)/$sum_*100<$p_
     C_=!append item $e_ to $C_
    !endif
   !endif
  !next j
  C_=!listuniq $C_
 !endif
 !appendfile $depfile :$C_
 deps=$deps$C_;
!next i