1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
# 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
|
