Subversion Repositories wimsdev

Rev

Rev 17359 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 17359 Rev 17470
Line 142... Line 142...
142 
      tmp=!record $sh of $clsfile
 142 
      tmp=!record $sh of $clsfile
143 
    !endif
 143 
    !endif
144 
    !for k=1 to $nbexo
 144 
    !for k=1 to $nbexo
145 
      !if $time2=yes
 145 
      !if $time2=yes
146 
        ave=$[rint($(average[$k])/$nbuser)]
 146 
        ave=$[rint($(average[$k])/$nbuser)]
- 
 
 147 
        !if $(count[$k])!=0
147 
        ave2=$[rint($(average[$k])/$(count[$k]))]
 148 
          ave2=$[rint($(average[$k])/$(count[$k]))]
- 
 
 149 
        !else
- 
 
 150 
          ave2=0
- 
 
 151 
        !endif
148 
        m=$[rint($(max[$k]))]
 152 
        m=$[rint($(max[$k]))]
149 
        ind=$(indice[$sh;$k])
 153 
        ind=$(indice[$sh;$k])
150 
        tmp=!append line $sh $k $ave $m $ave2 $ind to $tmp
 154 
        tmp=!append line $sh $k $ave $m $ave2 $ind to $tmp
151 
      !else
 155 
      !else
152 
        ave=!line $k of $tmp
 156 
        ave=!line $k of $tmp
153 
        m=!word 4 of $ave
 157 
        m=!word 4 of $ave
154 
        ave2=!word 5 of $ave
 158 
        ave2=!word 5 of $ave
155 
        ind=!word 6 of $ave
 159 
        ind=!word 6 of $ave
- 
 
 160 
        !default ind=1
156 
        ave=!word 3 of $ave
 161 
        ave=!word 3 of $ave
157 
      !endif
 162 
      !endif
158 
      !if $(wei[$k])!=0 and $swei!=0
 163 
      !if $(wei[$k])!=0 and $swei!=0
159 
        val=$[rint(100*($ave - $(useraverage[$k])) *$swei * $(wei[$k])/($totwei*$ind))]
 164 
        val=$[rint(100*($ave - $(useraverage[$k])) *$swei * $(wei[$k])/($totwei*$ind))]
160 
        !if $val<=0
 165 
        !if $val<=0