Exemple de sortie écran :
 ------------------------------------ 
 A :
 +48 +728i +538 +498i -941 +322i +142 +596i 
 +102 -397i -873 +788i -441 +780i -937 +234i 
 +48 +728i +538 +498i -941 +322i +142 +596i 
 +102 -397i -873 +788i -441 +780i -937 +234i 
 b :
 -927 -603i 
 -445 -975i 
 -331 -701i 
 +192 -273i 
 Press return to continue. 
 Copy/Past into the octave window.
 Ab=[
+48+728*i,+538+498*i,-941+322*i,+142+596*i,-927-603*i;
+102-397*i,-873+788*i,-441+780*i,-937+234*i,-445-975*i;
+48+728*i,+538+498*i,-941+322*i,+142+596*i,-331-701*i;
+102-397*i,-873+788*i,-441+780*i,-937+234*i,+192-273*i]
 rref(Ab.00000000001)
 gj_mZ(Ab) : This(ese) row(s) are incompatible.
 row 3; row 4; 
 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/c101i
Application
Installer et compiler ces fichiers dans votre répertoire de travail.
/* Save as : c00b.c */
void fun(int r)
double **Ab = r_singular_Ab_mZ(i_Abr_Ac_bc_mZ(r,r,C1),999);
double **A = c_Ab_A_mZ(Ab,i_mZ(r,r));
double **b = c_Ab_b_mZ(Ab,i_mZ(r,C1)); 
 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,P2,S8,P2,C6);
 f_mZ(Ab);
 f_mZ(b);
 f_mZ(A);
/* ------------------------------------ */
int main(void)
time_t t;
 srand(time(&t));
do
 fun(R2);
} while(stop_w());
 return 0;
/* ------------------------------------ */
 Système de deux équations identiques.

Exemple de sortie écran :
 A :
 +805 +99i -124+500i 
 +805 +99i -124+500i 
 b :
 -137-617i 
 -137-617i 
 Press return to continue. 
 Copy/Past into the octave window.
 Ab=[
+805+99*i,-124+500*i,-137-617*i;
+805+99*i,-124+500*i,-137-617*i]
 rref(Ab.00000000001)
 gj4_mZ(Ab) : The system has only an equation !!
 +805.00 +99.00i -124.00 +500.00i -137.00 -617.00i 
 +0.00 +0.00i +0.00 +0.00i +0.00 +0.00i 
 Press return to continue
 Press X to stop

Mathc complexes/c101j
Application
/* Save as : c00c.c */
void fun(int r)
double **Ab = r_singular_Ab_mZ(i_Abr_Ac_bc_mZ(r,r,C1),999);
double **A = c_Ab_A_mZ(Ab,i_mZ(r,r));
double **b = c_Ab_b_mZ(Ab,i_mZ(r,C1)); 
 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);
/* ------------------------------------ */
int main(void)
time_t t;
 srand(time(&t));
do
 fun(rp_I(R3)+R2);
} while(stop_w());
 return 0;
/* ------------------------------------ */
 C'est le même fichier que le précédent mais cette fois la matrice Ab à plusieurs lignes identiques.

Exemple de sortie écran :
 ------------------------------------
 A :
 +162-245i -993+685i -456-582i -579+692i 
 +162-245i -993+685i -456-582i -579+692i 
 +162-245i -993+685i -456-582i -579+692i 
 +126-208i +829-134i +635-491i +783+783i 
 b :
 -538+183i 
 -538+183i 
 -538+183i 
 +531-347i 
 Press return to continue. 
 ------------------------------------
 Copy/Past into the octave window.
 Ab=[
+162-245*i,-993+685*i,-456-582*i,-579+692*i,-538+183*i;
+162-245*i,-993+685*i,-456-582*i,-579+692*i,-538+183*i;
+162-245*i,-993+685*i,-456-582*i,-579+692*i,-538+183*i;
+126-208*i,+829-134*i,+635-491*i,+783+783*i,+531-347*i]
 rref(Ab.00000000001)
 gj4_mZ(Ab) :
 +1.0000 +0.0000i +0.0000 +0.0000i +2.4799 -0.7154i -1.3962 +2.0168i 
 +0.0000 +0.0000i +1.0000 +0.0000i +0.5323 +0.2247i +0.5888 +0.3828i 
 +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.8715 -0.3964i 
 +0.6140 -0.0404i 
 +0.0000 +0.0000i 
 +0.0000 +0.0000i 
 Press return to continue
 Press X to stop

Coréen/Ecriture
Mathc complexes/c103a
Application
Installer et compiler ces fichiers dans votre répertoire de travail.
/* Save as : gj_z_a.c */
void fun(void)
double a[RA*(CA*C2)] ={ 1,2, 3,4, 5,6,
 5,4, 1,3, 6,8,
 7,2, 5,1, 1,1};
double b0[RA*(Cb*C2)] ={ 1,4, 
 2,5, 
 3,6}; 
