!nocache
!set limit_exoseries=!getdef limit_exoseries in oef/default
!set modu_lang=$lang
!!! FIXME variable jquery_defined is not accessible here
!if $wims_theme!=default
  !set jquery_defined=yes
!endif
!read getparm $module_init_parm seed
!if $get_seed!=$empty
  !setseed $get_seed
  module_init_parm=!replace internal seed=$get_seed by in $module_init_parm
  !reset get_seed
!endif
!!wseed=$seed
!!!if $wseed!=$empty and $wims_user=supervisor
!!  !setseed $wseed
!!!endif
!!
!! variable presentgood has not been defined
!!
!read oef/testseedscore.phtml
!readproc oef/get_presentgood.proc
!!
oefenv_presentgood=$presentgood
!read oef/$lang/names.proc
!if $lang_exists!=yes
  !let modu_lang=en
  !read oef/$modu_lang/names.proc
!endif
!set module_language=$lang
translation_language=!module translation_language $module
oefenv_lang=$lang

!if $translation_language!=$empty and $lang_choice!=$empty
  oefenv_lang=$lang_choice
!endif

!set name_choose_code=!defof name_choose_code in anstype/menu.input
!default module_help=popup

#if you change these limits, you have to modify var.def!
limit_var=2048
!!does not work because it is not an administrative modules but the limit are here
!!limit_choice=!getdef MAX_OEFCHOICES in wimshome/public_html/bases/sys/define.conf
!!limit_reply=!getdef MAX_OEFREPLIES in wimshome/public_html/bases/sys/define.conf

limit_reply=100
limit_choice=30
testnum=10
savedrawcnt=1
savetexcnt=1
proc=oef
!if $cmd=new and $allow_missing_data != yes
  module_checkdata=!checkdata
  !if $module_checkdata!=yes
    wims_module_log=Missing datamodule $module_checkdata
    !exit
  !endif
!else
  module_checkdata=yes
!endif
wims_noexport=$wims_noexport reply choice score oef hint fill val vsave \
	deffile tmp thisexo ch_ exolist titlelist shufflelist \
	name_ parm exo posvar sp_ slib_
wims_multiexec=pari maxima yacas octave gap
insmath_rawmath=yes
wims_backslash_insmath=yes

# Limit Pari precision, for otherwise many computations will fail.
proc_oef=yes
!default precision=10000
!default pari_precision=18
!default print_precision=8
!default maxima_precision=$print_precision
wims_print_precision=$print_precision
maxima_header=expon:0; expop:0; factlim:6; prederror: false;\
	maxnegex:20; maxposex:20; ratfac:true; keepfloat:true;\
    ordergreat(x,y,z,t)

pari_header=x;y;z;t;
executed_str=__EXECUTED_1692754_EXERCISE__

!for j_ in lastname,firstname,login,now
  !default m_oef_$(j_)=$(wims_$(j_))
  !default m_oef_$(j_)=$(name_$(j_))
!next
!default m_oef_lang=$lang
!default m_oef_login=anonymous

m_oefenv=!replace word debug by $ in $m_oefenv
!if ($wims_developer!=$empty and ../devel/$wims_developer isin ../$module \
		and _test isin $wims_session) or \
    ../adm/createxo isin ../$module or \
    ($wims_user=supervisor and $wims_isexam<1 and _check notin $wims_session)
  !default oef_default=no
  m_oefenv=!singlespace $m_oefenv debug
!endif

!if $cmd=help
  !if $special_parm=about
    !read $(class_header)Exindex
    exo=!listintersect $exo and $exolist
  !endif
  !default lang_choice=$lang
  !set title=!defof title_$lang_choice in $deffile
  !default title=!defof title in $deffile
  !set module_title=$title
  !set modtitle=$title
  !set module_author=$author
  !set module_address=$email
  nn=!itemcnt $shufflelist
  thisexo=!item ($reply_cnt)%$nn+1 of $shufflelist
  !readproc oef/valback.proc
  !readproc oef/imagedir.proc
  val1=$imagedir
  m_step=$oefstep
  !exit
!endif

!if $cmd=new or $cmd=renew
  starttime=$wims_nowseconds
!endif

!default insplot_set=size 0.6,0.6
!default idontknow=1
!default allchoices=0

!if $oef_test=yes
  print=
  qnum=1
  qcmlevel=1
  intro_qcmpresent=8
  intro_sol=1
  intro_feed=1
  freepower=2
  scorepower=1
  random=0
  exocnt=1
  precweight=0.9

  !if $retest=again
    !reset status retest oef_default
  !endif
