f_mR(B);
 f_mR(ID);
/* ------------------------------------ */
int main(void)
time_t t;
 srand(time(&t));
do
 fun();
} while(stop_w());
 return 0;
/* ------------------------------------ */
 L'affichage des vecteurs d'une colonne prend trop de place. J'ai donc tenté de les installer dans une matrice avant de les afficher.
Exemple de sortie écran :
 The Three Standard Columns Vectors 
 A[0] A[1] A[1] :
 +1 +0 +0 +0 
 +0 +1 +0 +0 
 +0 +0 +1 +0 
 Press return to continue. 
 ------------------------
 V is a linear combination of 
 the three Standard Columns Vectors of R_3 :
 -3*A[0] +5*A[1] -4*A[1] V
 -3 +0 -0 -3 
 -0 +5 -0 +5 
 -0 +0 -4 -4 
 Press return to continue
 Press X return to stop

Mathc complexes/a177
Application
Quelques exemples :
Changement de Base dans C3 :
Changement de Base dans C2 :

Mathc complexes/a178
Application
Installer et compiler ce fichier dans votre répertoire de travail.
/* ------------------------------------ */
/* Save as : c00a.c */
/* ------------------------------------ */
/* ------------------------------------ */
void fun(void)
double **A[TAB];
double **B = i_mZ(RA,CB);
int c;
 clrscrn();
 printf(" The problem :\n\n");
 for(c=C0; c<TAB; c++)
 A[c] = r_mZ(i_mZ(RA,CA),99); 
 printf(" A[%d] :",c); 
 p_mZ(A[c],S5,P0,S5,P0,C6);

stop();
 clrscrn();
 for(c=C0; c<TAB; c++)
 c_c_mZ(A[c],C1,B,c+C1);
 printf(" A solution :\n\n"); 
 printf(" A[0] A[1] A[2] :"); 
 p_mZ(B,S6,P0,S4,P0,C10);
 for(c=C0; c<TAB; c++)
 f_mZ(A[c]); 
 f_mZ(B);
/* ------------------------------------ */
int main(void)
time_t t;
 srand(time(&t));
do
 fun();
} while(stop_w());
 return 0;
/* ------------------------------------ */
L'affichage des vecteurs d'une colonne prend trop de place. J'ai donc tenté de les installer dans une matrice avant de les afficher.
Exemple de sortie écran :
 The problem :
 A[0] :
 -2 -62i 
 -34 -15i 
 +87 -46i 
 +15 +16i 
 -13 -60i 
 A[1] :
 +26 +76i 
 +68 +90i 
 +61 -70i 
 -58 +96i 
 +29 -65i 
 A[2] :
 -46 +53i 
 -82 +54i 
 +60 +42i 
 +86 -99i 
 +75 -25i 
 Press return to continue. 
 -------------------------------
 A solution :
 A[0] A[1] A[2] :
 -2 -62i +26 +76i -46 +53i 
 -34 -15i +68 +90i -82 +54i 
 +87 -46i +61 -70i +60 +42i 
 +15 +16i -58 +96i +86 -99i 
 -13 -60i +29 -65i +75 -25i 
 Press return to continue
 Press X return to stop

Mathc complexes/a179
Application
Installer et compiler ce fichier dans votre répertoire de travail.
/* ------------------------------------ */
/* Save as : c00a.c */
/* ------------------------------------ */
/* ------------------------------------ */
void fun(void)
double **A[TAB];
double **B = i_mZ(RA,CB);
int c;
 for(c=C0; c<TAB; c++)
 A[c] = r_mZ(i_mZ(RA,CA),9); 
 clrscrn();
 add_mZ(A[0],A[1],A[2]);
 for(c=C0; c<TAB; c++)
 c_c_mZ(A[c],C1,B,c+C1);
 printf(" A solution :\n\n"); 
 printf(" A[0] + A[1] = A[2] :"); 
 p_mZ(B,S8,P0,S4,P0,C10);
 for(c=C0; c<TAB; c++)
 f_mZ(A[c]); 
 f_mZ(B);
/* ------------------------------------ */
int main(void)
time_t t;
 srand(time(&t));
do
 fun();
} while(stop_w());
 return 0;
/* ------------------------------------ */
L'affichage des vecteurs d'une colonne prend trop de place. J'ai donc tenté de les installer dans une matrice avant de les afficher.
Exemple de sortie écran :
 A solution :
 A[0] + A[1] = A[1] :
 +3 +7i -5 +8i -2 +15i 
 -7 +5i +1 -1i -6 +4i 
 -3 -4i -6 -4i -9 -8i 
 -2 +5i -9 -9i -11 -4i 
 +9 +1i -6 +9i +3 +10i 
 Press return to continue
 Press X return to stop

Mathc complexes/a180
Application
Installer et compiler ce fichier dans votre répertoire de travail.
/* ------------------------------------ */
/* Save as : c00a.c */
/* ------------------------------------ */
/* ------------------------------------ */
void fun(void)
double **A[TAB];
double **B = i_mZ(RA,CB);
int c;
double s = 2;
 for(c=C0; c<TAB; c++)
 A[c] = r_mZ(i_mZ(RA,CA),9); 
 clrscrn();
 smul_mZ(s,A[0],A[1]);
 for(c=C0; c<TAB; c++)
 c_c_mZ(A[c],C1,B,c+C1);
 printf(" A solution :\n\n"); 
 printf(" %.0f*A[0] = A[1] ",s); 
 p_mZ(B,S8,P0,S4,P0,C10);
 for(c=C0; c<TAB; c++)
 f_mZ(A[c]); 
 f_mZ(B);
