Mathc complexes/a1165
Application
Installer et compiler ces fichiers dans votre répertoire de travail.
/* Save as : c00a.c */
/* ------------------------------------ */
void fun(void)
double ab[RAb*((CA+Cb)*C2)] ={ 
 +1,+8, +2,-7, +1,+1, -9,-6, -8,-4, -6,-5, 
 +1,+8, +2,-7, +1,+1, -9,-6, -4,+1, -1,+9, 
 -7,+4, +1,+3, +5,-6, -2,+5, +6,+6, -4,-9, 
 -8,+2, -5,-7, -7,+8, -1,+5, +7,-3, -7,+3 };
double **Ab = ca_A_mZ(ab,i_Abr_Ac_bc_mZ(RAb,CA,Cb));
int c = TheCorrect_C(CA+C1);
nb_Z B = div_Z(sym_Z(i_Z(-5,-14)), i_Z(-4,-5));
 clrscrn();
 mulC_mZ(Ab,B,c);
 printf(" Ab :");
 p_mZ(Ab, S8,P2, S6,P2, CA); 
 stop();
 clrscrn();
 printf(" With B = -z2/z1 = "); p_Z(B,S3,P4,S3,P4); printf("\n"); 
 printf(" The system is compatible :\n\n"); 
 p_mZ(gj_PP_FreeV_mZ(Ab), S9,P4, S8,P4, CA); 
 stop();
 f_mZ(Ab);
/* ------------------------------------ */
int main(void)
 fun();
 return 0;
/* ------------------------------------ */
 Calculer la valeur de B pour que le système soit compatible.
 Exemple de sortie écran :
 Ab :
 +1.00 +8.00i +2.00 -7.00i +1.00 +1.00i -9.00 -6.00i 
 +1.00 +8.00i +2.00 -7.00i +1.00 +1.00i -9.00 -6.00i 
 -7.00 +4.00i +1.00 +3.00i +5.00 -6.00i -2.00 +5.00i 
 -8.00 +2.00i -5.00 -7.00i -7.00 +8.00i -1.00 +5.00i 
 +14.54+14.83i -6.00 -5.00i 
 +9.54 +0.83i -1.00 +9.00i 
 -8.63-17.71i -4.00 -9.00i 
 -17.63 +1.29i -7.00 +3.00i 
 Press return to continue. 
 ------------------------------------ 
 With B = -z2/z1 = -2.1951-0.7561i 
 The system is compatible :
 +1.0000 +0.0000i +0.3824 +0.9706i +1.0588 -0.7353i +0.2647 -0.5588i 
 +0.0000 +0.0000i +1.0000 +0.0000i +0.0884 -0.6139i -0.2170 -1.0607i 
 +0.0000 +0.0000i +0.0000 +0.0000i +1.0000 +0.0000i -1.0194 -0.4975i 
 +0.0000 +0.0000i +0.0000 +0.0000i +0.0000 +0.0000i -0.0000 +0.0000i 
 +2.1126 +0.3666i +0.9118 -0.1471i 
 +1.3281 -0.1908i -0.2357 -0.0795i 
 +2.5092 -1.1636i +0.9520 -0.0550i 
 +5.0000+14.0000i -5.0000-14.0000i 
 Press return to continue.

Mathc complexes/a163
Application
Installer et compiler ces fichiers dans votre répertoire de travail.
/* Save as : c00a.c */
/* ------------------------------------ */
void fun(void)
double ab[RAb*((CA+Cb)*C2)] ={ 
 -3,-7, -6,-5, +4,-2, +6,+1, +1,-9, +1,-9, 
 -3,-7, -6,-5, +4,-2, +0,+1, +1,-0, -8,+7, 
 -3,-7, -6,-5, +4,-2, -4,-0, +0,-3, +0,-3 };
