Mathc matrices/a100
Application
Installer et compiler ce fichier dans votre répertoire de travail.
/* Save as : c00a.c */
void fun(int rc)
double **A = r_mR( i_mR(rc,rc),9);
double **A_t = transpose_mR(A,i_mR(rc,rc) );
 clrscrn();
 printf(" A\n");
 p_mR(A,S3,P0,C6);
 printf(" A_t\n");
 p_mR(A_t,S3,P0,C6);
 printf("\n"
 " Trace(A ) = %+.0f\n" 
 " Trace(A_t) = %+.0f\n", trace_R(A), trace_R(A_t));
 f_mR(A);
 f_mR(A_t);
/* ------------------------------------ */
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
 +2 +8 +2 +3 -4 
 -8 -8 +2 +4 -9 
 -7 -5 +5 -5 -8 
 +1 +2 -2 -8 -1 
 +2 +2 +9 +7 +7 
 A_t
 +2 -8 -7 +1 +2 
 +8 -8 -5 +2 +2 
 +2 +2 +5 -2 +9 
 +3 +4 -5 -8 +7 
 -4 -9 -8 -1 +7 
 Trace(A ) = -2
 Trace(A_t) = -2
 Press return to continue
 Press X return to stop

Fonctionnement d'un ordinateur/Les opérations FFS, FFZ, CTO et CLO

Mathc matrices/a101
Application
Installer et compiler ce fichier dans votre répertoire de travail.
/* Save as : c00a.c */
/* ------------------------------------ */
/* ------------------------------------ */
void fun(void)
double u[TAB][RU]=;
double **U[TAB];
int c;
 clrscrn();
 for(c=C0; c<TAB; c++)
 U[c] = ca_A_mR( u[c],i_mR(RU,C1));
 printf(" U[%d] : ",c); 
 p_mR(U[c],S6,P0,C10);

stop(); 
 for(c=C0; c<TAB; c++)
 f_mR(U[c]); 
/* ------------------------------------ */
int main(void)
 fun();
 return 0;
/* ------------------------------------ */
 Les vecteurs de la base U dans la base standard.
Exemple de sortie écran :
 U[0] : 
 +2 
 +2 
 +6 
 U[1] : 
 +1 
 +5 
 +3 
 U[2] : 
 +4 
 +3 
 +2 
 Press return to continue.

Mathc matrices/a102
Application
Installer et compiler ce fichier dans votre répertoire de travail.
/* Save as : c00a.c */
/* ------------------------------------ */
/* ------------------------------------ */
void fun(void)
double u[TAB][RU]=;
double **U[TAB];
double **B = i_mR(RU,RU);
int c;
 clrscrn();
 for(c=C0; c<TAB; c++)
 U[c] = ca_A_mR( u[c],i_mR(RU,C1));
 c_c_mR(U[c],C1, B,c+C1);

printf(" Three U vectors in the Standard Basis \n\n" 
 " U[0] U[1] U[2] :"); 
 p_mR(B,S6,P0,C10);
 stop();
 for(c=C0; c<TAB; c++)
 f_mR(U[c]); 
 f_mR(B); 
/* ------------------------------------ */
int main(void)
 fun();
 return 0;
/* ------------------------------------ */
 La matrice B d'affichage des vecteurs.
Exemple de sortie écran :
 Three U vectors in the Standard Basis 
 U[0] U[1] U[2] :
 +2 +1 +4 
 +2 +5 +3 
 +6 +3 +2 
 Press return to continue.

Mathc matrices/a103
Application
Installer et compiler ce fichier dans votre répertoire de travail.
/* Save as : c00a.c */
/* ------------------------------------ */
/* ------------------------------------ */
void fun(void)
double u[TAB][RU]=;
double **U[TAB];
double **B = i_mR(RU,RU);
double v[RU] = {+1,+0,+0};
double **V = ca_A_mR(v,i_mR(RU,C1));
int c;
 clrscrn();
 for(c=C0; c<TAB; c++)
 U[c] = ca_A_mR( u[c],i_mR(RU,C1));
 c_c_mR(U[c],C1, B,c+C1);

printf(" Three U vectors in the Standard Basis \n\n" 
 " U[0] U[1] U[2] :"); 
 p_mR(B,S6,P0,C10);
 printf(" The V vector in the base U : "); 
 p_mR(V,S6,P0,C10); 
 stop();
 for(c=C0; c<TAB; c++)
 f_mR(U[c]);
 f_mR(B); 
 f_mR(V); 
/* ------------------------------------ */
int main(void)
 fun();
 return 0;
/* ------------------------------------ */
 Introduction du vecteur V.
Exemple de sortie écran :
 Three U vectors in the Standard Basis 
 U[0] U[1] U[2] :
 +2 +1 +4 
 +2 +5 +3 
 +6 +3 +2 
 The V vector in the base U : 
 +1 
 +0 
 +0 
 Press return to continue.

Mathc matrices/a104
Application
Installer et compiler ce fichier dans votre répertoire de travail.
/* Save as : c00a.c */
/* ------------------------------------ */
/* ------------------------------------ */
void fun(void)
double u[TAB][RU]=;
double **U[TAB];
double **B = i_mR(RU,RU);
double v[RU] = {+1,+0,+0};
double **V = ca_A_mR(v,i_mR(RU,C1));
double **BV = i_mR(RU,C1);
int c;
 clrscrn();
 for(c=C0; c<TAB; c++)
 U[c] = ca_A_mR( u[c],i_mR(RU,C1));
 c_c_mR(U[c],C1, B,c+C1);

