Para ingresar la matriz, se hace uso de la lista 1, se ingresa al modo LIST y se ingresan los valores consecutivamente de izquierda a derecha y en orden de filas descendente de la matriz aumentada del sistema, de tal forma que quedará todo en forma de una sola columna, luego se procede a ejecutar el programa desde el modo PRGM, al solicitar VARS se digita el numero de variables del sistema y entonces se debe esperar por algún tiempo dependiendo de la complejidad del cálculo y la respuesta se presentará como una lista. El programa hace uso de la lista 6, por ello si ha datos allí se borrarán y serán cambiados por las respuestas respectivas; también es de aclarar que usa muchas de las 26 variables (A, B, C…), y por ello sus valores almacenados serán borrados.
Un último detalle, el programa usa otro auxiliar llamado “MTAUX” ( si tienes alguna duda del lenguaje revisa Calculadora CASIO fx-7400G PLUS ) que es:
- = MTAUX=
Dim List 1 &F S &EXE
If T=0 &EXE
Then List 1 &EXE
Seq(U,U,1,2S,1) &F List 1 &EXE
For 1 &F U To 2S &EXE
List Ans [(U-1) Rmdr S+1] &F List 1 [U] &EXE
Next &EXE
Else If T=-1 &EXE
Then Seq(List 1 [U+ S/2],U,1,S/2,1) &EXE
List Ans &F List 1 &EXE
Else If T>0 &EXE
Then For 1 &F U To Z &EXE
List Ans[U] &F List 1[Z(T-1 )+U] &EXE
Next &EXE
IfEnd &EXE
Ahora está el programa principal:
- = MT SMXN =
“VARS”? &F Y &EXE
Y+1 &F Z &EXE
Dim List 1 ¡= YxZ => Stop &EXE
0 &F T &EXE
Prog “MTAUX” &EXE
For 1 &F V To Y &EXE
List 1 [(V-1)Z+V] &F X &EXE
X = 0 => Stop &EXE
Seq(List 1[(V-1)Z+U],U,1,Z,1) &EXE
List Ans &D X &F List 6 &EXE
For 1 &F W To Y &EXE
W &F T &EXE
If W = V &EXE
Then List 6 &EXE
Prog “MTAUX” &EXE
Else Seq( List 1 [(w-1)Z+U],U,1,Z,1) &EXE
List Ans – List 1[(W-1)Z + V] x List 6 &EXE
Prog “MTAUX” &EXE
IfEnd &EXE
Next &EXE
Next &EXE
Seq (List 1 [ZU],U,1,Y,1) &F List 6 &EXE
-1 &F T &EXE
Prog “MTAUX” &EXE
List 6 &EXE
Espero lo disfruten y no tengan inconvenientes.
Entradas
