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

!for i_=1 to $totsheets

 !set f_=!line $i_ of $defaultformula

 !distribute word $f_ into w_$i_,s,ss

 !default w_$i_=1

 !bound s between integer 0 and 6 default 2

 !bound ss between integer 0 and 2 default 0

!!  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_