%%HP: T(1)A(G)F(.);
 { { "EE"
   f11 f121 DUP
f22 { 2 2 } ARRY
DET INV f22 f11 2
LIST * { R1 R2 }
STO f121 f22 f11 2
LIST / { 12 21 }
STO
"Barra EE:
  R1= "
R1 + "
  R2= " + R2
+ "
 12= " + 12 +
"
 21= " + 21 +
CLLCD 2 DISP 7
FREEZE
   } { "EA"
   f11 f22 2 LIST
INV { R1EA R2EA }
STO
"Barra EA:
si nudo empotrado es:

1R1EA="
R1EA + "
2R2EA=" +
R2EA +
"

sin transmision"
+ CLLCD 1 DISP 7
FREEZE
   } "" "" { "SIM"
   f11 f121 + INV
'Rs' STO
"Barra simtrica:

   Rs= "
Rs +
"

sin transmisin"
+ CLLCD 2 DISP 7
FREEZE
   } { "ANTIM"
   f11 f121 - INV
'Rant' STO
"Barra antimtrica:

  Rant= "
Rant +
"

sin transmisin"
+ CLLCD 2 DISP 7
FREEZE
   } "" "" "" ""
"" PREVIO } TMENU
"rigideces y coefici_
entes de transmisin"
1 CLLCD DISP 3
FREEZE

