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

"ECUACIONES DE CONDICION"
{ { "MATRIZ B" } {
"MATRIZ D" } {
"MATRIZ P" } } { 1,
1, } { } { MB MD MP }
INFORM DROP OBJ DROP
'P' STO 'D' STO 'B'
STO B P INV * B TRN *
'QE' STO QE INV D *
-1, * 'K' STO P INV B
TRN * K * 'V' STO
"RESULTADOS" {
"PULSE: NXT CALC VAR"
} { 1, 10, } { } { }
INFORM CLEAR { B P D
K QE } PURGE