double **A = ca_A_mZ(a, i_mZ(RA,CA)); 
double **b = ca_A_mZ(b0,i_mZ(RA,Cb)); 
double **Ab = c_A_b_Ab_mZ(A,b,i_Abr_Ac_bc_mZ(RA,CA,Cb)); 
 clrscrn();
 printf(" A :");
 p_mZ(A, S4,P0, S3,P0, C5);
 printf(" b :");
 p_mZ(b, S4,P0, S3,P0, C5);
 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(" gj_mZ(Ab) :");
 p_mZ(gj_mZ(Ab), S5,P4, S9,P4, C3);
 stop();
 f_mZ(Ab);
 f_mZ(b);
 f_mZ(A);
/* ------------------------------------ */
int main(void)
 fun();
 return 0;
/* ------------------------------------ */

Exemple de sortie écran :
 A :
 +1 +2i +3 +4i +5 +6i 
 +5 +4i +1 +3i +6 +8i 
 +7 +2i +5 +1i +1 +1i 
 b :
 +1 +4i 
 +2 +5i 
 +3 +6i 
 Press return to continue. 
 ------------------------------------ 
 Copy/Past into the octave window.
 Ab=[
+1+2*i,+3+4*i,+5+6*i,+1+4*i;
+5+4*i,+1+3*i,+6+8*i,+2+5*i;
+7+2*i,+5+1*i,+1+1*i,+3+6*i]
 rref(Ab.00000000001)
 gj_mZ(Ab) :
+1.00000 +0.00000i +0.00000 -0.00000i +0.00000 +0.00000i 
+0.00000 +0.00000i +1.00000 +0.00000i +0.00000 +0.00000i 
+0.00000 +0.00000i +0.00000 +0.00000i +1.00000 +0.00000i 
+0.30851 +0.36905i 
+0.32627 +0.49451i 
+0.22124 -0.22043i 
 Press return to continue.

Mathc complexes/c103c
Application
Installer et compiler ces fichiers dans votre répertoire de travail.
/* Save as : inv_z_a.c */
void fun(void)
double a[R3*(C3*C2)] ={ 1,2, 3,4, 5,6,
 5,4, 1,3, 6,8,
 7,2, 5,1, 1,1};
double **A = ca_A_mZ(a,i_mZ(R3,C3));
double **Inv = i_mZ(R3,C3);
 clrscrn();
 printf(" A\n");
 p_mZ(r_mZ(A,99.), S4,P0, S4,P0, C6);
 stop();
 clrscrn();
 printf(" invgj_mZ(A,invA);");
 pE_mZ(invgj_mZ(A,Inv), S1,P4, S1,P4, C3);
 printf(" inv_mZ(A,Inv); :");
 pE_mZ(inv_mZ(A,Inv), S1,P4, S1,P4, C3);
 stop();
 clrscrn();
 printf(" Copy/Past into the octave window.\n\n");
 p_Octave_mZ(A,"A",P0, P0);
 printf(" inv(A)\n");
 pE_mZ(Inv, S1,P4, S1,P4, C3);
 stop();
 f_mZ(Inv);
 f_mZ(A);
/* ------------------------------------ */
int main(void)
 fun();
 return 0;
/* ------------------------------------ */

Exemple de sortie écran :
 A
 -29 +44i -73 +80i +24 -71i 
 +56 +40i +70 +2i +42 -41i 
 +6 +26i +96 -5i -43 -55i 
 Press return to continue. 
 ------------------------------------
 invgj_mZ(A,invA);
+7.8496e-04-7.1979e-03i +8.8398e-03-4.8289e-03i -1.1770e-02-3.4037e-03i 
-6.2436e-03+7.7909e-04i +2.7587e-04+1.8608e-03i +5.9089e-03+4.7406e-03i 
-2.6218e-03+5.2891e-03i +6.1581e-03+9.1674e-04i -2.3327e-03+5.2885e-03i 
 inv_mZ(A,Inv); :
+7.8496e-04-7.1979e-03i +8.8398e-03-4.8289e-03i -1.1770e-02-3.4037e-03i 
-6.2436e-03+7.7909e-04i +2.7587e-04+1.8608e-03i +5.9089e-03+4.7406e-03i 
-2.6218e-03+5.2891e-03i +6.1581e-03+9.1674e-04i -2.3327e-03+5.2885e-03i 
 Press return to continue. 
 ------------------------------------ 
 Copy/Past into the octave window.
 A=[
-29+44*i,-73+80*i,+24-71*i;
+56+40*i,+70+2*i,+42-41*i;
+6+26*i,+96-5*i,-43-55*i]
 inv(A)
+7.8496e-04-7.1979e-03i +8.8398e-03-4.8289e-03i -1.1770e-02-3.4037e-03i 
-6.2436e-03+7.7909e-04i +2.7587e-04+1.8608e-03i +5.9089e-03+4.7406e-03i 
-2.6218e-03+5.2891e-03i +6.1581e-03+9.1674e-04i -2.3327e-03+5.2885e-03i 
 Press return to continue.