Subversion Repositories wimsdev

# 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