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