%%HP: T(1)A(G)F(,);
 GRAD "PARAMETRO" {
":A:" } INPUT OBJ
'A' STO "RADIO" {
":R:" } INPUT OBJ
'R' STO "SECUENCIA" {
":l:" } INPUT OBJ
'l' STO "ANGULO V" {
":V:" } INPUT OBJ
'V' STO 200, V - ''
STO A 2, ^ R / 'L'
STO L 2, R * / 200, *
 / NUM 'TAO' STO 'L
-L^5,/(10,*(2,*R*L)^
2,)+L^9,/(216,*(2,*R*
L)^4,)-L^13,/(9360,*(
2,*R*L)^6,)' NUM
'XF' STO 'L^3,/(3,*(
2,*R*L))-L^7,/(42,*(
2,*R*L)^3,)+L^11,/(
1320,*(2,*R*L)^5,)-L^
15,/(75600,*(2,*R*L)^
7,)' NUM 'YF' STO YF
XF / ATAN 'F' STO XF
2, ^ YF 2, ^ + 
'CUERDA' STO XF R TAO
SIN * - 'XO' STO 'YF+
(COS(TAO)-1,)*R' NUM
'RET' STO YF TAO SIN
/ 'Tc' STO R RET + V
2, / TAN / XO + 'TT'
STO XO 'XO' TAG L
'DESARROLLO' TAG F
'F' TAG CUERDA
'CUERDA' TAG TT 'TT'
TAG  '' TAG TAO
'TAO' TAG RET 'RET'
TAG TC 'TC' TAG XF
'XF' TAG YF 'YF'
TAG { RET XO YF XF
F CUERDA TAO L TT Tc
 V l R A } PURGE
