CASIO FX-7400G PLUS: Programa MT SMXN

El siguiente programa permite solucionar sistemas de ecuaciones algebraicas de primer orden teóricamente para n variables, para ello se vale de la matriz aumentada del sistema y a la cual se le aplica la eliminación de Gauss Jordan. El programa ya ha sido probado debidamente, pero es de aclarar que el autor no se hace responsable por ningún daño o consecuencia que se derive del uso del programa. También es importante tener idea de cómo funciona el programa, para así no tener ningún inconveniente.

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.