Subversion Repositories wimsdev

Rev

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

Rev 11105 Rev 12551
Line 14... Line 14...
14
!set examweights=!record 0 of wimshome/log/classes/$wims_class/exams/.eseverity
14
!set examweights=!record 0 of wimshome/log/classes/$wims_class/exams/.eseverity
15
!set formula_list=!record 0 of adm/class/sheetformula
15
!set formula_list=!record 0 of adm/class/sheetformula
16
!set tmp=!defof DF_SEVERITY in wimshome/public_html/bases/sys/define.conf
16
!set tmp=!defof DF_SEVERITY in wimshome/public_html/bases/sys/define.conf
17
!distribute words $tmp into tmp_w,tmp_s,tmp_ss
17
!distribute words $tmp into tmp_w,tmp_s,tmp_ss
18
!for i_=1 to $totsheets
18
!for i_=1 to $totsheets
19
 !set f_=!line $i_ of $defaultformula
19
  !set f_=!line $i_ of $defaultformula
20
 !distribute word $f_ into w_$i_,s,ss
20
  !distribute word $f_ into w_$i_,s,ss
21
 !bound w_$i_ between integer 0 and 100000 default $tmp_w
21
  !bound w_$i_ between integer 0 and 100000 default $tmp_w
22
 !bound s between integer 0 and 6 default $tmp_s
22
  !bound s between integer 0 and 6 default $tmp_s
23
 !bound ss between integer 0 and 2 default $tmp_ss
23
  !bound ss between integer 0 and 2 default $tmp_ss
24
!!  f_$i_=!line $s+1 of max($$x$(ss)_,$$y_)\
24
  !!  f_$i_=!line $s+1 of max($$x$(ss)_,$$y_)\
25
$$x$(ss)_\
25
  $$x$(ss)_\
26
$$x$(ss)_*$$y_^0.3\
26
  $$x$(ss)_*$$y_^0.3\
27
$$x$(ss)_*$$y_^0.5\
27
  $$x$(ss)_*$$y_^0.5\
28
$$x$(ss)_*$$y_\
28
  $$x$(ss)_*$$y_\
29
$$x$(ss)_^2*$$y_\
29
  $$x$(ss)_^2*$$y_\
30
($$x$(ss)_*$$y_)^2
30
  ($$x$(ss)_*$$y_)^2
31
 
31
 
32
!set f_$i_=!record 0 of adm/class/sheetformula
32
  !set f_$i_=!record 0 of adm/class/sheetformula
33
!set f_$i_=!item $s+1 of $(f_$i_)
33
  !set f_$i_=!item $s+1 of $(f_$i_)
34
!set f_$i_=!replace internal I by I$ss in $(f_$i_)
34
  !set f_$i_=!replace internal I by I$ss in $(f_$i_)
35
 !if $i_ isitemof $activesh
35
    !if $i_ isitemof $activesh
36
  !set totweight=$[$totweight+$(w_$i_)]
36
      !set totweight=$[$totweight+$(w_$i_)]
37
 !endif
37
    !endif
38
 !set s_$i_=$s
38
  !set s_$i_=$s
39
 !set ss_$i_=$ss
39
  !set ss_$i_=$ss
40
!next i_
40
!next i_
41
 
41
 
42
!for i_=1 to $totexams
42
!for i_=1 to $totexams
43
 !set ew_$i_=!line $i_ of $examweights
43
  !set ew_$i_=!line $i_ of $examweights
44
 !default ew_$i_=1
44
  !default ew_$i_=1
45
 !if $i_ isitemof $activexams
45
  !if $i_ isitemof $activexams
46
  !set totweight=$[$totweight+$(ew_$i_)]
46
    !set totweight=$[$totweight+$(ew_$i_)]
47
 !endif
47
  !endif
48
!next i_
48
!next i_
49
 
49
 
50
!reset tmp tmp_s tmp_ss tmp_w
50
!reset tmp tmp_s tmp_ss tmp_w