Subversion Repositories wimsdev

#if you change these limits, you have to modify var.def!

limit_var=2048

maxstep=100

wims_multiexec=pari maxima

insmath_rawmath=yes

wims_backslash_insmath=yes

htmlmath_gtlt=yes

proc_oef=yes

!read deduc/$module_language/names

!read deduc/var.headers

# Limit Pari precision, for otherwise many computations will fail.

!default pari_precision=18

!default precision=10000

!default print_precision=8

wims_print_precision=$print_precision

maxima_precision=$print_precision

!default insplot_set=size 0.6,0.6

!if $cmd=help

 !set module_title=$title

 !set module_author=$author

 !set module_address=$email

 !exit

!endif

!read Exindex

exocnt=!itemcnt $exolist

!bound qnum between integer 1 and $exocnt default 1

!bound qcmlevel between integer 1 and 9 default 3

!bound random within 0,1 default 1

!default format=html

!if $cmd notwordof new renew and $status!=waiting

 !readproc oef/valback.proc

 error=double_reply

 !exit

!endif

!readproc deduc/imagedir.proc

!distribute items 0,0,0 into postvarcnt,conditioncnt,feedbackcnt

!if $status!=waiting

 !read deduc/exo.init

!else

 !read $deffile

 !readproc oef/valback.proc

!endif

m_step=$currstep

!if $cmd=reply and $status=waiting

 !if $opt iswordof newstep newcase gotocase

  !changeto deduc/var.$opt

 !endif

 !readproc deduc/meth$methstep.proc

 !if $error!=$empty or $methsubstep>1

  !exit

 !endif

 !advance methstep

 !if $methstep<=3 and \

    ($methstep<=2 or \

	(($askcontext>0 and $contextlist!=$empty) or \

	 ($askresult>0 and $resultlist!=$empty)))

  !exit

 !endif

 methstep=1

 thisstepnocount=$stepnocounting

 !read deduc/methreset

 !if $postvarcnt>0

  !read $deffile postdef

 !endif

 ctstep=!char 1 to $currstep of $stepcounting

 ctstep=!text select 1 in $ctstep

 ctstep=!charcnt $ctstep

 !if $earlyscore=$empty

  cstep=$[max($m_minsteps,$ctstep-$tolerance)]

  vstep=$[min($ctstep,$cstep)]

  uustep=$[max(0,$ustep-$ctstep-max(0,$m_minsteps+$tolerance-$ctstep))]

  wstep=$[max(1,$vstep)+$ecoeff*$uustep+$pcoeff*$penalty]

  wscore=$[max(0,(($m_minsteps/$wstep)^$scorepower-$scoremin)/(1-$scoremin))]

  scoretest=$[min(10,rint(100*$wscore)/10)]

  !if $scoretest<=0

   earlyscore=0

   module_score=0

   wims_module_log=score $module_score/10

  !endif

 !else

  scoretest=$earlyscore

 !endif

 !if $thisstepnocount!=yes

  !advance ustep

 !endif

 !advance currstep

 m_step=$currstep

 !if $currstep>$cutstep

  scoretest=0

  cutstop=yes

  !changeto deduc/var.finish

 !endif

 !if $conditioncnt>0

  !read $deffile test

 !else

  !read deduc/var.checkgoal

 !endif

 !if $condtest1=1 or $condtest1=-1

  !read deduc/var.finish

 !endif

!endif