%%HP: T(1)A(G)F(.);
 RAD
" elongabilidad
 equivalente de
 barra circular"
MSGBOX 'r/E*(+.5*
SIN(2*))+r^3/EI*(
*(2+COS(2*))-1.5*
SIN(2*))' EQ STO
30 MENU HALT DTAG
"(L/E)eq.circ"
TAG { E EI r  EQ
} PURGE 0 MENU

