Rev 23 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed
# ensemble
substep=2
done=yes
!if $all_steps=0
badstep=!trim $badstep
!bound badstep between integer 0 and $stepcnt+1 default $stepcnt+1
sss=!item 1 of $bad_steps
!default sss=0
!if $badstep=$sss
module_score=10
!else
error=bad_step
!if $badstep=0 or $badstep notitemof $bad_steps
module_score=0
!else
module_score=5
!endif
!endif
!else
!distribute item 0, into er,expstep
!for i=1 to $stepcnt
!if ($i isitemof $badstep and $i notitemof $bad_steps) \
or ($i notitemof $badstep and $i isitemof $bad_steps)
!advance er
m=!line $i of $remarks
m=!trim $m
!if $i isitemof $bad_steps or $m!=$empty
expstep=!append item $i to $expstep
!endif
!endif
!next i
module_score=$[10*($stepcnt-$er)/$stepcnt]
!endif