!else
  !read $(class_header)Exindex
  !! FIXME
  !! mis pour mmoire, pour l'instant rien n'est chang.
  !! essai de rparation de la perte de special_parm3
  !! on trafique ensuite module_init_parm et special_parm3
  !! mais si special_parm3 existe on n'en fait rien !
  exocnt=!itemcnt $exolist
  !!!if $special_parm3!=$empty
  !!  !read getparm $special_parm3 qnum
  !!  qnum=$get_qnum
  !!!else
  !bound qnum between integer 1 and $limit_exoseries default 1
  !bound qcmlevel between integer 1 and 9 default 3
  !bound random within 0,1 default 1
  tmp=!replace internal & by ; in $module_init_parm
  !! URL encode \n
  tmp=!replace internal $\
$ by %0A in $tmp

    tmp=intro_check=$intro_check;random=$random;$tmp
    tmp=!replace internal scoredelay=; by scoredelay=0; in $tmp
    #tmp=!replace internal exo=; by exo=0; in $tmp
    special_parm3=!nospace $tmp
  !!!endif
  !if $scoredelay!=$empty and $scoredelay!=0
    d_=!items2words $scoredelay
    !distribute words $d_ into delay1,delay2
    !bound delay1 between integer 0 and 2000 default 0
    !bound delay2 between integer $delay1 and 2000
  !endif
  !reset scoredelay tmp
!endif
!default format=html

!if $print!=$empty
  !changeto oef/print.proc
!endif

!if $cmd=reply and $status!=waiting
  error=double_reply
  !exit
!endif

!if $status=$empty
  !read oef/exo.init
!endif

!if $cmd iswordof new renew reply and \
  ($wims_user=supervisor or $wims_user=$empty or $wims_developer!=$empty)
  exonext=!positionof item $exo in $exolist
  exoprev=$[$exonext-1]
  exonext=$[$exonext+1]
  !if $exonext > $exocnt
    exonext=1
  !endif
  !if $exoprev < 1
    exoprev=$exocnt
  !endif
  exoprev=!item $exoprev of $exolist
  exonext=!item $exonext of $exolist
!endif

!if $status!=waiting
  !for i=1 to $limit_reply
    !reset replygood$i
  !next i
  !reset solution, hint, help, oefsteps, oefstepcnt, latex
  !for i=1 to 16
    savedraw$i=
    savetex$i=
  !next i
!endif

!if $oef_test=yes
  deffile=wimshome/$wims_sesdir/submit.def
!else
  nn=!itemcnt $shufflelist
  thisexo=!item ($reply_cnt)%$nn+1 of $shufflelist
  deffile=$(class_header)def/$thisexo.def
  !if $nn>1 and $status!=waiting
    wims_module_log=$wims_module_log got $thisexo
  !endif
!endif
!readproc oef/imagedir.proc

!distribute items 0,0,0,0,0,0 into \
	varcnt,postvarcnt,replycnt,choicecnt,conditioncnt,feedbackcnt
!if $status!=waiting
  !reset ansorder,oefstep,oefsteps,oefstepcnt,nextstep,dynsteps,\
	  cchoicecnt, creplycnt, embedcnt, vsavelist, leftrange, rightrange
  !read $deffile
  !read oef/var.prep
!else

  !read $deffile
  !if $savedraw1!=$empty
    savedrawcnt=0
    !for i=1 to 16
      !if $(savedraw$i)!=$empty
        !read oef/draw.phtml $(savedraw$i)
      !else
        !if $(savetex$i)!=$empty
          !read oef/teximg.phtml $(savetex$i)
        !endif
      !endif
    !next i
  !endif
  !readproc oef/valback.proc
  !if $oefsteps!=$empty
    !readproc oef/steps.proc
  !endif
!endif
!if $embedcnt>0 or $embedcnt=$empty
  hasembedding=yes
!endif
!if $oefsteps!=$empty
  thisstep=!line $oefstep of $oefsteps
  gotsteps=!line 1 to $oefstep of $oefsteps
  gotsteps=!lines2items $gotsteps
  m_step=$oefstep
!else
  cchoicecnt=$choicecnt
  creplycnt=$replycnt
!endif

