Subversion Repositories wimsdev

Rev

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

Rev 2356 Rev 2935
Line 40... Line 40...
40 
   !endif
 40 
   !endif
41 
  !next it
 41 
  !next it
42 
  nbit=!linecnt $list2
 42 
  nbit=!linecnt $list2
43 
  !for m=1 to $nbit
 43 
  !for m=1 to $nbit
44 
   t=!line $m of $list2
 44 
   t=!line $m of $list2
45 
   s=!line $(t[1]) of $score
 45 
   s=!line $(convert_table[$(t[1])]) of $score
46 
   s=!word $(t[2]) of $s
 46 
   s=!word $(t[2]) of $s
47 
   !if $s>=$livret_minac
 47 
   !if $s>=$livret_minac
48 
    l_$(k)_$(l)=$(l_$(k)_$(l))+$s/$nbit
 48 
    l_$(k)_$(l)=$(l_$(k)_$(l))+$s/$nbit
49 
   !else
 49 
   !else
50 
    !if $s>0
 50 
    !if $s>0