Subversion Repositories wimsdev

Rev

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

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