//
// Autor: Timo Ehmke (ehmke@geometria.de)
//
 
// Systemvariablen 
// ===============

WORLD_X_MAX   = +4.0
WORLD_X_MIN   = -4.0
WORLD_Y_MAX   = +3.0
WORLD_Y_MIN   = -3.0

// Figurenbeschreibung 
// ===================

e[1]  = O;     point;   fixed;          0.0,0.0;           "hidden"
e[2]  = coord; point;   coordSystem;    O,300,300,200,200; 0;red;black;0
e[3]  = a;     measure; controller;     3.0,0.05,-3.0,3.0,200,"a = ","";
e[4]  = b;     measure; controller;     2.0,0.05,-3.0,3.0,200,"b = ","";
e[5]  = k1;    line;    curve;          "calculate(a)*cos(t)","calculate(b)*sin(t)", 0.0, 6.30, 30;
e[6]  = T;     point;   curveslider;    -3.0,0.0,k1;
e[7]  = t;     measure; property;       T,"t";
e[8]  = M;     point;   functionDepend; "((calculate(a)^2-calculate(b)^2)/calculate(a))*cos(calculate(t))^3","(-(calculate(a)^2-calculate(b)^2)/calculate(b))*sin(calculate(t))^3"; black;gray;black;smallcircle
e[9]  = k2;    circle;  radius;         M,M,T;             0;0;black;0
e[10] = n;     line;    straightline;   M,T;               0;0;gray;0
e[11] = ta;    line;    perpendicular;  T,n;               0;0;gray;0
e[12] = k3;    line;    curve;          "((calculate(a)^2-calculate(b)^2)/calculate(a))*cos(t)^3","(-(calculate(a)^2-calculate(b)^2)/calculate(b))*sin(t)^3", 0.0, 6.30, 30;  0;0;gray;0