Menores principales

A que te refieres, ¿a minimos y máximos?

Creo que es como el polinomio minimo, el comando PMINI

No se si existe algo en la calculadora o algún programa hecho, pero se puede programar, me extraña araña VereV si vos sabés hacer estas cosas y mucho más

Asumo que esto es válido únicamente para matrices cuadradas cierto?

Hice un programa que supongo que es muy malo en cuanto a eficiencia, porque trabaja eliminando filas y columnas una a una y debe ser harto lento para matrices grandes.
Debe haber maneras mucho más eficientes de hacerlo eliminando de un saque la parte de la matriz que no te interesa.

Datos necesarios en el stack antes de ejecutar el programa: en el nivel 2 la matriz en cuestión, mientras que en el nivel 1 el número que representa el menor principal que voy a calcular. Luego ejecuto el siguiente programa (este código sirve para copiar y pegar en HPUserEdit):

«
SWAP DUP SIZE EVAL DROP  N M S 
«
M N 1 + S FOR i DUP SIZE EVAL DROP ROW- DROP NEXT N 1 + S FOR i DUP SIZE EVAL SWAP DROP COL- DROP NEXT DET

»

»

El símbolo que no se ve es un ->

El código ASCII del programa es el siguiente:

\<< SWAP DUP SIZE EVAL
DROP \-> N M S
  \<< M N 1 + S
    FOR i DUP SIZE
EVAL DROP ROW- DROP
    NEXT N 1 + S
    FOR i DUP SIZE
EVAL SWAP DROP COL-
DROP
    NEXT DET
  \>>
\>>

Aparentemente funciona.

Te sirve? Saludos.

PD: Tiene una falla cuando la matriz es de SxS y se pide calcular el menor principal N=S, pero ese caso es trivial ya que se trata del determinante de la matriz sin extraer ninguna columna o fila.
Acá abajo está arreglado este problema, además te avisa si ingresaste un número de principal menor demasiado grande:

«
SWAP DUP SIZE EVAL DROP  N M S 
«

IF N S > THEN "N debe ser menor o igual al número de filas o columnas de la matriz!" MSGBOX M

ELSE

IF N S ==

THEN M DET

ELSE M N 1 + S FOR i DUP SIZE EVAL DROP ROW- DROP NEXT N 1 + S FOR i DUP SIZE EVAL SWAP DROP COL- DROP NEXT DET

END

END
»

»

En ASCII:

\<< SWAP DUP SIZE EVAL
DROP \-> N M S
  \<<
    IF N S >
    THEN
"N debe ser menor o igual al n\250mero de filas o columnas de la matriz!"
MSGBOX M
    ELSE
      IF N S ==
      THEN M DET
      ELSE M N 1 + S
        FOR i DUP
SIZE EVAL DROP ROW-
DROP
        NEXT N 1 + S
        FOR i DUP
SIZE EVAL SWAP DROP
COL- DROP
        NEXT DET
      END
    END
  \>>
\>>

De nada

Acá hice unos cambios como para que use menos "" y saque las {}:

«
"Menores principales"
{{ "A:" "Matriz" 3 }}
{ 1 0 }
{ }
{ 0 }
INFORM
DROP
1
GET
DUP 'A' STO
SIZE EVAL
'COL' STO
'FILAS' STO
IF FILAS COL == THEN
A DET "DET A" TAG
2 COL 1 - FOR i
"MENOR " COL i - 1 + "="
A COL i - 2 + ROW- DROP COL i - 2 + COL- DROP DUP DET
SWAP 'A' STO
STR + SWAP Q‡ STR SWAP + +

NEXT

ELSE "Solo sirve para matrices cuadradas!" MSGBOX
END

{ 'A' 'FILAS' 'COL' } PURGE

»

En la siguiente versión quedó mejor, los resultados quedan así:

DET A:323434
Menor 4:234
Menor 3:(-213) (cuando hay un número negativo ->TAG le pone paréntesis)
Menor 2:234

«
"Menores principales"
{{ "A:" "Matriz" 3 }}
{ 1 0 }
{ }
{ 0 }
INFORM
DROP
1
GET
DUP 'A' STO
SIZE EVAL
'COL' STO
'FILAS' STO
IF FILAS COL == THEN
A DET "DET A" TAG
2 COL 1 - FOR i
"MENOR " COL i - 1 + Q‡
A COL i - 2 + ROW- DROP COL i - 2 + COL- DROP DUP DET
SWAP 'A' STO
STR SWAP STR ROT SWAP + SWAP STR SWAP TAG

NEXT

ELSE "Solo sirve para matrices cuadradas!" MSGBOX
END

{ 'A' 'FILAS' 'COL' } PURGE

»

Sobre tu pregunta acerca del modo ALG ni idea...no lo uso.

Hola he tratado de usar vuestro programa pero no me funcionaba correctamente, asi q me hice el mio propio.

Les dejo el código, hecho en HPUserEdit.

«
"Menores principales"
{{ "A:" "Matriz" 3 }}
{ 1 0 } { } { 0 } INFORM DROP OBJ DROP 'D' STO
D SIZE OBJ DROP
'COLUMNAS' STO
'FILAS' STO 
IF COLUMNAS FILAS ==
THEN
FILAS 'x' STO
DO
D DET "A" TAG
D x COL- DROP 'D' STO
D x ROW- DROP 'D' STO
x 1 - 'x' STO
UNTIL x 1 ==
END
D OBJ DROP 'D' STO
D "A" TAG
ELSE
"Solo matrices cuadradas!" MSGBOX
END
{D COLUMNAS FILAS x} PURGE
»