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