Subversion Repositories wimsdev

# Variables used: defaultformula in adm/class/userlist/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.

totweight=0

totsheets=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets

totexams=!recordcnt wimshome/log/classes/$wims_class/exams/.exams

examweights=!record 0 of wimshome/log/classes/$wims_class/exams/.eseverity

formula_list=!record 0 of adm/class/sheetformula

!for i=1 to $totsheets

 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

f_$i=!record 0 of adm/class/sheetformula

f_$i=!item $s+1 of $(f_$i)

f_$i=!replace internal I by I$ss in $(f_$i)

 !if $i isitemof $activesh

  totweight=$[$totweight+$(w_$i)]

 !endif

 s_$i=$s

 ss_$i=$ss

!next i

!for i=1 to $totexams

 ew_$i=!line $i of $examweights

 !default ew_$i=1

 !if $i isitemof $activexams

  totweight=$[$totweight+$(ew_$i)]

 !endif

!next i