Ce programme vous permet de résoudre des équations linéaires (que l'on résoud souvent avec la méthode de Gauss) à n inconnues du type:
A(i1) + B(i2) + ... + Z(in) = S

  >> POURQUOI ? <<
    C bien joli tout ça mais la calculatrice possède déjà un programme de ce genre, me direz-vous. Oui, rétorquerais-je, mais il est limité à 6 inconnues. Celui-ci n'est limité que par la mémoire de la calculatrice. Je suis monté à 8 inconnues pour les tests, je ne garantis cependant rien au-delà. En théorie, on peut aller jusqu'a environ 27 inconnues...

  >> ATTENTION <<
   Ce programme utilisant les matrices, veuillez vérifier qu'il reste au moins: N²*30 octets de libre, où N est le nombre d'inconnues.
  Exemple: N=2, place exigée: 2²*30 <=> 4*30 = 120 octets
  N=8, 8²*30 <=> 64*30 = 1920 octets

  Avouez que cela reste raisonnable.

  >> UTILISATION <<
    Rentrez tout d'abord le nombre d'inconnues. Le programme demande ensuite la première inconnue de la première équation.
    Ecran:

        

  Le programme, après la dernière inconnue demande la solution. Entrez la.
  Continuez à rentrer vos équations, dans l'exemple, on rentre le système:
      { -x + 2y = 3
      { -4x + 5y = 6

   Entre chaque équation, le programme affiche: EQUA SUIVANTE
   A la fin, E-Solver affichera les solutions en écrivant à chaque fois: SOL INCONNUE SUIV=, puis la solution.


    Les écrans présentés sont copiés directement depuis une fx-8930 GT.

Signes:
  - <> pour diférent de
  - -> mise en mémoire
  - => implication (Then)
  - Mat A(-1) est à taper comme suit: "optn, F2, F1, A, shift, )"

// E-SOLVER// E-SOLVER
// Taille: 359 octets
// Date: 30/05/98
// Auteur: Gfx, alias Romain GUY

ClrText:0->A~Z
" **EQUATION SOLVER**"
" (C)1998 GFX"
" "
"NB INCONNUES: "?->A
Identity A->Mat A
Identity A->Mat B
Fill (0,Mat A
Fill (0,Mat B
ClrText
"AX + BY + CZ... = S"
" "
For 1->B To A
For 1->C To A+1
C<>A+1=>"INCONNUE SUIV= "?->D
C=A+1=>"SOLUTION= "?->D
C<>A+1=>D->Mat A[B,C]
C=A+1=>D->Mat B[B,A]
Next
"EQUA SUIVANTE"
Next
Mat A(-1)*Mat B->Mat C
For 1->B To A
"SOL INCONNUE SUIV="
Mat C[B,A]
Next
ClrText

<< Sommaire >>