Rev 17501 | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 20 | reyssat | 1 | !distribute words $wims_read_parm into ans_1, ans_2 |
| 2 | |||
| 3 | ans_type=$(replytype$ans_1) |
||
| 4 | !if symtext iswordof $(replyoption$ans_1) |
||
| 12325 | bpr | 5 | ans_style=!defof anstyle in anstype/$ans_type.input |
| 6 | !if symtext iswordof $ans_style |
||
| 7 | ans_type=symtext |
||
| 8 | !endif |
||
| 20 | reyssat | 9 | !endif |
| 10 | |||
| 11 | ans_w=$[$(replyweight$ans_1)] |
||
| 13699 | bpr | 12 | !if $(replyweight$ans_1)!=$empty and NaN notin $ans_w and Inf notin $ans_w \ |
| 13 | and $ans_w!=1 and nocompare notwordof $ans_2 |
||
| 12325 | bpr | 14 | ans_got=$freegot |
| 15 | prec_got=$precgood |
||
| 16 | weightadjust=$[$weightadjust+$ans_w-1] |
||
| 17 | !read anstype/$ans_type $ans_2 |
||
| 18 | ans_this=$[$freegot-$ans_got] |
||
| 12348 | bpr | 19 | prec_this=$[$precgood-$prec_got] |
| 12325 | bpr | 20 | !if $prec_this>0 |
| 21 | ans_this=$[$precweight*$prec_this] |
||
| 22 | !endif |
||
| 23 | gotadjust=$[$gotadjust+$ans_this*($ans_w-1)] |
||
| 20 | reyssat | 24 | !else |
| 12325 | bpr | 25 | !read anstype/$ans_type $ans_2 |
| 20 | reyssat | 26 | !endif |