printf(" Three U vectors in the Standard Basis \n\n" 
 " U[0] U[1] U[2] :"); 
 p_mR(B,S6,P0,C10);

printf(" The V vector in the base U : "); 
 p_mR(V,S6,P0,C10); 
 printf(" Find the coordinate of V into the standard basis");
 mul_mR(B,V,BV);
 p_mR(BV,S6,P0,C10);
 stop();
 for(c=C0; c<TAB; c++)
 f_mR(U[c]); 
 f_mR(B); 
 f_mR(V);
 f_mR(BV); 
/* ------------------------------------ */
int main(void)
 fun();
 return 0;
/* ------------------------------------ */
 Introduction du vecteur V.
Exemple de sortie écran :
 Three U vectors in the Standard Basis 
 U[0] U[1] U[2] :
 +2 +1 +4 
 +2 +5 +3 
 +6 +3 +2 
 The V vector in the base U : 
 +1 
 +0 
 +0 
 Find the coordinate of V into the standard basis
 +2 
 +2 
 +6 
 Press return to continue.

Mathc matrices/a105
Application
Installer et compiler ce fichier dans votre répertoire de travail.
/* Save as : c00a.c */
/* ------------------------------------ */
/* ------------------------------------ */
void fun(void)
double u[TAB][RU]=;
double **U[TAB];
double **B = i_mR(RU,RU);
double w[RU] = {+2,+2,+6};
double **W = ca_A_mR(w,i_mR(RU,C1));
double **BW = i_mR(RU,C1);
double **InvB = i_mR(RU,RU);
int c;
 clrscrn();
 for(c=C0; c<TAB; c++)
 U[c] = ca_A_mR( u[c],i_mR(RU,C1));
 c_c_mR(U[c],C1, B,c+C1);

printf(" Three U vectors in the Standard Basis \n\n" 
 " U[0] U[1] U[2] :"); 
 p_mR(B,S6,P0,C10);
 printf(" The W vector in the standard basis : "); 
 p_mR(W,S6,P0,C10); 
 printf(" Find the coordinate of W into the U basis");
 mul_mR(inv_mR(B,InvB),W,BW);
 p_mR(BW,S6,P0,C10);
 stop();
 for(c=C0; c<TAB; c++)
 f_mR(U[c]); 
 f_mR(B); 
 f_mR(InvB); 
 f_mR(W); 
 f_mR(BW); 
/* ------------------------------------ */
int main(void)
 fun();
 return 0;
/* ------------------------------------ */
 Les coordonnées de W dans la base U.
Exemple de sortie écran :
 Three U vectors in the Standard Basis 
 U[0] U[1] U[2] :
 +2 +1 +4 
 +2 +5 +3 
 +6 +3 +2 
 The W vector in the standard basis : 
 +2 
 +2 
 +6 
 Find the coordinate of W into the U basis
 +1 
 -0 
 +0 
 Press return to continue.

Mathc matrices/a106
Application
Installer et compiler ce fichier dans votre répertoire de travail.
/* Save as : c00a.c */
/* ------------------------------------ */
/* ------------------------------------ */
void fun(void)
double u[TAB][RU]=;
double **U[TAB];
double **B = i_mR(RU,RU);
double v[RU] = {+1,+0};
double **V = ca_A_mR(v,i_mR(RU,C1));
double **BV = i_mR(RU,C1);
int c;
 clrscrn();
 for(c=C0; c<TAB; c++)
 U[c] = ca_A_mR( u[c],i_mR(RU,C1));
 c_c_mR(U[c],C1, B,c+C1);

printf(" Two U vectors in the Standard Basis \n\n" 
 " U[0] U[1] :"); 
 p_mR(B,S6,P0,C10);

printf(" The V vector in the base U : "); 
 p_mR(V,S6,P0,C10); 
 printf(" Find the coordinate of V into the standard basis");
 mul_mR(B,V,BV);
 p_mR(BV,S6,P0,C10);
 stop();
 for(c=C0; c<TAB; c++)
 f_mR(U[c]); 
 f_mR(B); 
 f_mR(V); 
 f_mR(BV); 
/* ------------------------------------ */
int main(void)
 fun();
 return 0;
/* ------------------------------------ */
 Introduction du vecteur V.
Exemple de sortie écran :
 Two U vectors in the Standard Basis 
 U[0] U[1] :
 +2 +1 
 +2 +5 
 The V vector in the base U : 
 +1 
 +0 
 Find the coordinate of V into the standard basis
 +2 
 +2 
 Press return to continue.

Mathc matrices/a107
Application
Installer et compiler ce fichier dans votre répertoire de travail.
/* Save as : c00a.c */
/* ------------------------------------ */
/* ------------------------------------ */
void fun(void)
double u[TAB][RU]=; 
double **U[TAB];
double **B = i_mR(RU,RU);
double w[RU] = {+2,+2};
double **W = ca_A_mR(w,i_mR(RU,C1));
double **BW = i_mR(RU,C1);
double **InvB = i_mR(RU,RU);
int c;
 clrscrn();
 for(c=C0; c<TAB; c++)
 U[c] = ca_A_mR( u[c],i_mR(RU,C1));
 c_c_mR(U[c],C1, B,c+C1);