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