double **Ab = ca_A_mZ(ab,i_Abr_Ac_bc_mZ(RAb,CA,Cb));
double **Ab_free = i_Abr_Ac_bc_mZ(RAb,CA,Cb) ;
double **b_free = i_mZ(RAb,C2);
 clrscrn();
 printf(" Ab :");
 p_mZ(Ab, S8,P2, S6,P2, CA); 
 stop();
 clrscrn(); 
 printf(" zx zx zx \n"
 " 0 0 0 \n" 
 " 0 0 0 \n\n" 
 " zx*B zx*C zx \n"
 " z1*B z2*C z3 \n" 
 " z1*B z2*C z3 \n\n"
 " z1*B + z2*C + z3 != 0\n\n" 
 " The system is not compatible :"); 
 p_mZ(gj_PP_FreeV_mZ(Ab), S10,P4, S6,P4, CA); 
 stop();
 f_mZ(Ab);
 f_mZ(Ab_free);
 f_mZ(b_free);
/* ------------------------------------ */
int main(void)
 fun();
 return 0;
/* ------------------------------------ */
 Vérifions que le système est incompatible.
 Exemple de sortie écran :
 Ab :
 -3.00 -7.00i -6.00 -5.00i +4.00 -2.00i 
 -3.00 -7.00i -6.00 -5.00i +4.00 -2.00i 
 -3.00 -7.00i -6.00 -5.00i +4.00 -2.00i 
 +6.00 +1.00i +1.00 -9.00i +1.00 -9.00i 
 +0.00 +1.00i +1.00 +0.00i -8.00 +7.00i 
 -4.00 +0.00i +0.00 -3.00i +0.00 -3.00i 
 Press return to continue. 
 zx zx zx 
 0 0 0 
 0 0 0 
 zx*B zx*C zx 
 z1*B z2*C z3 
 z1*B z2*C z3 
 z1*B + z2*C + z3 != 0
 The system is not compatible :
 +1.0000+0.0000i +0.9138-0.4655i +0.0345+0.5862i 
 -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.4310+0.6724i +1.0345+0.5862i +1.0345+0.5862i 
 -6.0000-0.0000i +0.0000+9.0000i -9.0000+16.0000i 
 -10.0000-1.0000i -1.0000+6.0000i -1.0000+6.0000i 
 Press return to continue.

Mathc complexes/a166
Application
Installer et compiler ces fichiers dans votre répertoire de travail.
/* Save as : c00a.c */
/* ------------------------------------ */
void fun(void)
double ab[RAb*((CA+Cb)*C2)] ={ 
 -4,-2, -1,-2, +3,-2, +6,+1, +1,-9, +1,-9, 
 -8,-4, -2,-4, +6,-4, +0,+1, +1,-0, -8,+7, 
 -4,-2, -1,-2, +3,-2, -4,-0, +0,-3, +0,-3 };
double **Ab = ca_A_mZ(ab,i_Abr_Ac_bc_mZ(RAb,CA,Cb));
double **Ab_free = i_Abr_Ac_bc_mZ(RAb,CA,Cb) ;
double **b_free = i_mZ(RAb,C2);
 clrscrn();
 printf(" Ab :");
 p_mZ(Ab, S8,P2, S6,P2, CA); 
 stop();
 clrscrn(); 
 printf(" zx zx zx \n"
 " 0 0 0 \n" 
 " 0 0 0 \n\n" 
 " zx*B zx*C zx \n"
 " z1*B z2*C z3 \n" 
 " z1*B z2*C z3 \n\n"
 " z1*B + z2*C + z3 != 0\n\n" 
 " The system is not compatible :"); 
 p_mZ(gj_PP_FreeV_mZ(Ab), S10,P4, S8,P4, CA); 
 stop();
 f_mZ(Ab);
 f_mZ(Ab_free);
 f_mZ(b_free);
/* ------------------------------------ */
int main(void)
 fun();
 return 0;
