[BACK]Return to functionplotresponse.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/functionplotresponse.pm between versions 1.14 and 1.16

version 1.14, 2010/10/17 22:32:19 version 1.16, 2010/10/28 00:27:56
Line 101  ENDDEFAULTPARAMETERS Line 101  ENDDEFAULTPARAMETERS
 #  #
   
 sub init_script {  sub init_script {
    if ($Apache::functionplotresponse::callscripts) {     if ($#Apache::functionplotresponse::callscripts>=0) {
         my $script='';
         foreach my $id (@Apache::functionplotresponse::callscripts) {
             $script.="if (param=='applet_$id') { loaded_$id=true; }\n";
         }
         $script.="if (".join(' && ',map { "loaded_$_" } (@Apache::functionplotresponse::callscripts)).
                  ") { setTimeout('ggbInitAll()',20) }\n";
         my $calls=join("\n",map { "ggbInit_$_();" } (@Apache::functionplotresponse::callscripts)); 
       return (<<ENDGGBINIT);        return (<<ENDGGBINIT);
 <script type="text/javascript">  <script type="text/javascript">
 // <![CDATA[  // <![CDATA[
   // Function that each applet will call when loaded
   // It will pass "its" parameter
   // Set flags for when an applet is loaded, wait till all are loaded, and then some
 function ggbOnInit(param) {  function ggbOnInit(param) {
 $Apache::functionplotresponse::callscripts  $script
   }
   function ggbInitAll() {
   $calls;
 }  }
 // ]]>  // ]]>
 </script>  </script>
Line 194  sub new_coordinate { Line 207  sub new_coordinate {
 #  #
 sub start_init_script {  sub start_init_script {
     my ($id)=@_;      my ($id)=@_;
 # Add a line to ggbOnInit-function which calls the right function based on parameter passed from GeoGebra  # Add id to the list of ggbInit_$id functions that need to be called
     $Apache::functionplotresponse::callscripts.="if (param=='applet_$id') { ggbInit_$id(); }\n";      push(@Apache::functionplotresponse::callscripts,$id);
 # ... and open this function  # ... and open this function
     return (<<ENDSTARTINIT);      return (<<ENDSTARTINIT);
 <script type="text/javascript">  <script type="text/javascript">
 // <![CDATA[  // <![CDATA[
 // variable that will eventually be passed back to the server  // variable that will eventually be passed back to the server
 var coordinateMap_$id = [];  var coordinateMap_$id = [];
   // flag for not loaded yet
   var loaded_$id=false;
 // Init-function for applet  // Init-function for applet
 function ggbInit_$id() {  function ggbInit_$id() {
 ENDSTARTINIT  ENDSTARTINIT
Line 453  sub get_answer_from_form_fields { Line 468  sub get_answer_from_form_fields {
    return ($answer,%coords);     return ($answer,%coords);
 }  }
   
   #
   # The following functions calculate the cubic-hermite splines server-side
   #
   
   sub cubic_hermite {
      my ($t,$p1,$s1,$p2,$s2)=@_;
      return (2.*$t*$t*$t-3.*$t*$t+1.)*$p1 + 5.*($t*$t*$t-2.*$t*$t+$t)*($s1-$p1)+
             (-2.*$t*$t*$t+3.*$t*$t)  *$p2 + 5.*($t*$t*$t-$t*$t)      *($s2-$p2);
   }
   
   #
   # d/dt(...)
   # 
   
   sub ddt_cubic_hermite {
      my ($t,$p1,$s1,$p2,$s2)=@_;
      return (6.*$t*$t-6.*$t) *$p1 + 5.*(3.*$t*$t-4.*$t+1.)*($s1-$p1)+
             (-6.*$t*$t+6.*$t)*$p2 + 5.*(3.*$t*$t-2.*$t)   *($s2-$p2);
   }
   
   #
   # d^2/dt^2(...)
   #
   
   sub d2dt2_cubic_hermite {
      my ($t,$p1,$s1,$p2,$s2)=@_;
      return (12.*$t-6.) *$p1 + 5.*(6.*$t-4.)*($s1-$p1)+
             (-12.*$t+6.)*$p2 + 5.*(6.*$t-2.)*($s2-$p2);
   }
   
   #
   # Implentation of <functionplotresponse>
   #
   
 sub start_functionplotresponse {  sub start_functionplotresponse {
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;    my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
   my $result='';    my $result='';
Removed from v.1.14  
changed lines
  Added in v.1.16

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>