Subversion Repositories wimsdev

# Variables x_ y_ z_ are defined before

# Variables used: defaultformula in adm/class/userlist/var.proc

# defaultformula=!line 2 to -1 of (record 0) of wimshome/log/classes/$wims_class/sheets/.severity

# Output variables:

#

# f_$i: formula of sheet $i.

# w_$i: weight of sheet $i.

# s_$i: severity of $sheet $i.

# totweight: total sum of weights.

# this formula must be calculated on some variables x_ and y_ or z_

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

!for i=1 to $totsheets

 f_=!line $i of $defaultformula

 !distribute word $f_ into w_$i,s

 !default w_$i=1

 !bound s between integer 0 and 13 default 2

 f_$i=!line $s+1 of max($$x_,$$y_)\

$$x_\

$$x_*$$y_^0.3\

$$x_*$$y_^0.5\

$$x_*$$y_\

$$x_^2*$$y_\

($$x_*$$y_)^2\

max($$z_,$$y_)\

$$z_\

$$z_*$$y_^0.3\

$$z_*$$y_^0.5\

$$z_*$$y_\

$$z_^2*$$y_\

($$z_*$$y_)^2

 !if $i isitemof $activesh

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

 !endif

 s_$i=$s

!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