%%HP: T(1)A(D)F(.);

"Coacciones externas"
"" INPUT OBJ 'CE'
STO "N de barras" ""
INPUT OBJ 'NB' STO
"N de articulaciones"
"" INPUT OBJ 'NA'
STO
  IF NA 0 ==
  THEN 0 'GHI' STO
  ELSE 0 'CI' STO { }
1 NA
    FOR i
      IF i 1 ==
      THEN
"N barras que
confluyen en una
articulacion"
"" INPUT OBJ 'BCN'
STO
      ELSE
"N de barras en 
la siguiente
articulacion"
"" INPUT OBJ 'BCN'
STO
      END BCN 1 - 2 *
'CI' STO+ i +
    NEXT
    IF NA 0 >
    THEN NB 1 - 3 *
'GLI' STO CI GLI -
'GHI' STO DROP
    END
  END CE 3 - 'GHE'
STO GHI GHE + "H"
TAG { CE NB NA GHI
BCN CI GLI GHE }
PURGE
