Exemple de sortie écran :
 Copy/Past into the octave window.
 A=[
-4532,-7887,+3757,-9980,-1633;
-5915,+8415,+3925,+2667,-3612;
+8971,+6896,+9892,+1557,-7736;
+976,+4251,-3176,+7797,+7083;
+1996,+8007,-7833,-5417,-6939]
 inv(A)
 +1.2847e-05 -7.7703e-05 +5.7116e-05 +4.6001e-05 
 +1.0627e-04 +3.7942e-05 +4.6980e-05 +1.5877e-04 
 +8.3529e-05 +2.4906e-05 +5.7843e-05 +6.6634e-05 
 -1.8780e-04 +1.8080e-05 -4.8339e-05 -1.6178e-04 
 +1.7864e-04 -2.0799e-05 +4.3082e-05 +2.4752e-04 
 +2.0704e-05 
 +6.4934e-05 
 -2.9092e-05 
 -7.6465e-05 
 +2.9303e-05 
 Press return to continue. 
 inv(A)*A
+1.0000 -0.0000 -0.0000 -0.0000 +0.0000 
+0.0000 +1.0000 -0.0000 +0.0000 -0.0000 
+0.0000 +0.0000 +1.0000 +0.0000 +0.0000 
-0.0000 -0.0000 +0.0000 +1.0000 +0.0000 
+0.0000 +0.0000 -0.0000 +0.0000 +1.0000 
 A*inv(A)
+1.0000 -0.0000 -0.0000 -0.0000 +0.0000 
+0.0000 +1.0000 -0.0000 +0.0000 -0.0000 
+0.0000 +0.0000 +1.0000 +0.0000 +0.0000 
-0.0000 -0.0000 +0.0000 +1.0000 +0.0000 
+0.0000 +0.0000 -0.0000 +0.0000 +1.0000 
 Press return to continue
 Press X to stop

Mathc matrices/c082a
Application
Installer et compiler ces fichiers dans votre répertoire de travail.
/* Save as : minor_r.c */
void fun(int r)
double **A = r_mR(i_mR(r,r),999.);
double **Minor = i_mR(r-C1,r-C1);
int minor_r = rp_I(r);
int minor_c = rp_I(r);
 clrscrn();
 printf(" A :");
 p_mR(A,S5,P0,C6);
 printf(" Minor(R%d,C%d) %.4e \n\n\n",
 minor_r,
 minor_c,
 minor_R(A,minor_r, minor_c));
 printf(" Copy/Past into the octave window.\n\n");
 p_Octave_mR(minor_mR(A, Minor, minor_r, minor_c),"Minor",P0);
 printf(" det(Minor)\n");
 f_mR(A);
 f_mR(Minor);
/* ------------------------------------ */
int main(void)
time_t t;
 srand(time(&t));
do
 fun(rp_I(RC5)+RC1);
} while(stop_w());
 return 0;
/* ------------------------------------ */
 Vérifier avec octave.

Exemple de sortie écran :
 A :
 -497 +305 -468 +992 +652 
 +818 -881 +332 +959 -974 
 +425 -881 -631 -38 -843 
 +689 +682 -46 -9 -335 
 -347 +962 +336 +673 -861 
 Minor(R1,C3) -1.6563e+12 
 Copy/Past into the octave window.
 Minor=[
+818,-881,+959,-974;
+425,-881,-38,-843;
+689,+682,-9,-335;
-347,+962,+673,-861]
 det(Minor)
 Press return to continue
 Press X to stop

Mathc matrices/c082b
Application
Installer et compiler ces fichiers dans votre répertoire de travail.
/* Save as : minorm_r.c */
void fun(int r)
double **A = r_mR(i_mR(r,r),99);
double **Minor = i_mR(r-C1,r-C1);
int minor_r = rp_I(r);
int minor_c = rp_I(r);
 clrscrn();
 printf(" A :");
 p_mR(A,S4,P0,C6);
 printf(" Minor(R%d,C%d) :\n",minor_r, minor_c);
 p_mR(minor_mR(A,Minor,minor_r,minor_c),S4,P0,C6);
 f_mR(A);
 f_mR(Minor);
/* ------------------------------------ */
int main(void)
time_t t;
 srand(time(&t));
do
 fun(rp_I(RC5)+RC1);
} while(stop_w());
 return 0;
/* ------------------------------------ */
 On construit une des matrices pour calculer les mineurs.

Exemple de sortie écran :
 Copy/Past into the octave window.
 A :
 -25 +16 +12 -61 
 -23 +10 -87 -95 
 +4 +84 -87 -65 
 -63 -59 -67 +82 
 Minor(R1,C1) :
 +10 -87 -95 
 +84 -87 -65 
 -59 -67 +82 
 Press return to continue
 Press X to stop

Mathc matrices/c082c
Application
Installer et compiler ces fichiers dans votre répertoire de travail.
/* Save as : cof_r.c */
void fun(int r)
double **A = r_mR(i_mR(r,r),99.);
int minor_r = rp_I(r);
int minor_c = rp_I(r);
 clrscrn();
 printf(" A :");
 p_mR(A,S5,P0,C6);
 printf(" minor(R%d,C%d) = %+.3f\n"
 " cofactor(R%d,C%d) = %+.3f\n\n\n",
 minor_r,
 minor_c,
 minor_R(A, minor_r, minor_c),
 minor_r,
 minor_c,
 cofactor_R(A, minor_r, minor_c));
 printf(" cofactor(R%d,C%d) = minor(R%d,C%d)*(-1**(R%d+C%d))\n"
 " = minor(R%d,C%d)*(%0.0f)\n",
 minor_r,
 minor_c, 
 minor_r,
 minor_c,
 minor_r,
 minor_c,
 minor_r,
 minor_c,
 pow(-1,(minor_r+minor_c)));
 f_mR(A);
