//
   // Datei:    HypGr.script
   // Autoren:  Martti Pesonen  (martti.pesonen@joensuu.fi) 
   //           Timo Ehmke      (ehmke@ipn.uni-kiel.de)
   //
   // y = r cosh at
   // y = s sinh bt
   
   // Figurenbeschreibung 
   // ===================

    e[1]  = O;   point;   fixed;          0.0,0.0;                              "hidden"  
    e[2]  = OX;  point;   fixed;          1.0,0.0;                              "hidden"  
    e[3]  = OY;  point;   fixed;          0.0,1.0;                              "hidden"  
    e[4]  = K;   point;   coordSystem;    O,O,OX,O,OY,200,200,200,200; 
    e[5]  = r;   measure;    JSfunction; "getControllerValue","r"; 
    e[6]  = a;   measure;    JSfunction; "getControllerValue","a"; 
    e[7]  = s;   measure;    JSfunction; "getControllerValue","s"; 
    e[8]  = b;   measure;    JSfunction; "getControllerValue","b"; 
    e[9]  = cosinus; line;  curve; "t","calculate(r)*0.5*(exp(calculate(a)*t)+exp(-calculate(a)*t))",-4.0,4.0,100;  0;0;red;0;
    e[10] = sinus;   line;  curve; "t","calculate(s)*0.5*(exp(calculate(b)*t)-exp(-calculate(b)*t))",-4.0,4.0,100;  0;0;blue;0;
    e[11] = Xaxis; line; straightline; O,OX; "hidden"
    e[12]  = t;  point;   dragable; Xaxis, -1.0,0.0;
    e[13]  = r*cosh(at);  point;   functionDepend; "coordinateX(t)","calculate(r)*0.5*(exp(calculate(a)*coordinateX(t))+exp(-calculate(a)*coordinateX(t)))";red;black;black;
    e[14]  = s*sinh(bt);  point;   functionDepend; "coordinateX(t)","calculate(s)*0.5*(exp(calculate(b)*coordinateX(t))-exp(-calculate(b)*coordinateX(t)))";blue;black;black;
    e[15] = tx; measure;     coordinateX;    t,-3.8,0.3,"t = ","";
    e[16]  = update;  measure;    JSfunction; "updateHypPhase","t";