%%HP: T(1)A(G)F(,);

"Ley curvatu:A=L*R 
=L/2R  =l/2RL (rad)
Ang.cuerda:TAN=Xf/Yf
Xo = Xf-R SIN 
R = R COS +Yf-R
Tc = Yf/SIN 
Tl = Xf-Tc COS "
CLLCD 3, FREEZE 1,
DISP -1, WAIT DROP
"X=l-[l^5/10(2RL)^2]
  +[l^9/216(2RL)^4]
  -[l^13/9360(2RL)^6]
 Y= [l^3/3(2RL)]
  -[l^7/42(2RL)^3]
  +[l^11/1320(2RL)^5]
  -[l^15/75600(2RL)^7]
"
CLLCD 3, FREEZE 1,
DISP -1, WAIT DROP
" ** ASIMETRICA **
 Tt1=X0+(R+R)/TAN(V)
      +(R+R')/SIN(V)
 Tt2=X0'+(R+R)/SIN(V)
       +(R+R')/TAN(V)

 "
CLLCD 3, FREEZE 1,
DISP -1, WAIT DROP
