Subversion Repositories wimsdev

Rev

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

Rev 8463 Rev 8528
Line 9... Line 9...
9
 
9
 
10
!! w_$i etc are defined in sheetweights
10
!! w_$i etc are defined in sheetweights
11
!!give an average for all sheets and for the user $uu - even not seen in sequences ??
11
!!give an average for all sheets and for the user $uu - even not seen in sequences ??
12
 
12
 
13
!for i=1 to $percnt
13
!for i=1 to $percnt
-
 
14
 !if  $(f_$i)=$empty or $(w_$i)=$empty
-
 
15
   !read adm/class/sheetweights
-
 
16
 !endif
14
 perc=!line $i of $percents
17
 perc=!line $i of $percents
15
 !distribute words $perc into p1,p2,p3,p4
18
 !distribute words $perc into p1,p2,p3,p4
16
 !if $p2!=$empty and $(w_$i)!=$empty
19
 !if $p2!=$empty and $(w_$i)!=$empty
17
  !distribute item $[$p1/100],$[$p2/10],$[$p3/100],$[$p4/100] into x0_,y_,x1_,x2_
20
  !distribute item $[$p1/100],$[$p2/10],$[$p3/100],$[$p4/100] into x0_,y_,x1_,x2_
18
  !set ff_$i=!mathsubst Q=$y_ in $(f_$i)
21
  !set ff_$i=!mathsubst Q=$y_ in $(f_$i)