/* ------------------------------------ */
 Vérifions que le système est incompatible.
 Exemple de sortie écran :
 Ab :
 -4.00 -2.00i -1.00 -2.00i +3.00 -2.00i 
 -8.00 -4.00i -2.00 -4.00i +6.00 -4.00i 
 -4.00 -2.00i -1.00 -2.00i +3.00 -2.00i 
 +6.00 +1.00i +1.00 -9.00i +1.00 -9.00i 
 +0.00 +1.00i +1.00 +0.00i -8.00 +7.00i 
 -4.00 +0.00i +0.00 -3.00i +0.00 -3.00i 
 Press return to continue. 
 ------------------------------------ 
 zx zx zx 
 0 0 0 
 0 0 0 
 zx*B zx*C zx 
 z1*B z2*C z3 
 z1*B z2*C z3 
 z1*B + z2*C + z3 != 0
 The system is not compatible :
 +1.0000 +0.0000i +0.4000 +0.3000i -0.4000 +0.7000i 
 +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.0500 -0.1000i -0.1000 +0.0500i +0.4500 -1.1000i 
 +6.0000 +0.5000i +0.5000 -9.0000i +5.0000-12.5000i 
 -4.0000 -0.5000i -0.5000 -3.0000i +4.0000 -6.5000i 
 Press return to continue.

Mathc complexes/a164
Application
Installer et compiler ces fichiers dans votre répertoire de travail.
/* Save as : c00b.c */
/* ------------------------------------ */
void fun(void)
double ab[R2*(CA+Cb)*C2] ={ 
 -6.0000,+0.0000, +0.0000,+9.0000, +9.0000,-16.0000, 
 -10.0000,-1.0000, -1.0000,+6.0000, +1.0000,-6.0000

double **Ab = ca_A_mZ(ab, i_Abr_Ac_bc_mZ(RAb,CA,Cb)); 
 clrscrn();
 printf(" Copy/Past into the octave window.\n\n");
 p_Octave_mZ(Ab,"Ab",P2, P2);
 printf(" rref(Ab.00000000001)\n\n");
 printf(" Let's calculate B and C :");
 p_mZ(gj_mZ(Ab), S5,P8, S9,P8, C3);
 stop();
 f_mZ(Ab);
/* ------------------------------------ */
int main(void)
 fun();
 return 0;
/* ------------------------------------ */
 Calculons B et C.
 Exemple de sortie écran :
 Copy/Past into the octave window.
 Ab=[
-6.00+0.00*i,+0.00+9.00*i,+9.00-16.00*i;
-10.00-1.00*i,-1.00+6.00*i,+1.00-6.00*i]
 rref(Ab.00000000001)
 Let's calculate B and C :
+1.00000000+0.00000000i +0.00000000+0.00000000i +1.09230769-0.67179487i 
+0.00000000+0.00000000i +1.00000000+0.00000000i -2.22564103-1.72820513i 
 Press return to continue.

Mathc complexes/a167
Application
Installer et compiler ces fichiers dans votre répertoire de travail.
/* Save as : c00b.c */
/* ------------------------------------ */
void fun(void)
double ab[R2*(CA+Cb)*C2] ={ 
 +6.0000,+0.5000, +0.5000,-9.0000, -5.0000,+12.5000, 
 -4.0000,-0.5000, -0.5000,-3.0000, -4.0000,+6.5000

double **Ab = ca_A_mZ(ab, i_Abr_Ac_bc_mZ(RAb,CA,Cb)); 
 clrscrn();
 printf(" Copy/Past into the octave window.\n\n");
 p_Octave_mZ(Ab,"Ab",P0, P0);
 printf(" rref(Ab.00000000001)\n\n");
 printf(" Let's calculate B and C :");
 p_mZ(gj_mZ(Ab), S5,P8, S9,P8, C3);
 stop();
 f_mZ(Ab);
/* ------------------------------------ */
int main(void)
 fun();
 return 0;
/* ------------------------------------ */
 Calculons B et C.
 Exemple de sortie écran :
 Copy/Past into the octave window.
 Ab=[
+6+0*i,+0-9*i,-5+12*i;
-4-0*i,-0-3*i,-4+6*i]
 rref(Ab.00000000001)
 Let's calculate B and C :
+1.00000000-0.00000000i -0.00000000+0.00000000i +0.53196192-0.35481129i 
-0.00000000+0.00000000i +1.00000000+0.00000000i -1.64246855-0.83866032i 
 Press return to continue.