Rev 8907 | Rev 12348 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 8907 | Rev 12325 | ||
|---|---|---|---|
| Line 4... | Line 4... | ||
| 4 | !if symtext iswordof $(replyoption$ans_1) |
4 | !if symtext iswordof $(replyoption$ans_1) |
| 5 | ans_style=!defof anstyle in anstype/$ans_type.input |
5 | ans_style=!defof anstyle in anstype/$ans_type.input |
| 6 | !if symtext iswordof $ans_style |
6 | !if symtext iswordof $ans_style |
| 7 | ans_type=symtext |
7 | ans_type=symtext |
| 8 | !endif |
8 | !endif |
| 9 | !endif |
9 | !endif |
| 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 | prec_got=$precgood |
| 16 | weightadjust=$[$weightadjust+$ans_w-1] |
16 | weightadjust=$[$weightadjust+$ans_w-1] |
| 17 | !read anstype/$ans_type $ans_2 |
17 | !read anstype/$ans_type $ans_2 |
| 18 | ans_this=$[$freegot-$ans_got] |
18 | ans_this=$[$freegot-$ans_got] |
| 19 | prec_this=$[$precgood-$prec_got] |
19 | prec_this=$[$precgood-$prec_got] |
| 20 | !if $prec_this>0 |
20 | !if $prec_this>0 |
| 21 | ans_this=$[$precweight*$prec_this] |
21 | ans_this=$[$precweight*$prec_this] |
| 22 | !endif |
22 | !endif |
| 23 | gotadjust=$[$gotadjust+$ans_this*($ans_w-1)] |
23 | gotadjust=$[$gotadjust+$ans_this*($ans_w-1)] |
| 24 | !else |
24 | !else |
| 25 | !read anstype/$ans_type $ans_2 |
25 | !read anstype/$ans_type $ans_2 |
| 26 | !endif |
26 | !endif |