Rev 16204 | Go to most recent revision | Details | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 20 | reyssat | 1 | !default Askcontext=0 |
| 2 | !default Askresult=0 |
||
| 3 | |||
| 4 | exo=!listintersect $exo and $exolist |
||
| 5 | !default exo=$defaultlist |
||
| 6 | wims_intro_parm=$exo |
||
| 7 | !default exo=$exolist |
||
| 8 | |||
| 9 | thisexo=!randitem $exo |
||
| 10 | deffile=def/$thisexo.def |
||
| 11 | |||
| 12 | givehint =!item $qcmlevel of 1,1,1,1,1,1,0,0,0 |
||
| 13 | presentsol =!item $qcmlevel of 2,2,1,1,0,0,0,0,0 |
||
| 14 | scorepower =!item $qcmlevel of 1,1.1,1.2, 1.4,1.6,1.8, 2.1,2.4,2.7 |
||
| 15 | tolerance =!item $qcmlevel of 6,4,3,2,2,1,1,0,0 |
||
| 16 | cutstep =!item $qcmlevel of 50,40,35, 30,25,20, 15,10,5 |
||
| 17 | ask =!item $qcmlevel of 2,3,3,4,4,5,6,7,8 |
||
| 18 | ecoeff =!item $qcmlevel of 0,0.2,0.3, 0.4,0.5,0.6, 0.8,0.9,1 |
||
| 19 | pcoeff =!item $qcmlevel of 1,1.2,1.3, 1.5,1.7,2, 2.3,2.6,3 |
||
| 20 | scoremin =!item $qcmlevel of 0,0,0.05, 0.1,0.15,0.2, 0.25,0.3,0.35 |
||
| 21 | |||
| 22 | !distribute item 1,1,1,1 into activecase,casecnt,currstep,ustep |
||
| 23 | !distribute item 0,0,0,0 into laststep,gotostep,penalty,oldpenalty |
||
| 24 | !reset vsavelist, methparmcnt, statusline, statusLine, solution, hint, earlyscore,\ |
||
| 25 | m_context,m_goal,m_equivalence,m_newobject,m_options,m_minsteps,\ |
||
| 26 | allcases,stepcases,\ |
||
| 27 | exo_has, stepcounting |
||
| 28 | m_environ=QQ |
||
| 29 | wims_module_log=$cmd: $thisexo level=$qcmlevel |
||
| 30 | |||
| 31 | !read $deffile |
||
| 32 | |||
| 33 | methparmlimit=32 |
||
| 34 | !default m_minsteps=1 |
||
| 35 | cutstep=$[min($maxstep,$m_minsteps+$tolerance+$cutstep)] |
||
| 36 | !for s in help,hint,solution |
||
| 37 | !if $($s)!=$empty |
||
| 38 | exo_has=$exo_has $s |
||
| 39 | !endif |
||
| 40 | !next s |
||
| 41 | |||
| 42 | m_options=!items2words $m_options |
||
| 43 | !for t in context,result |
||
| 44 | !if $(Ask$t)=0 and ask$t iswordof $m_options |
||
| 45 | Ask$t=1 |
||
| 46 | !endif |
||
| 47 | !if $(Ask$t)>0 |
||
| 48 | ask$t=$ask |
||
| 49 | !else |
||
| 50 | ask$t=0 |
||
| 51 | !endif |
||
| 52 | !next t |
||
| 53 | |||
| 54 | !if $m_environ iswordof ZZ QQ and nofloat notwordof $m_options |
||
| 55 | m_options=$m_options nofloat |
||
| 56 | !endif |
||
| 57 | |||
| 58 | !if fixedgoal iswordof $m_options |
||
| 59 | m_goal=!translate internal $ $ to $\ |
||
| 60 | $ in $m_goal |
||
| 61 | !endif |
||
| 62 | |||
| 63 | !read oef/valsave.proc |
||
| 64 | !read deduc/objects.combine |
||
| 65 | !read deduc/objects.put 0 |
||
| 66 | variables=!varlist $objects |
||
| 67 | v=!items2words $m_variables |
||
| 68 | v=!words2items $v |
||
| 69 | variables=!listunion $v and $variables |
||
| 70 | |||
| 71 | !default methparmcnt=$methparmlimit |
||
| 72 | !read deduc/methreset |
||
| 73 | |||
| 74 | mtl=!items2words $m_methods |
||
| 75 | mthlist=!words2items $mtl |
||
| 76 | mtl=!words2lines $mtl |
||
| 77 | dictionary=scripts/deduc/meth/index.$module_language |
||
| 78 | translator_unknown=leave |
||
| 79 | translator_switch=leavelines |
||
| 80 | mtitles=!exec translator $mtl |
||
| 81 | mtitles=!lines2items $mtitles |
||
| 82 | |||
| 83 | question_url= |
||
| 84 | status=waiting |
||
| 85 | !default conditioncnt=0 |
||
| 86 |