Subversion Repositories wimsdev

Rev

Rev 7680 | Rev 8907 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7680 Rev 8901
Line 10... Line 10...
10 
 
 10 
 
11 
ans_w=$[$(replyweight$ans_1)]
 11 
ans_w=$[$(replyweight$ans_1)]
12 
!if $ans_w!=$empty and NaN notin $ans_w and Inf notin $ans_w and \
 12 
!if $ans_w!=$empty and NaN notin $ans_w and Inf notin $ans_w and \
13 
	$ans_w>0 and $ans_w!=1 and nocompare notwordof $ans_2
 13 
	$ans_w>0 and $ans_w!=1 and nocompare notwordof $ans_2
14 
 ans_got=$freegot
 14 
 ans_got=$freegot
- 
 
 15 
 prec_got=$precgood
15 
 weightadjust=$[$weightadjust+$ans_w-1]
 16 
 weightadjust=$[$weightadjust+$ans_w-1]
16 
 !read anstype/$ans_type $ans_2
 17 
 !read anstype/$ans_type $ans_2
17 
 ans_this=$[$freegot-$ans_got]
 18 
 ans_this=$[$freegot-$ans_got]
- 
 
 19 
 prec_this=$[$precgood-$prec_got]
- 
 
 20 
!if $prec_this>0
- 
 
 21 
  ans_this=$[$precweight*$prec_this]
- 
 
 22 
!endif
18 
 gotadjust=$[$gotadjust+$ans_this*($ans_w-1)]
 23 
 gotadjust=$[$gotadjust+$ans_this*($ans_w-1)]
19 
!else
 24 
!else
20 
 !read anstype/$ans_type $ans_2
 25 
 !read anstype/$ans_type $ans_2
21 
!endif
 26 
!endif