Subversion Repositories wimsdev

Rev

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