Subversion Repositories wimsdev

Rev

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

Rev 2935 Rev 3095
Line 16... Line 16...
16 
 error=nouser
 16 
 error=nouser
17 
 !exit
 17 
 !exit
18 
!endif
 18 
!endif
19 
score=!getscoremean user=$user
 19 
score=!getscoremean user=$user
20 
!for k=1 to $livret_nbcomp
 20 
!for k=1 to $livret_nbcomp
- 
 
 21 
 nbit_$k=0
21 
 !for l=1 to $livret_nbpalier
 22 
 !for l=1 to $livret_nbpalier
22 
    l_$(k)_$(l)=0
 23 
    l_$(k)_$(l)=0
23 
 !next l
 24 
 !next l
24 
!next k
 25 
!next k
25 
 
 26 
 
Line 38... Line 39...
38 
   !if $(t[1]) notitemof $livret_nonactivesheet
 39 
   !if $(t[1]) notitemof $livret_nonactivesheet
39 
    list2=!append line $(t[1]),$(t[2]) to $list2
 40 
    list2=!append line $(t[1]),$(t[2]) to $list2
40 
   !endif
 41 
   !endif
41 
  !next it
 42 
  !next it
42 
  nbit=!linecnt $list2
 43 
  nbit=!linecnt $list2
- 
 
 44 
  !if $nbit>0
- 
 
 45 
   !increase nbit_$k
43 
  !for m=1 to $nbit
 46 
   !for m=1 to $nbit
44 
   t=!line $m of $list2
 47 
    t=!line $m of $list2
45 
   s=!line $(convert_table[$(t[1])]) of $score
 48 
    s=!line $(convert_table[$(t[1])]) of $score
46 
   s=!word $(t[2]) of $s
 49 
    s=!word $(t[2]) of $s
47 
   !if $s>=$livret_minac
 50 
    !if $s>=$livret_minac
48 
    l_$(k)_$(l)=$(l_$(k)_$(l))+$s/$nbit
 51 
     l_$(k)_$(l)=$(l_$(k)_$(l))+$s/$nbit
49 
   !else
 52 
    !else
50 
    !if $s>0
 53 
     !if $s>0
51 
     l_$(k)_$(l)=$(l_$(k)_$(l))+0
 54 
      l_$(k)_$(l)=$(l_$(k)_$(l))+0
52 
    !endif
55 
     !endif
53 
   !endif
 56 
    !endif
54 
  !next it
 57 
   !next it
- 
 
 58 
  !endif
55 
 !next l
 59 
 !next l
56 
!next k
 60 
!next k
57 
 
 61