!if $cmd=reply and $status=waiting
  !if ($oefsteps!=$empty and $oefstep<$oefstepcnt) or \
	($dynsteps=yes and $oefstep=$oefstepcnt)
    !readproc oef/step.proc
    !if $dynsteps=yes and $oefstep>$oefstepcnt
      oefstep=$[$oefstep-1]
      !goto ana
    !endif
    !if $stepdiag=ok or $error!=$empty
      !goto end
    !endif
  !else
    !if $oefsteps!=$empty and $oefstep=$oefstepcnt
      !for i=1 to $replycnt
        !if r$i isitemof $gotsteps and r$i notitemof $thisstep
          reply$i=$(saverep$i)
        !endif
      !next i
      !for i=1 to $choicecnt
        !if c$i isitemof $gotsteps and c$i notitemof $thisstep
          choice$i=$(savech$i)
        !endif
      !next i
    !endif
  !endif
  :ana
  !distribute item 0,0,0,0,0,0,0,0,0 into \
	conditionned, freegot, condgot, qcmgot, \
	precgood, weightadjust, gotadjust, cweightadjust, cgotadjust
  !for i=1 to $replycnt
    tt=!word 1 of $(replygood$i)
    tmp_oefsteps=!lines2items $oefsteps
    !if $tt=?analyze
      !if r$i isitemof $tmp_oefsteps or $gotsteps=$empty
        !advance conditionned
      !endif
    !else
      !if $oefsteps!=$empty and r$i notitemof $gotsteps
        !if r$i isitemof $tmp_oefsteps
          tmp_ans_w=$[$(replyweight$i)]
          !if $(replyweight$i)!=$empty and NaN notin $tmp_ans_w and Inf notin $tmp_ans_w and \
	            $tmp_ans_w!=1
            weightadjust=$[$weightadjust+$tmp_ans_w-1]
          !endif
          !reset tmp_ans_w tmp_oefsteps
        !endif
        !goto cont
      !endif
    !endif
    !if $(replygood$i)=$empty
      !advance freegot
      !goto cont
    !endif
    !if $(replytype$i)=coord and $(reply$i)=$empty
      reply$i=$click_x,$click_y
      reply$i=!nonempty item $(reply$i)
      !if $(reply$i)!=$empty
        reply$i=($(reply$i))
      !endif
    !endif
    r_=!trim $(reply$i)
    !if $(replytype$i)!=code
      reply$i=$r_
    !endif
    default_$i=!getopt default in $(replyoption$i)
    !if $(default_$i)!=$empty and ($r_=$empty or ($r_=$name_choose_code and $(replytype$i) iswordof menu))
      reply$i=$(default_$i)
      r_=$(default_$i)
    !endif
    !if $r_=$empty or \
	   ($(reply$i)=$name_choose_code and $(replytype$i) iswordof menu)
      !if $oefsteps=$empty or r$i isitemof $gotsteps
        error=empty_data
        !goto end
      !else
        reply$i=????
        diareply$i=bad
        !goto cont
      !endif
    !endif
    !! add default to fix a bug with nextstep and type click
    !default m_reply$i=$(reply$i)
    !default m_reply_$i=$(reply_$i)
    !default replytype$i=default
    tt=!word 1 of $(replygood$i)
  	# analyzed reply
    !if $tt=?analyze
      g_=!rows2lines $(replygood$i)
      g_=!line 1 of $g_
      tt=!word 2 of $g_
      !read oef/ans.proc $i nocompare
      !if $error!=$empty
        !goto end
      !endif
      !default m_reply$i=$(reply$i)
      !default m_reply_$i=$(reply_$i)
      !read oef/screply.proc
      val$tt=$(m_reply$i)
      !if NaN isin $test
        !goto badans
      !endif
      !goto cont
    !endif
    !read oef/ans.proc $i
    !if $error!=$empty
      !goto end
    !endif
    !default m_reply$i=$(reply$i)
    !default m_reply_$i=$(reply_$i)
    !default m_reply_$i=$(reply$i)
    !read oef/screply.proc
    !if bad isin $Test
      error=bad_exo $i
      !advance reply_cnt
      status=
      !goto end
    !endif
    !if NaN isin $test
      :badans
      error=bad_answer
      bad_name=$(replyname$i)
      bad_value=$(reply$i)
      !goto end
    !endif
  :cont
    !reset test Test
  !next i
  !for i=1 to $choicecnt
    !if $oefsteps!=$empty and c$i notitemof $gotsteps
      !goto contc
    !endif
    !default choice$i=0
    choic=$[rint($(choice$i))]
    !if $choic=0 and ($oefsteps=$empty or c$i isitemof $gotsteps)
      error=empty_data
      !goto end
    !endif
    !if NaN isin $choic or $choic<1 or $choic>$(choiceitems$i)+2
      error=bad_answer
      bad_name=$(choicename$i)
      bad_value=$(choice$i)
      !goto end
    !else
      choice$i=$choic
    !endif
    ch=!item $choic of $(choicelist$i)
    m_choice$i=$ch
    !if $qcmgood<1 and $choic=$[$(choiceitems$i)+2]
      !if $(choicegood$i)=$empty
        chh=good
      !else
        chh=bad
      !endif
    !endif
    !if ($choic<=$(choiceitems$i) and $ch isitemof $(choicegood$i)) or $chh=good
      diachoice$i=good
      m_sc_choice$i=1
      !advance qcmgot
    !else
      diachoice$i=bad
      m_sc_choice$i=0
      !if $penalty>0 and $choic!=$[$(choiceitems$i)+1]
        cc=!itemcnt $(choicegood$i)
        !if $cc>=$(choiceitems$i)
          cc=$[$(choiceitems$i)-1]
        !endif
        qcmgot=$[$qcmgot-$cc/($(choiceitems$i)-$cc)]
      !endif
      !if $choic=$[$(choiceitems$i)+1]
        m_sc_choice$i=-1
      !endif
    !endif
    :contc
  !next i
  !if $postvarcnt>0 and $thisstep_postdef!=done
    !read $deffile postdef
  !endif
  !if $conditioncnt>0
    testcondition=yes
    condlist=all
    !read $deffile test
    testcondition=
    !if $condlist issametext all
      condlist=!values x for x=1 to $conditioncnt
    !else
      condlist=!words2items $condlist
    !endif
    conditioncnt=!itemcnt $condlist
    !for i in $condlist
      !default condweight$i=1
      weightadjust=$[$weightadjust+$(condweight$i)-1]
      !if $(condtest$i)>0
        condgot=$[$condgot+$(condweight$i)]
      !endif
    !next i
  !endif
  !advance reply_cnt
  freetot=$[$creplycnt+$conditioncnt-$conditionned+$weightadjust]
  !if $freetot>0
    freegot=$[$condgot+$freegot+$gotadjust+$precweight*$precgood]
  !else
    freegot=0
  !endif
  alltot=$[$freetot+$cchoicecnt]
  allgot=$[$freegot+$qcmgot]
  !if $alltot>0 and $allgot>0
    allgot=$[($allgot/$alltot)^$freepower*$alltot]
  !else
    allgot=0
  !endif
  score_got=$[$score_got+$allgot]
  score_should=$[$score_should+$alltot]
  status=done
  !if $reply_cnt>=$qnum
    !bound score_got between 0 and $score_should
    score=$[min(10,rint(100*($score_got/max(1,$score_should))^$scorepower)/10)]
    module_score=$score
    !if 0$delay2>0 and $starttime>0
      n_=$wims_nowseconds
      last=$[$n_-$starttime-4]
      !if $last>0$delay1
        toolate=$  $[$last-$delay1]-$[$last-$delay2]
        !if $last>0$delay2 or $module_score<=0
          module_score=0
        !else
          module_score=$[rint(10*$module_score*($delay2-$last)/($delay2-$delay1))/10]
        !endif
      !endif
    !endif
    !if $oef_test!=yes
      wims_module_log=score $module_score/10$toolate
    !endif
    status=
  !endif
