Mathc complexes/a161
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));
double **Ab_free = i_Abr_Ac_bc_mZ(RAb,CA,Cb) ;
double **b_free = i_mZ(RAb,C2);
int c = TheCorrect_C(CA+C1);
nb_Z B;
 clrscrn();
 printf(" Ab :");
 p_mZ(Ab, S8,P2, S6,P2, CA); 
 stop();
 clrscrn(); 
 printf(" zx zx zx zx*B zx \n"
 " zx zx zx zx*B zx \n" 
 " 0 0 0 z1*B z2 \n\n" 
 " z1*B + z2 != 0 \n\n" 
 " The system is not compatible :"); 
 p_mZ(gj_PP_FreeV_mZ(Ab), S9,P4, S8,P4, CA); 
 stop();
 clrscrn(); 
 B = div_Z(sym_Z(i_Z(-5,-14)), i_Z(-4,-5));
 printf(
 " zx zx zx zx*B zx \n"
 " zx zx zx zx*B zx \n" 
 " 0 0 0 z1*B z2 \n" 
 " z1*B + z2 != 0 \n" 
 " The system is not compatible :\n\n" 
 " zx zx zx zx*B zx \n"
 " zx zx zx zx*B zx \n" 
 " 0 0 0 z1 -z1 \n" 
 " With B = -z2/z1 = "); p_Z(B,S3,P4,S3,P4); printf("\n");
 mulC_mZ(Ab,B,c);
 printf(" The system is compatible :\n"); 
 p_mZ(Ab, S9,P4, S8,P4, CA);
 stop();
 f_mZ(Ab);
 f_mZ(Ab_free);
 f_mZ(b_free);
/* ------------------------------------ */
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 
 -8.00 -4.00i -6.00 -5.00i 
 -4.00 +1.00i -1.00 +9.00i 
 +6.00 +6.00i -4.00 -9.00i 
 +7.00 -3.00i -7.00 +3.00i 
 Press return to continue. 
 ------------------------------------ 
 zx zx zx zx*B zx 
 zx zx zx zx*B zx 
 0 0 0 z1*B z2 
 z1*B + z2 != 0 
 The system is not 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 
 -0.9118 +0.1471i +0.9118 -0.1471i 
 -0.5141 +0.2640i -0.2357 -0.0795i 
 -0.8586 +0.8258i +0.9520 -0.0550i 
 -4.0000 -5.0000i -5.0000-14.0000i 
 Press return to continue. 
 ------------------------------------ 
 zx zx zx zx*B zx 
 zx zx zx zx*B zx 
 0 0 0 z1*B z2 
 z1*B + z2 != 0 
 The system is not compatible :
 zx zx zx zx*B zx 
 zx zx zx zx*B zx 
 0 0 0 z1 -z1 
 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/a162
Application
Installer et compiler ces fichiers dans votre répertoire de travail.
/* Save as : c00a.c */
int main(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 **A = ca_A_mZ(a,i_mZ(RA,CA));
double **Minor = i_mZ(RA-C1,CA-C1);
int minor_r = R1;
int minor_c = C1;
 clrscrn();
 printf(" A :");
 p_mZ(A, S5,P0, S4,P0, C6);
 printf(" Minor(R%d,C%d) \n\n",
 minor_r,
 minor_c);
 minor_c = minor_c*C2-C1;
 /* col*C2 : a number has two columns */
 /* -C1 : The real part of the number */
 p_Z(minor_Z(A,minor_r, minor_c), S1,P0, S0,P0);printf("\n\n");
 minor_mZ(A, Minor, minor_r, minor_c);
 printf(" Copy/Past into the octave window.\n\n");
 p_Octave_mZ(Minor,"Minor",P0 ,C0);
 printf(" det(Minor)\n\n\n");
 stop();
 f_mZ(A);
 f_mZ(Minor);
 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 
 Minor(R1,C1) 
-24-42i 
 Copy/Past into the octave window.
 Minor=[
+1+3*i,+6+8*i;
+5+1*i,+1+1*i]
 det(Minor)
 Press return to continue.

Mathc complexes/a1163
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)] ={ 
 +2,-8, +7,-4, -9,-1, +6,-2, 
 +2,-8, +7,-4, +9,+2, +4,+5 };

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(-2,+7)), i_Z(+18,+3));
 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), S10,P4, S6,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 :
 +2.00 -8.00i +7.00 -4.00i 
 +2.00 -8.00i +7.00 -4.00i 
 -0.80 +3.52i +6.00 -2.00i 
 +1.20 -3.48i +4.00 +5.00i 
 Press return to continue. 
 With B = -z2/z1 = +0.0450-0.3964i 
 The system is compatible :
 +1.0000+0.0000i +0.6765+0.7059i 
 +0.0000+0.0000i +0.0000+0.0000i 
 -0.4380+0.0093i +0.4118+0.6471i 
 +2.0000-7.0000i -2.0000+7.0000i 
 Press return to continue.

Mathc complexes/a1164
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)] ={ 
 +2,-1, +1,+6, +3,-9, +6,+2, -2,-2, 
 +4,+1, +5,+3, -4,-5, -5,-3, +5,+5, 
 +2,-1, +1,+6, +3,-9, +2,-1, +7,-5 };
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(9,-3)), i_Z(-4,-3));
 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), S10,P4, S6,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 :
 +2.00 -1.00i +1.00 +6.00i +3.00 -9.00i 
 +4.00 +1.00i +5.00 +3.00i -4.00 -5.00i 
 +2.00 -1.00i +1.00 +6.00i +3.00 -9.00i 
 +9.60 -7.20i -2.00 -2.00i 
 -10.08 +4.56i +5.00 +5.00i 
 +0.60 -4.20i +7.00 -5.00i 
 Press return to continue. 
 ------------------------------------ 
 With B = -z2/z1 = +1.0800-1.5600i 
 The system is compatible :
 +1.0000+0.0000i +1.3529+0.4118i -1.2353-0.9412i 
 +0.0000-0.0000i +1.0000+0.0000i -1.4457-0.5131i 
 +0.0000+0.0000i +0.0000+0.0000i +0.0000+0.0000i 
 -2.1035+1.6659i +1.4706+0.8824i 
 -2.2966-1.1146i -0.0562+0.9101i 
 -9.0000+3.0000i +9.0000-3.0000i 
 Press return to continue.