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