/* ------------------------------------ */
int main(void)
time_t t;
 srand(time(&t));
do
 fun();
} while(stop_w());
 return 0;
/* ------------------------------------ */
L'affichage des vecteurs d'une colonne prend trop de place. J'ai donc tenté de les installer dans une matrice avant de les afficher. 
Dans cet exemple j'ai choisi d'utiliser un réel s pour pouvoir plus facilement vérifier les calculs. Dans l'exemple suivant, on utilisera le complexe z.
Exemple de sortie écran :
 A solution :
 2*A[0] = A[1] 
 -3 -9i -6 -18i 
 +1 -3i +2 -6i 
 -2 +9i -4 +18i 
 -3 +2i -6 +4i 
 +4 -3i +8 -6i 
 Press return to continue
 Press X return to stop

Mathc complexes/a181
Application
Installer et compiler ce fichier dans votre répertoire de travail.
/* ------------------------------------ */
/* Save as : c00a.c */
/* ------------------------------------ */
/* ------------------------------------ */
void fun(void)
double **A[TAB];
double **T[TAB];
nb_Z z[TAB];
double **B = i_mZ(RA,CB);
double **ID = eye_mZ(i_mZ(RA,RA));
int c;
 clrscrn();
 for(c=C0; c<TAB; c++)
 T[c] = i_mZ(RA,CA);
 c_c_mZ(ID,c+C1, T[c],C1); 
 c_c_mZ(T[c],C1, B,c+C1);

printf(" The Three Standard Columns Vectors \n\n" 
 " A[0] A[1] A[2] :"); 
 p_mZ(B,S4,P0,S3,P0,C10);
 stop();
 clrscrn();
 for(c=C0; c<TAB; c++)
 A[c] = i_mZ(RA,CA); 
 z[c] = r_Z(9);
 zmul_mZ(z[c],T[c],A[c]);
 c_c_mZ(A[c],C1, B,c+C1);

add_mZ(A[0],A[1],T[0]); 
 add_mZ(T[0],A[2],T[1]); 
 c_c_mZ(T[1],C1, B,CB);
 printf(" V is a linear combination of \n" 
 " the three Standard Columns Vectors of R_3 :\n\n"
 " z0*A[0] z1*A[1] z2*A[2] = V "); 
 p_mZ(B,S6,P0,S3,P0,C10);
 for(c=C0; c<TAB; c++)
 f_mZ(A[c]); 
 f_mZ(T[c]);

f_mZ(B);
 f_mZ(ID);
/* ------------------------------------ */
int main(void)
time_t t;
 srand(time(&t));
do
 fun();
} while(stop_w());
 return 0;
/* ------------------------------------ */
L'affichage des vecteurs d'une colonne prend trop de place. J'ai donc tenté de les installer dans une matrice avant de les afficher. 
Exemple de sortie écran :
 The Three Standard Columns Vectors 
 A[0] A[1] A[2] :
 +1 +0i +0 +0i +0 +0i +0 +0i 
 +0 +0i +1 +0i +0 +0i +0 +0i 
 +0 +0i +0 +0i +1 +0i +0 +0i 
 Press return to continue. 
 -------------------------------
 V is a linear combination of 
 the three Standard Columns Vectors of R_3 :
 z0*A[0] z1*A[1] z2*A[2] = V 
 +8 -6i -0 +0i +0 +0i +8 -6i 
 +0 +0i -8 +6i +0 +0i -8 +6i 
 +0 +0i -0 +0i +4 -5i +4 -5i 
 Press return to continue
 Press X return to stop

Mathc matrices/a99
Application
Installer et compiler ce fichier dans votre répertoire de travail.
/* Save as : c00a.c */
void fun(int rc)
double s = r_I(9);
double **A = r_mR( i_mR(rc,rc),9);
double **sA = smul_mR(s,A,i_mR(rc,rc) );
 clrscrn();
 printf(" A\n");
 p_mR(A,S3,P0,C6);
 printf(" %.0f * A\n",s);
 p_mR(sA,S3,P0,C6);
 printf("\n"
 " Trace(sA) = %+.0f\n" 
 " %+.0f * Trace( A) = %+.0f\n", trace_R(sA), s, s*trace_R(A));
 f_mR(A);
 f_mR(sA);
/* ------------------------------------ */
int main(void)
time_t t;
 srand(time(&t));
 do 
 fun(rp_I(RC5));
 while(stop_w());
 return 0;
/* ------------------------------------ */
 La fonction trace se contente d'additionner tous les coefficients sur la diagonale.
Exemple de sortie écran :
 A
 +3 -8 -6 
 +7 +9 -9 
 +6 +3 -4 
 -5 * A
-15 +40 +30 
-35 -45 +45 
-30 -15 +20 
 Trace(sA) = -40
 -5 * Trace( A) = -40
 Press return to continue
 Press X return to stop