!endif

:end

!if $cmd=hint or $cmd=resume
  !! add to display student answer in case of use an hint or resume to work
  !for i=1 to $replycnt
    !default m_reply$i=$(reply$i)
  !next i
  !for i=1 to $choicecnt
    m_choice$i=!item $(choice$i) of $(choicelist$i)
  !next i
!endif

!if $status=waiting
  !distribute item 1,1 into cntr,cntc
  form_=document.forms['replyform']
  !for t in $ansorder
    !if $oefsteps=$empty or $t$(cnt$t) isitemof $thisstep
      !if $t=r
        !if $(replytype$(cnt$t)) notwordof checkbox
          defaultest=!getopt default in $(replyoption$(cnt$t))
          !if $defaultest=$empty
            wims_form_lock=!append line if($form_.reply$(cnt$t).value.length==0) return emptyfield(); to $wims_form_lock
          !else
            !if nocheck notwordof $(replyoption$(cnt$t))
              wims_form_lock=!append line if($form_.reply$(cnt$t).value.length==0) nb_default+=1; to $wims_form_lock
            !endif
          !endif
        !else
          !! test for checkboxes
          wims_form_lock=!append line if(verify_checkboxes('reply$(cnt$t)')==null) return emptyfield(); to $wims_form_lock
        !endif
      !endif
    !endif
    !advance cnt$t
  !next t
  header_js=<script>\
function emptyfield() {\
 alert("$name_empty"); return false;\
}\
function formcheck() {\
  var nb_default=0;\
  $wims_form_lock\
  if(nb_default>0){\
    if("jQuery" in window){jQuery("#exo_formCheck").foundation('open');return false;}\
    {return window.confirm("$name_exo_form_check");}\
  }\
  return true;\
}\
function verify_checkboxes(box_name) {\
  var checkedValue = null;\
  var inputElements = document.getElementsByName(box_name);\
  for(var i=0; inputElements[i]; ++i){\
    if(inputElements[i].checked){\
      checkedValue = inputElements[i].value;\
      break;\
    }\
  }\
  return checkedValue;\
}\
</script>
!endif

savedrawcnt=0
savetexcnt=0