Exemple de sortie écran :
 Linear systems with common coefficient matrix.
 Ax1=b1 
 Ax2=b2 
 Axn=bn 
 We can write these equalities in this maner. 
 A|x1|x2|...|xn| = b1|b2|...|bn| 
 or simply : 
 AX = B 
 where B = b1|b2|...|bn 
 and X = x1|x2|...|xn 
 Press return to continue. 
 ------------------------------------ 
 We want to find X such as, 
 AX = B 
 If A is a square matrix and, 
 If A has an inverse matrix, 
 you can find X by this method
 X = inv(A) B 
 To verify the result you can 
 multiply the matrix A by X. 
 You must refind B. 
 Press return to continue. 
 ------------------------------------ 
 A :
 +1 +2i +3 +4i +5 +6i 
 +5 +4i +1 +3i +6 +8i 
 +7 +2i +5 +1i +1 +1i 
 b1 b2 ... bn :
 +1 +4i +5 +4i +3 +1i 
 +2 +5i +3 +5i +2 +3i 
 +3 +6i +2 +6i +2 +4i 
 Press return to continue. 
 ------------------------------------ 
 invgj_mZ(A,Inv) :
 -1.2917e-01+8.1007e-02i +8.5597e-02-6.6602e-02i +8.5160e-02-3.3778e-04i 
 +1.8258e-01-8.6352e-02i -1.5122e-01+8.1911e-02i +9.3058e-02-3.8517e-02i 
 +3.7156e-03-6.3244e-02i +7.1142e-02-3.4463e-02i -8.4514e-02+1.6084e-02i 
 X = invgj_mZ(A,Inv) * B :
 x1 x2 ... xn :
 +0.3085+0.3691i -0.2077+0.6268i +0.0742+0.5774i 
 +0.3263+0.4945i +0.8123+0.2695i +0.4261-0.0711i 
 +0.2212-0.2204i +0.3918-0.5240i +0.0867-0.3474i 
 Press return to continue. 
 ------------------------------------ 
 b1 b2 ... bn :
 +1 +4i +5 +4i +3 +1i 
 +2 +5i +3 +5i +2 +3i 
 +3 +6i +2 +6i +2 +4i 
 Ax1 Ax2 ... Axn :
 +1 +4i +5 +4i +3 +1i 
 +2 +5i +3 +5i +2 +3i 
 +3 +6i +2 +6i +2 +4i 
 Press return to continue.

Mathc complexes/a193
Application
Installer et compiler ces fichiers dans votre répertoire de travail.
/* Save as : c00a.c */
int main(void)
double at[RA*(CA*C2)] ={ 1,2, 3,4, 
 1,2, 3,4};
double bt[RA*(Cb*C2)] ={ 1,4, 
 5,4 }; 
double **A = ca_A_mZ(at, i_mZ(RA,CA)); 
double **b = ca_A_mZ(bt, i_mZ(RA,Cb)); 
double **Ab = i_Abr_Ac_bc_mZ(RA,CA,Cb); 
 c_A_b_Ab_mZ(A,b,Ab); 
 clrscrn();
 printf(" A :");
 p_mZ(A, S5,P0, S4,P0, C6);
 printf(" b :");
 p_mZ(b, S5,P0, S4,P0, C6);
 stop();
 clrscrn();
 printf(" Copy/Past into the octave window.\n\n");
 p_Octave_mZ(Ab,"Ab",P0, P0);
 printf(" rref(Ab.00000000001)\n\n");
 printf(" gj4_mZ(Ab) :");
 gj_mZ(Ab);
 p_mZ(Ab, S8,P4, S8,P4, C4);
 f_mZ(Ab);
 f_mZ(b);
 f_mZ(A);
 stop();
 return 0;
/* ------------------------------------ */

Exemple de sortie écran :
 A :
 +1 +2i +3 +4i 
 +1 +2i +3 +4i 
 b :
 +1 +4i 
 +5 +4i 
 Press return to continue. 
 Copy/Past into the octave window.
 Ab=[
+1+2*i,+3+4*i,+1+4*i;
+1+2*i,+3+4*i,+5+4*i]
 rref(Ab.00000000001)
 gj4_mZ(Ab) : This(ese) row(s) are incompatible.
 row 2; 
 This(ese) equation(s) was already defined
 with an other value(s) 
 The system is inconsistent. 
 I prefer to close the program.
 Press return to continue.

Mathc complexes/a194
Application
Installer et compiler ces fichiers dans votre répertoire de travail.
/* Save as : c00a.c */
int main(void)
double at[RA*(CA*C2)] ={ 1,2, 3,4, 
 1,2, 3,4};
double bt[RA*(Cb*C2)] ={ 1,4, 
 1,4 }; 
double **A = ca_A_mZ(at, i_mZ(RA,CA)); 
double **b = ca_A_mZ(bt, i_mZ(RA,Cb)); 
double **Ab = i_Abr_Ac_bc_mZ(RA,CA,Cb); 
 c_A_b_Ab_mZ(A,b,Ab); 
 clrscrn();
 printf(" A :");
 p_mZ(A, S5,P0, S4,P0, C6);
 printf(" b :");
 p_mZ(b, S5,P0, S4,P0, C6);
 stop();
 clrscrn();
 printf(" Copy/Past into the octave window.\n\n");
 p_Octave_mZ(Ab,"Ab",P0, P0);
 printf(" rref(Ab.00000000001)\n\n");
 printf(" gj4_mZ(Ab) :");
 gj_mZ(Ab);
 p_mZ(Ab, S8,P4, S8,P4, C4);
 f_mZ(Ab);
 f_mZ(b);
 f_mZ(A);
 stop();
 return 0;
