Mathc initiation/a17
Installer et compiler ce fichier dans votre répertoire de travail.
/* Save as : c00a.c */
int main(void)
nb_Z a;
 clrscrn();
 a = i_Z(-.125, .546);
 printf(" (");p_Z(a,S3,P4,S3,P4);printf(")**0 = ");
 p_Z(pow_Z(0,a),S3,P6,S3,P6);printf("\n\n");
 printf(" (");p_Z(a,S3,P4,S3,P4);printf(")**1 = ");
 p_Z(pow_Z(1,a),S3,P6,S3,P6);printf("\n\n");
 printf(" (");p_Z(a,S3,P4,S3,P4);printf(")**2 = ");
 p_Z(pow_Z(2,a),S3,P6,S3,P6);printf("\n\n");
 printf(" (");p_Z(a,S3,P4,S3,P4);printf(")**3 = ");
 p_Z(pow_Z(3,a),S3,P6,S3,P6);printf("\n\n");
 stop(); 
 return 0;
/* ------------------------------------ */
Exemple de sortie écran : 
 (-0.1250+0.5460i )**0 = +1.000000+0.000000i 
 (-0.1250+0.5460i )**1 = -0.125000+0.546000i 
 (-0.1250+0.5460i )**2 = -0.282491-0.136500i 
 (-0.1250+0.5460i )**3 = +0.109840-0.137178i 
 Press return to continue.

Mathc initiation/a18
Installer et compiler ce fichier dans votre répertoire de travail.
/* Save as : c00a.c */
int main(void)
nb_Z a;
 do{ 
 clrscrn();
 a = i_Z( 1, -3);
 printf(" a = "); p_Z(a,S3,P0,S3,P0); printf("\n\n");
 printf(" Re(a) = %8.1f \n",Re_Z(a));
 printf(" Im(a) = %8.1f \n\n\n",Im_Z(a));
 a = rE_Z(9999,1E-4);
 printf(" a = "); p_Z(a,S3,P4,S3,P4); printf("\n\n");
 printf(" Re(a) = %8.4f \n",Re_Z(a));
 printf(" Im(a) = %8.4f \n\n\n",Im_Z(a));
 } while(stop_w()); 
 return 0;
/* ------------------------------------ */
Exemple de sortie écran : 
 a = +1 -3i 
 Re(a) = 1.0 
 Im(a) = -3.0 
 a = +0.9830-0.0964i 
 Re(a) = 0.9830 
 Im(a) = -0.0964 
 Press return to continue
 Press X return to stop

Mathc matrices/a39
Application 
Calculer la valeur de B pour que le système soit compatible.
Calculer la valeur de B et de C pour que le système soit compatible.
 Créer une matrice pour ce travail.

Mathc matrices/a40
Application
Installer et compiler ces fichiers dans votre répertoire de travail.
/* ------------------------------------ */
/* Save as : c00.c */
/* ------------------------------------ */
/* ------------------------------------ */
//#define B (3./4.)
/* ------------------------------------ */
int main(void)
/* 
 * Find a value for "B" so that the system is compatible.
double ab[RA*(CA+Cb)]={
// A = x*B + y 
 -1, -9, -3*B, +1,
 -1, -9, 1*B, -2}; 
double **Ab = ca_A_mR(ab,i_Abr_Ac_bc_mR(RA,CA,Cb));
double **A = c_Ab_A_mR(Ab,i_mR(RA,CA));
double **b = c_Ab_b_mR(Ab,i_mR(RA,Cb));
 clrscrn();
 printf(" A :");
 p_mR(A,S3,P0,C7);
 printf(" b :");
 p_mR(b,S3,P0,C7);
 printf(" Ab :");
 p_mR(Ab,S3,P0,C7);
 getchar();
 clrscrn();
 printf(" Copy/Past into the octave window.\n\n");
 p_Octave_mR(Ab,"Ab",P0);
 printf("\n rref(Ab.00000000001)\n\n");
 printf(" gj_PP_mR(Ab,YES) :");
 gj_PP_mR(Ab,YES);
 p_mR(Ab,S8,P4,C7);
 stop();
 f_mR(Ab);
 f_mR(b);
 f_mR(A);
 return 0;
/* ------------------------------------ */
 Calculer la valeur de B pour que le système soit compatible.

Exemple de sortie écran :
 A :
 -1 -9 
 -1 -9 
 b :
 -3 +1 
 +1 -2 
 Ab :
 -1 -9 -3 +1 
 -1 -9 +1 -2 
 Copy/Past into the octave window.
 Ab=[
-1,-9,-3,+1;
-1,-9,+1,-2]
 rref(Ab.00000000001)
 gj_PP_mR(Ab,YES) :
 +1.0000 +9.0000 +3.0000 -1.0000 
 +0.0000 +0.0000 +4.0000 -3.0000 
 Press return to continue. 
La dernière ligne donne :
 +0.0000 +0.0000 +4.0000 -3.0000 
 ou bien
 +0.0000 = +4.0000 -3.0000 
 en introduisant B 
 +0.0000 = +4.0000 B -3.0000 
 soit le système 
 +4.0000 B = +3.0000 
 cela donne
 B 3./4.

