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

BACKGROUNDCOLOR = 220,255,220

    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]  = h1;  line; curve; "calculate(r)*0.5*(exp(calculate(a)*t)+exp(-calculate(a)*t))","calculate(s)*0.5*(exp(calculate(b)*t)-exp(-calculate(b)*t))",-4.0,4.0,100; 0;0;magenta;0;
    e[10] = tval;  measure;    JSfunction; "gettValue"; 
    e[11] = (r*cosh(at),s*sinh(bt));  point;      functionDepend; "calculate(r)*0.5*(exp(calculate(a)*calculate(tval))+exp(-calculate(a)*calculate(tval)))","calculate(s)*0.5*(exp(calculate(b)*calculate(tval))-exp(-calculate(b)*calculate(tval)))";      black; magenta; black;        
    e[12] = k1;  line; curve; "calculate(r)*0.5*(exp(calculate(b)*t)-exp(-calculate(b)*t))","calculate(s)*0.5*(exp(calculate(a)*t)+exp(-calculate(a)*t))",-4.0,4.0,100;  0;0;yellow;0;  
    
    //e[10] = Ax;  measure;    JSfunction; "getCoshValue"; 
    //e[11] = Ay;  measure;    JSfunction; "getSinhValue"; 
    //e[12] = A;  point;      functionDepend; Ax,Ay;      red; red; black;        
    //e[13]  = h2;  line; curve; "-calculate(r)*0.5*(exp(calculate(a)*t)+exp(-calculate(a)*t))","calculate(s)*0.5*(exp(calculate(b)*t)-exp(-calculate(b)*t))",-4.0,4.0,100;
    e[12]  = k1;  line; curve; "calculate(r)*0.5*(exp(calculate(b)*t)-exp(-calculate(b)*t))","calculate(s)*0.5*(exp(calculate(a)*t)+exp(-calculate(a)*t))",-4.0,4.0,100;
    //e[15] = k2;  line; curve; "calculate(r)*0.5*(exp(calculate(b)*t)-exp(-calculate(b)*t))","-calculate(s)*0.5*(exp(calculate(a)*t)+exp(-calculate(a)*t))",-4.0,4.0,100;