Subversion Repositories wimsdev

# Variables used: defaultformula in adm/class/userscore/var.proc
!! defaultformula in wimshome/log/classes/$wims_class/sheets/.severity

!! Output variables:
!!
!! f_$i: formula of sheet $i.
!! w_$i: weight of sheet $i.
!! totweight: total sum of weights.

!set totweight=0
!set totsheets=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets
!set totexams=!recordcnt wimshome/log/classes/$wims_class/exams/.exams
!set examweights=!record 0 of wimshome/log/classes/$wims_class/exams/.eseverity
!set formula_list=!record 0 of adm/class/sheetformula
!set tmp=!defof DF_SEVERITY in wimshome/public_html/bases/sys/define.conf
!distribute words $tmp into tmp_w,tmp_s,tmp_ss
!for i_=1 to $totsheets
  !set f_=!line $i_ of $defaultformula
  !distribute word $f_ into w_$i_,s,ss
  !bound w_$i_ between integer 0 and 100000 default $tmp_w
  !bound s between integer 0 and 6 default $tmp_s
  !bound ss between integer 0 and 2 default $tmp_ss
  !!  f_$i_=!line $s+1 of max($$x$(ss)_,$$y_)\
  $$x$(ss)_\
  $$x$(ss)_*$$y_^0.3\
  $$x$(ss)_*$$y_^0.5\
  $$x$(ss)_*$$y_\
  $$x$(ss)_^2*$$y_\
  ($$x$(ss)_*$$y_)^2

  !set f_$i_=!record 0 of adm/class/sheetformula
  !set f_$i_=!item $s+1 of $(f_$i_)
  !set f_$i_=!replace internal I by I$ss in $(f_$i_)
  !if $i_ isitemof $activesh
    !set totweight=$[$totweight+$(w_$i_)]
  !endif
  !set s_$i_=$s
  !set ss_$i_=$ss
!next i_

!for i_=1 to $totexams
  !set ew_$i_=!line $i_ of $examweights
  !default ew_$i_=1
  !if $i_ isitemof $activexams
    !set totweight=$[$totweight+$(ew_$i_)]
  !endif
!next i_

!reset tmp tmp_s tmp_ss tmp_w