Mathc matrices/a41
Application
Installer et compiler ces fichiers dans votre répertoire de travail.
/* ------------------------------------ */
/* Save as : c00.c */
/* ------------------------------------ */
/* ------------------------------------ */
//#define B (1./5.)
/* ------------------------------------ */
int main(void)
/* 
 * Find a value for "B" so that the system is compatible.
double ab[RA*(CA+Cb)]={
// A = x*B + y 
 -2, +8, -5, -4*B, +1,
 -6, -9, +6, -4*B, +0, 
 -2, +8, -5, -9*B, +2 
double **Ab = ca_A_mR(ab,i_Abr_Ac_bc_mR(RA,CA,Cb));
double **A = c_Ab_A_mR(Ab,i_mR(RA,CA));
double **b = c_Ab_b_mR(Ab,i_mR(RA,Cb));
 clrscrn();
 printf(" A :");
 p_mR(A,S3,P0,C7);
 printf(" b :");
 p_mR(b,S3,P0,C7);
 printf(" Ab :");
 p_mR(Ab,S3,P0,C7);
 getchar();
 clrscrn();
 printf(" Copy/Past into the octave window.\n\n");
 p_Octave_mR(Ab,"Ab",P0);
 printf("\n rref(Ab.00000000001)\n\n");
 printf(" gj_PP_mR(Ab,YES) :");
 gj_PP_mR(Ab,YES);
 p_mR(Ab,S8,P4,C7);
 stop();
 f_mR(Ab);
 f_mR(b);
 f_mR(A);
 return 0;
/* ------------------------------------ */
 Calculer la valeur de B pour que le système soit compatible.

Exemple de sortie écran :
 A :
 -2 +8 -5 
 -6 -9 +6 
 -2 +8 -5 
 b :
 -4 +1 
 -4 +0 
 -9 +2 
 Ab :
 -2 +8 -5 -4 +1 
 -6 -9 +6 -4 +0 
 -2 +8 -5 -9 +2 
 ------------------------------------ 
 Copy/Past into the octave window.
 Ab=[
-2,+8,-5,-4,+1;
-6,-9,+6,-4,+0;
-2,+8,-5,-9,+2]
 rref(Ab.00000000001)
 gj_PP_mR(Ab,YES) :
 +1.0000 +0.0000 -0.0455 +1.0303 -0.1364 
 +0.0000 +1.0000 -0.6364 -0.2424 +0.0909 
 +0.0000 +0.0000 +0.0000 -5.0000 +1.0000 
 Press return to continue. 
La dernière ligne donne :
 +0.0000 +0.0000 +0.0000 -5.0000 +1.0000 
 ou bien
 +0.0000 = -5.0000 +1.0000 
 en introduisant B 
 +0.0000 = -5.0000 B +1.0000 
 soit le système 
 -5.0000 B = -1.0000 
 cela donne
 B 1./5.

Mathc matrices/a42
Application
Installer et compiler ces fichiers dans votre répertoire de travail.
/* ------------------------------------ */
/* Save as : c00.c */
/* ------------------------------------ */
/* ------------------------------------ */
//#define B (-10.)
/* ------------------------------------ */
int main(void)
/* 
 * Find a value for "B" so that the system is compatible.
double ab[RA*(CA+Cb)]={
// A = x*B + y 
 -1, -9, -8, +1, 0*B, +8, 
 -2, -1, +4, +1, 2*B, +4, 
 +6, +9, +3, -5, 0*B, +5, 
 -2, -1, +4, +1, 1*B, -6 }; 
double **Ab = ca_A_mR(ab,i_Abr_Ac_bc_mR(RA,CA,Cb));
double **A = c_Ab_A_mR(Ab,i_mR(RA,CA));
double **b = c_Ab_b_mR(Ab,i_mR(RA,Cb));
 clrscrn();
 printf(" A :");
 p_mR(A,S3,P0,C7);
 printf(" b :");
 p_mR(b,S3,P0,C7);
 printf(" Ab :");
 p_mR(Ab,S3,P0,C7);
 getchar();
 clrscrn();
 printf(" Copy/Past into the octave window.\n\n");
 p_Octave_mR(Ab,"Ab",P0);
 printf("\n rref(Ab.00000000001)\n\n");
 printf(" gj_PP_mR(Ab,YES) :");
 gj_PP_mR(Ab,YES);
 p_mR(Ab,S8,P4,C7);
 stop();
 f_mR(Ab);
 f_mR(b);
 f_mR(A);
 return 0;
/* ------------------------------------ */
 Calculer la valeur de B pour que le système soit compatible.

Exemple de sortie écran :
 A :
 -1 -9 -8 +1 
 -2 -1 +4 +1 
 +6 +9 +3 -5 
 -2 -1 +4 +1 
 b :
 +0 +8 
 +2 +4 
 +0 +5 
 +1 -6 
 Ab :
 -1 -9 -8 +1 +0 +8 
 -2 -1 +4 +1 +2 +4 
 +6 +9 +3 -5 +0 +5 
 -2 -1 +4 +1 +1 -6 
 ------------------------------------ 
 Copy/Past into the octave window.
 Ab=[
-1,-9,-8,+1,+0,+8;
-2,-1,+4,+1,+2,+4;
+6,+9,+3,-5,+0,+5;
-2,-1,+4,+1,+1,-6]
 rref(Ab.00000000001)
 gj_PP_mR(Ab,YES) :
 +1.0000 +0.0000 +0.0000 -1.0074 +0.6667 +5.2741 
 -0.0000 +1.0000 +0.0000 +0.1852 -0.6667 -3.8519 
 +0.0000 +0.0000 +1.0000 -0.2074 +0.6667 +2.6741 
 +0.0000 +0.0000 +0.0000 +0.0000 -1.0000 -10.0000 
 Press return to continue. 
La dernière ligne donne :
 +0.0000 +0.0000 +0.0000 +0.0000 -1.0000 -10.0000 
 ou bien
 +0.0000 = -1.0000 -10.0000 
 en introduisant B 
 +0.0000 = -1.0000 B -10.0000 
 soit le système 
 -1.0000 B = +10.0000 
 cela donne
 B = -10.