%%HP: T(1)A(G)F(,);
 "INTRODUCIR DATOS"
{ { "MATRIZ A"
"NXT CALC MATRIX" } {
"MATRIZ L"
"NXT CALC MATRIX" } {
"MATRIZ P"
"UNIDAD=MTH MATR MAKE IDN"
} } { 1, 1, } { } {
MA ML MP } INFORM
DROP OBJ DROP 'P'
STO 'L' STO 'A' STO A
TRN P * A * 'N' STO N
INV 'N1' STO A TRN P
* L * 'T' STO 'N1*T'
NUM 'X' STO 'A*X-L'
NUM 'V' STO A OBJ
OBJ DROP - 'R' STO
CLEAR V TRN P * V *
'VPV' STO VPV R /
OBJ DROP '0' STO
"VISUALIZACION DE RESULTADOS"
{
"  PULSE: NXT CALC VAR"
} { 1, 10, } { } { }
INFORM CLEAR { A L P
N N1 T X V VPV R 0 }
PURGE