/* ------------------------------------ */
int main(void)
time_t t;
 srand(time(&t));
do
 fun(rp_I(RC5)+C1);
 } while(stop_w());
 return 0;
/* ------------------------------------ */
 On calcul un cofacteur.

Exemple de sortie écran :
 A :
 -4 -22 +11 -38 
 +89 -35 +37 +91 
 +6 +24 +37 -26 
 -68 -15 -95 +77 
 minor(R1,C4) = -28361.000
 cofactor(R1,C4) = +28361.000
 cofactor(1,4) = minor(R1,C4)*(-1**(R1+C4))
 = minor(R1,C4)*(-1)
 Press return to continue
 Press X to stop 
 A :
 -42 +26 -42 
 +81 -18 -90 
 +80 +31 -61 
 minor(R3,C1) = -3096.000
 cofactor(R3,C1) = -3096.000
 cofactor(R3,C1) = minor(R3,C1)*(-1**(R3+C1))
 = minor(R3,C1)*(1)
 Press return to continue
 Press X to stop

Mathc matrices/c082d
Application
Installer et compiler ces fichiers dans votre répertoire de travail.
/* Save as : cofm_r.c */
void fun(int r)
double **A = r_mR(i_mR(r,r),9.);
double **Cofactor = i_mR(r,r);
 clrscrn();
 printf(" A :\n");
 p_mR(A,S5,P0,C6);
 printf(" Cofactor :\n");
 p_mR(cofactor_mR(A,Cofactor),S8,P0,C6);
 f_mR(A);
 f_mR(Cofactor);
/* ------------------------------------ */
int main(void)
time_t t;
 srand(time(&t));
do
 fun(rp_I(RC5)+RC1);
} while(stop_w());
 return 0;
/* ------------------------------------ */
On construit la matrice des cofacteurs.

Exemple de sortie écran :
 A :
 +8 -9 +6 -3 
 +2 +2 -3 +8 
 +6 -5 +8 +4 
 +8 -7 -3 +6 
 Cofactor :
 +682 +524 -28 -312 
 +741 +702 -26 -182 
 -381 -306 +166 +234 
 -393 -470 -90 +182 
 Press return to continue
 Press X to stop

Mathc matrices/c082e
Application
Installer et compiler ces fichiers dans votre répertoire de travail.
/* Save as : adjoin_r.c */
void fun(int r)
double **A = r_mR(i_mR(r,r),9.);
double **Adjoint = i_mR(r,r);
double **Cofactor = i_mR(r,r);
 clrscrn();
 printf(" A :");
 p_mR(A,S3,P0,C6);
 printf(" Cofactor :\n");
 p_mR(cofactor_mR(A,Cofactor),S6,P0,C6);
 printf(" Adjoint : Cofactor**T");
 p_mR(adjoint_mR(A,Adjoint),S6,P0,C6);
 f_mR(A);
 f_mR(Cofactor);
 f_mR(Adjoint);
/* ------------------------------------ */
int main(void)
time_t t;
 srand(time(&t));
do
 fun(rp_I(RC4)+C1);
} while(stop_w());
 return 0;
/* ------------------------------------ */
 On construit l'adjointe qui est la transposé de la matrice des cofacteurs.

Exemple de sortie écran :
 A :
 -4 -5 +8 +6 
 -8 +1 +6 +8 
 +3 +4 -3 +7 
 +3 +4 +6 -4 
 Cofactor :
 +522 -654 +385 +315 
 -718 +546 -11 -9 
 +540 +172 -26 +538 
 +292 +412 +510 -142 
 Adjoint : Cofactor**T
 +522 -718 +540 +292 
 -654 +546 +172 +412 
 +385 -11 -26 +510 
 +315 -9 +538 -142 
 Press return to continue
 Press X to stop

Mathc matrices/c083a
Application
Installer et compiler ces fichiers dans votre répertoire de travail.
/* Save as : c01a.c */
void fun(int r)
double **A = i_mR(r,r);
double **Inv = i_mR(r,r);
double **B = r_mR(i_mR(r,C1),999.);
double **X = i_mR(r,C1);
double **T = i_mR(r,C1);
 do
 r_mR(A,999.);
 printf(".");
 }while(!det_R(A));
 clrscrn();
 printf(" We want to find X such as, \n\n");
 printf(" AX = B \n\n");
 printf(" If A is a square matrix and, \n\n");
 printf(" If A has an inverse matrix, \n\n");
 printf(" you can find X by this method\n\n");
 printf(" X = inv(A) B \n\n\n");
 printf(" To verify the result you can \n\n");
 printf(" multiply the matrix A by X. \n\n");
 printf(" You must refind B. \n\n");
 getchar();
 clrscrn();
 printf(" A :\n");
 p_mR(A,S5,P0,C7);
 printf(" B :\n");
 p_mR(B,S5,P0,C7);
 getchar();
 clrscrn();
 printf(" inv(A) :\n");
 pE_mR(inv_mR(A,Inv),S1,P3,C7);
 printf(" X = inv(A) * B :\n");
 p_mR(mul_mR(Inv,B,X),S13,P4,C7);
 getchar();
 clrscrn();
 printf(" B :\n");
 p_mR(B,S5,P0,C7);
 printf(" AX :\n");
 p_mR(mul_mR(A,X,T),S5,P0,C7);
 f_mR(T);
 f_mR(X);
 f_mR(B);
 f_mR(Inv);
 f_mR(A);
/* ------------------------------------ */
int main(void)
time_t t;
 srand(time(&t));
do
 fun(rp_I(RC6)+RC1);
} while(stop_w());
 return 0;
/* ------------------------------------ */
 Nous résolvons un système d'équations, et nous vérifions les calculs.