Subversion Repositories wimsdev

Rev

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

Rev 11296 Rev 12555
Line 7... Line 7...
7
 
7
 
8
!! w_$i etc are defined in sheetweights
8
!! w_$i etc are defined in sheetweights
9
!! give an average for all sheets and for the user $uu - even not seen in sequences ??
9
!! give an average for all sheets and for the user $uu - even not seen in sequences ??
10
 
10
 
11
!for i=1 to $percnt
11
!for i=1 to $percnt
12
 !if  $(f_$i)=$empty or $(w_$i)=$empty
12
  !if  $(f_$i)=$empty or $(w_$i)=$empty
13
   !read adm/class/sheetweights
13
    !read adm/class/sheetweights
14
 !endif
14
  !endif
15
 perc=!line $i of $percents
15
  perc=!line $i of $percents
16
 !distribute words $perc into p1,p2,p3,p4
16
  !distribute words $perc into p1,p2,p3,p4
17
 !if $p2!=$empty and $(w_$i)!=$empty
17
  !if $p2!=$empty and $(w_$i)!=$empty
18
  !distribute item $[$p1/100],$[$p2/10],$[$p3/100],$[$p4/100] into x0_,y_,x1_,x2_
18
    !distribute item $[$p1/100],$[$p2/10],$[$p3/100],$[$p4/100] into x0_,y_,x1_,x2_
19
  !set ff_$i=!mathsubst Q=$y_ in $(f_$i)
19
    !set ff_$i=!mathsubst Q=$y_ in $(f_$i)
20
  !for sev=0 to 2
20
    !for sev=0 to 2
21
     !set ff_$i=!mathsubst I$sev=$(x$(sev)_) in $(ff_$i)
21
      !set ff_$i=!mathsubst I$sev=$(x$(sev)_) in $(ff_$i)
22
  !next
22
    !next
23
   per=$[$per+($(w_$i))*$(ff_$i)]
23
    per=$[$per+($(w_$i))*$(ff_$i)]
24
 !endif
24
  !endif
25
!next i
25
!next i
26
 
26
 
27
examout=!examscore user=$uu
27
examout=!examscore user=$uu
28
 
28
 
29
!for i in $activexams
29
!for i in $activexams
30
  es_$i=!line 1 of $examout
30
  es_$i=!line 1 of $examout
31
  es__$i=!word $i of $(es_$i)
31
  es__$i=!word $i of $(es_$i)
32
  !!it happens that es__$i is empty, so we calculate per with 0 instead
32
  !!it happens that es__$i is empty, so we calculate per with 0 instead
33
  es_$i=$(es__$i)
33
  es_$i=$(es__$i)
34
  !default es_$i=0
34
  !default es_$i=0
35
   per=$[$per+$(ew_$i)*$(es_$i)/10]
35
  per=$[$per+$(ew_$i)*$(es_$i)/10]
36
   es_$i=$(es__$i)
36
  es_$i=$(es__$i)
37
!next i
37
!next i
38
 
38
 
39
!if $totweight>0
39
!if $totweight>0
40
 per=$[rint($scoremax*100*$per/$totweight)/100]
40
  per=$[rint($scoremax*100*$per/$totweight)/100]
41
!else
41
!else
42
 per=0
42
  per=0
43
!endif
43
!endif