/* ------------------------------------ */

Exemple de sortie écran :
 A :
 +1 +2i +3 +4i 
 +1 +2i +3 +4i 
 b :
 +1 +4i 
 +1 +4i 
 Press return to continue. 
 ------------------------------------ 
 Copy/Past into the octave window.
 Ab=[
+1+2*i,+3+4*i,+1+4*i;
+1+2*i,+3+4*i,+1+4*i]
 rref(Ab.00000000001)
 gj4_mZ(Ab) : The system has only an equation !!
 +1.0000 +2.0000i +3.0000 +4.0000i +1.0000 +4.0000i 
 +0.0000 +0.0000i +0.0000 +0.0000i +0.0000 +0.0000i 
 Press return to continue.

Mathc complexes/a195
Application
Installer et compiler ces fichiers dans votre répertoire de travail.
/* Save as : c00a.c */
int main(void)
double at[RA*(CA*C2)] ={ 
 -826,+623, +985,-271, +849,-954, -671,-220, 
 -826,+623, +985,-271, +849,-954, -671,-220, 
 -826,+623, +985,-271, +849,-954, -671,-220, 
 +489, -44, -740,+892, -908,-267, -734,+284 };
double bt[RA*(Cb*C2)] ={ 
 +566,+183, 
 +566,+183, 
 +566,+183, 
 +866,-619 }; 
double **A = ca_A_mZ(at, i_mZ(RA,CA)); 
double **b = ca_A_mZ(bt, i_mZ(RA,Cb)); 
double **Ab = i_Abr_Ac_bc_mZ(RA,CA,Cb); 
 c_A_b_Ab_mZ(A,b,Ab); 
 clrscrn();
 printf(" A :");
 P_mZ(A, S5,P0, S4,P0, C6);
 printf(" b :");
 P_mZ(b, S5,P0, S4,P0, C6);
 stop();
 clrscrn();
 printf(" Copy/Past into the octave window.\n\n");
 p_Octave_mZ(Ab,"Ab",P0, P0);
 printf(" rref(Ab.00000000001)\n\n");
 printf(" gj4_mZ(Ab) :");
 gj_mZ(Ab);
 p_mZ(Ab,S9,P4,S9,P4,C4);
 f_mZ(Ab);
 f_mZ(b);
 f_mZ(A);
 stop();
 return 0;
/* ------------------------------------ */

Exemple de sortie écran :
 A :
 -826,+623, +985,-271, +849,-954, -671,-220, 
 -826,+623, +985,-271, +849,-954, -671,-220, 
 -826,+623, +985,-271, +849,-954, -671,-220, 
 +489, -44, -740,+892, -908,-267, -734,+284 
 b :
 +566,+183, 
 +566,+183, 
 +566,+183, 
 +866,-619 
 Press return to continue. 
 ------------------------------------ 
 Copy/Past into the octave window.
 Ab=[
-826+623*i,+985-271*i,+849-954*i,-671-220*i,+566+183*i;
-826+623*i,+985-271*i,+849-954*i,-671-220*i,+566+183*i;
-826+623*i,+985-271*i,+849-954*i,-671-220*i,+566+183*i;
+489-44*i,-740+892*i,-908-267*i,-734+284*i,+866-619*i]
 rref(Ab.00000000001)
 gj4_mZ(Ab) :
 +1.0000 -0.0000i +0.0000 -0.0000i -1.6492 +0.4954i +0.3124 +1.4367i 
 -0.0000 -0.0000i +1.0000 -0.0000i -0.3184 +0.4024i +0.2545 +0.8538i 
 +0.0000 +0.0000i +0.0000 +0.0000i +0.0000 +0.0000i +0.0000 +0.0000i 
 +0.0000 +0.0000i +0.0000 +0.0000i +0.0000 +0.0000i +0.0000 +0.0000i 
 -0.5885 -1.4786i 
 -0.6195 -0.8524i 
 +0.0000 +0.0000i 
 +0.0000 +0.0000i 
 Press return to continue.

Mathc matrices/c184
Application
Installer et compiler ces fichiers dans votre répertoire de travail.
/* Save as : c01a.c */
int main(void)
double a[RA*CA] ={ 4,2,3,
 5,3,1,
 8,2,2};
double b[RA*Cb] ={ 3,
 2,
 1}; 
double **A = ca_A_mR(a,i_mR(RA,CA));
double **B = ca_A_mR(b,i_mR(RA,Cb)); 
double **Inv = i_mR(RA,CA);
double **X = i_mR(RA,Cb);
double **T = i_mR(RA,Cb);
 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);
 return 0;
/* ------------------------------------ */

Exemple de sortie écran :
 We want to find X such as, 
 AX = B 
 If A is a square matrix and, 
 If A has an inverse matrix, 
 you can find X by this method
 X = inv(A) B 
 To verify the result you can 
 multiply the matrix A by X. 
 You must refind B. 
 A :
 +4 +2 +3 
 +5 +3 +1 
 +8 +2 +2 
 B :
 +3 
 +2 
 +1 
 inv(A) :
-1.333e-01 -6.667e-02 +2.333e-01 
+6.667e-02 +5.333e-01 -3.667e-01 
+4.667e-01 -2.667e-01 -6.667e-02 
 X = inv(A) * B :
 -0.3000 
 +0.9000 
 +0.8000 
 --------------------------------------
 B :
 +3 
 +2 
 +1 
 AX :
 +3 
 +2 
 +1 
 Press return to continue.