Subversion Repositories wimsdev

Rev

Rev 2712 | Rev 3568 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. <script type="text/javascript">
  2.     var URL;
  3.  
  4.     function dontknow(){
  5.         t=confirm(r0+"\n$dontknow ?");
  6.         if(t==true){
  7.             URL = '$wims_ref_name?session=$session&+module=$module&+cmd=reply&+reply$n=%3F' ;
  8.             document.location.href = URL;if(document.getElementById("MathView")){document.getElementById("MathView").destroy();}
  9.         }
  10.     }
  11.  
  12.     function sendanswer(){
  13.     !! reply is cosmetisch : total is the antwoord...
  14.         var v;var input;var reply="" ;var total=new Array;
  15.         var ml;var t1;var t2;var applet=0;
  16.         if(document.getElementById("MathView")){applet=1;}
  17.         if(applet==1){
  18.             !! using the inputapplet
  19.             input=document.getElementById("MathView").getLinear();input=input+'';
  20.             v=input.length;if(v==0){setAlarm(r1+"\ 1");return;}if(v>100){setAlarm(r2); return;}
  21.             if(input.indexOf('error')!=-1){setAlarm(input);return;}
  22.             input=arrows(input,2,"","");if(input=="error"){return;}
  23.             input=nthroot(input);if(input=="error"){return;}
  24.             if(input.indexOf(',')!=-1){setAlarm(r4);return;}
  25.             if(check_f(input)==0){return;}if(check_o(input)==0){return;}
  26.             if(check_log_NaN(input)==0){return;}if(check_sqrt_NaN(input)==0){return;}
  27.             input=science(input);if(input=="error"){return;}
  28.             if(check_x(input)==0){return;}
  29.             reply=input+"\n";t1=input.indexOf("[");
  30.             if(t1 !=- 1){
  31.                 if(input.indexOf("sqrt[")!=-1){input=specialroot(input);if(input=="error"){return;}}
  32.                 if(input.indexOf("log[")!=-1){input=speciallog(input);if(input=="error"){return;}}
  33.                 t1=input.indexOf("[");
  34.                 if(t1!=-1){setAlarm(r13);return;}
  35.             }
  36.             input=input.replace(/#/g,' ');
  37.             total[0]=input;
  38.         }
  39.        
  40.         if(document.mydefaultform){
  41.             ml=document.mydefaultform.elements.length;
  42.             var inputfieldnumber=0;
  43.             for(z=0;z<ml;z++){
  44.                 input=document.mydefaultform[z].value;
  45.                 v=input.length;if (v==0){var qu=z+1; setAlarm(r1+"\ "+qu);return;}
  46.                 input=nthroot(input);if(input=="error"){return;}
  47.                 if(input.indexOf(',')!=-1){setAlarm(r4);return;}
  48.                 input=arrows(input,2,"","");if(input=="error"){return;}
  49.                 if(check_f(input)==0){return;}if(check_o(input)==0){return;}
  50.                 if(check_log_NaN(input)==0){return;}if(check_sqrt_NaN(input)==0){return;}
  51.                 input=science(input);if(input=="error"){return;}
  52.                 if(check_x(input)==0){return;}
  53.                 reply=reply+input+"\n";t1=input.indexOf("[");
  54.                 if(t1 !=- 1){
  55.                     if(input.indexOf("sqrt[")!=-1){input=specialroot(input);if(input=="error"){return;}}
  56.                     if(input.indexOf("log[")!=-1){input=speciallog(input);if(input=="error"){return;}}
  57.                     t1=input.indexOf("[");if(t1!=-1){setAlarm(r13);return;}
  58.                 }
  59.                 input=input.replace(/#/g,' ');
  60.                 total[inputfieldnumber+applet]=input;
  61.                 inputfieldnumber=inputfieldnumber+1;
  62.             }
  63.         }
  64.         v=total.length;if(v==0){setAlarm(r1);return;}
  65.         t=confirm(r0+"\n"+reply);
  66.         if(t==true){total=encodeURIComponent(total);URL = '$wims_ref_name?session=$session&+module=$module&+cmd=reply&+reply$n='+total ;document.location.href = URL;if(applet==1){document.getElementById("MathView").destroy();}}
  67.     }
  68. </script>
  69.  
  70. <div align="center">
  71.     <table summary="" bgcolor="$bgcolor1" cellpadding="$cellpadding" cellspacing="$cellspacing">
  72.         <tr>
  73.         <td valign="top" align="left">
  74.             !if $(question$n) != $empty
  75.                 $(question$n)
  76.                 <br>
  77.             !endif
  78.             !if $(formula$n) != $empty
  79.                 !if $embed=1
  80.                     !if $mathview = 3
  81.                         !!! hmmm
  82.                         <center>
  83.                             !insmath $(formula$n)
  84.                         </center>
  85.                         <br>
  86.                     !else
  87.                         <table summary="">
  88.                             <tr>
  89.                             <th>
  90.                                 !insmath $(formula$n)
  91.                             </th>
  92.                             <th>
  93.                                 <form name="mydefaultform" id="mydefaultform" action="">
  94.                                     !if $inputs=1
  95.                                         !if $wims_user=supervisor
  96.                                             <table summary=""><tr><th>&nbsp;&nbsp; $m_rightarrow &nbsp;&nbsp;</th><th><textarea  id="myinput0" style=$textareastyle cols="$cols" rows="$rows" name="reply">$(answer$n)</textarea></th></tr></table>
  97.                                         !else
  98.                                             <table summary=""><tr><th>&nbsp;&nbsp; $m_rightarrow &nbsp;&nbsp;</th><th><textarea  id="myinput0" style=$textareastyle cols="$cols" rows="$rows" name="reply">$(reply$n)</textarea></th></tr></table>
  99.                                         !endif
  100.                                     !else
  101.                                         <table summary="" cellspacing="1">
  102.                                         !for p=1 to $inputs
  103.                                             <tr>
  104.                                             !if $wims_user=supervisor
  105.                                                 !set deelantwoord=!item $p of $(answer$n)
  106.                                                 <th>&nbsp;&nbsp;$m_rightarrow&nbsp;&nbsp;</th><th><input type="text" id="myinput$[$p-1]" style=$textareastyle size="$cols" name="reply" value = "$deelantwoord"></th>
  107.                                             !else
  108.                                                 !set deelantwoord=!item $p of $(reply$n)
  109.                                                 <th>&nbsp;&nbsp;$m_rightarrow&nbsp;&nbsp;</th><th><input type="text" id="myinput$[$p-1]" style=$textareastyle size="$cols" name="reply" value = "$deelantwoord"></th>
  110.                                             !endif
  111.                                             </th>
  112.                                         !next p
  113.                                         </table>
  114.                                     !endif
  115.                                 </form>
  116.                             </th>
  117.                             </tr>
  118.                         </table>
  119.                     !endif
  120.                 !else
  121.                     <center>
  122.                         !insmath $(formula$n)
  123.                     </center>
  124.                     <br>
  125.                 !endif
  126.             !endif
  127.             !if $exotext != $empty
  128.                 <br>
  129.                 $exotext
  130.             !endif
  131.         </td>
  132.     !if $image=1
  133.         !if $XSIZE > 450 or $mathview=3
  134.             !! arbitrary value to produce a better layout ...
  135.         </tr><tr>
  136.         !endif
  137.         <td  valign="top" align="center">
  138.             !if $draw=1
  139.             !! for fly
  140.                 !set insdraw_size=$XSIZE,$YSIZE
  141.                 !insdraw $(image$n)
  142.             !endif
  143.             !if $plot=1
  144.                 !! for GNUplot
  145.                 !set insplot_set=$(image_settings$n)
  146.                 !insplot $(image$n)
  147.             !endif
  148.         </td>
  149.     !endif
  150.     !if $applet=1
  151.         !if $XSIZE > 450 or $mathview=3
  152.             !! arbitrary value to produce a better layout ...
  153.         </tr><tr>
  154.         !endif
  155.         <td  valign="top" align="center">
  156.             $(object$n)
  157.         </td>
  158.     !endif
  159. !if $embed != 1 or $[$embed+$mathview]=4
  160.     !if $XSIZE > 450 or $mathview=3
  161.         </tr><tr>
  162.     !endif
  163.         <td valign="top" align="center">
  164.             !if $mathview=3
  165.                 <table summary="" $paperbg width="580">
  166.                     <tr>
  167.                     <th>
  168.                         <applet id="MathView" code="MathView.class" codebase="$appletdir" archive="MathView.jar" width="580" height="280">
  169.                             <script language="javascript" type="text/javascript">
  170.                                 var thisbackground=document.bgColor;
  171.                                 if(thisbackground){var obj="\<param name=bgcolor value="+thisbackground+"\>"}else{var obj="\<param name=bgcolor value=#ffffff\>"}
  172.                                 document.write(obj.toString());
  173.                             </script>
  174.                             <param name="largefont" value="$largefont">
  175.                         !if $wims_user=supervisor
  176.                             <param name="oldreply" value="
  177.                             !nospace $(answer$n)
  178.                             ">
  179.                         !else
  180.                             <param name="oldreply" value="
  181.                             !nospace $(reply$n)
  182.                             ">
  183.                         !endif
  184.                             <param name="smallfont" value="$smallfont">
  185.                             <param name="helptext" value="$applettext">
  186.                             <param name="wimsvars" value="$varlist">
  187.                             <param name="special_fraction" value="$special_fraction">
  188.                             !! declare varlist=x,y,z,s    or varlist=x y z s
  189.                         !if $mathviewpanel=$empty
  190.                             <param name="my_panel" value="$module_title:and:or:sqrt():+:-:*:/">
  191.                         !else
  192.                             <param name="my_panel" value="$mathviewpanel">
  193.                         !endif
  194.                         $nojava
  195.                         </applet>
  196.                     </th>
  197.                     </tr>
  198.                 </table>
  199.             !else
  200.                 !if $inputs=1
  201.                     <form name="mydefaultform" id="mydefaultform" action="">
  202.                         <table summary="" cellpadding="1">
  203.                             <tr>
  204.                         !if $inputtext1!=$empty
  205.                             <td>
  206.                                 $inputtext1:
  207.                             </td>
  208.                         !endif
  209.                             <td>
  210.                         !if $wims_user=supervisor
  211.                             <textarea  id="myinput0" style=$textareastyle cols="$cols" rows="$rows" name="reply">$(answer$n)</textarea>
  212.                         !else
  213.                             <textarea  id="myinput0" style=$textareastyle cols="$cols" rows="$rows" name="reply">$(reply$n)</textarea>
  214.                         !endif
  215.                             </td>
  216.                             </tr>
  217.                         </table>
  218.                     </form>
  219.                 !else
  220.                     !if $inputs>1
  221.                     <form name="mydefaultform" id="mydefaultform" action="">
  222.                         <table summary="" cellpadding="1">
  223.                         !for p=1 to $inputs
  224.                             <tr>
  225.                             <td>
  226.                                 $(inputtext$p)
  227.                             </td>
  228.                             <td>
  229.                                 $m_rightarrow
  230.                             </td>
  231.                             <td>
  232.                             !if $wims_user=supervisor
  233.                                 !set deelantwoord=!item $p of $(answer$n)
  234.                             !else
  235.                                 !set deelantwoord=!item $p of $(reply$n)
  236.                             !endif
  237.                                 <input id="myinput$[$p-1]" style=$inputstyle  size="$cols" name="reply" value="$deelantwoord">
  238.                             </td>
  239.                             </tr>
  240.                         !next p
  241.                         </table>
  242.                     </form>
  243.                     !endif
  244.                 !endif
  245.             !endif
  246.         </td>
  247. !endif
  248.         </tr>
  249.     </table>
  250.     <table summary="">
  251.         <tr>
  252.     !if $inputs !=0
  253.         <th>
  254.             <input type=button style="$mybuttonstyle" onclick="sendanswer();" value="$send">
  255.         </th>
  256.     !endif
  257.         <th>
  258.             <input type=button style="$mybuttonstyle" onclick="dontknow();" name="but2" value="$dontknow">
  259.         </th>
  260.         </tr>
  261.     </table>
  262. </div>
  263. !exit
  264.