printf(" Two U vectors in the Standard Basis \n\n" 
 " U[0] U[1] :"); 
 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(W); 
 f_mR(BW);
 f_mR(InvB); 
/* ------------------------------------ */
int main(void)
 fun();
 return 0;
/* ------------------------------------ */
 Les coordonnées de W dans la base U.
Exemple de sortie écran :
 Two U vectors in the Standard Basis 
 U[0] U[1] :
 +2 +1 
 +2 +5 
 The W vector in the standard basis : 
 +2 
 +2 
 Find the coordinate of W into the U basis
 +1 
 +0 
 Press return to continue.

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

stop(); 
 for(c=C0; c<TAB; c++)
 f_mZ(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 +3i 
 +2 +5i 
 +6 +1i 
 U[1] : 
 +1 +2i 
 +5 +2i 
 +3 +3i 
 U[2] : 
 +4 +1i 
 +3 +2i 
 +2 +3i 
 Press return to continue.

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

printf(" Three U vectors in the Standard Basis \n\n" 
 " U[0] U[1] U[2] :"); 
 p_mZ(B,S6,P0,S3,P0,C10);
 stop();
 for(c=C0; c<TAB; c++)
 f_mZ(U[c]); 
 f_mZ(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 +3i +1 +2i +4 +1i 
 +2 +5i +5 +2i +3 +2i 
 +6 +1i +3 +3i +2 +3i 
 Press return to continue.

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

printf(" Three U vectors in the Standard Basis \n\n" 
 " U[0] U[1] U[2] :"); 
 p_mZ(B,S6,P0,S3,P0,C10);
 printf(" The V vector in the base U : "); 
 p_mZ(V,S6,P0,S3,P0,C10); 
 stop();
 for(c=C0; c<TAB; c++)
 f_mZ(U[c]); 
 f_mZ(B); 
 f_mZ(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 +3i +1 +2i +4 +1i 
 +2 +5i +5 +2i +3 +2i 
 +6 +1i +3 +3i +2 +3i 
 The V vector in the base U : 
 +1 +0i 
 +0 +0i 
 +0 +0i 
 Press return to continue.

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

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

printf(" The V vector in the base U : "); 
 p_mZ(V,S6,P0,S3,P0,C10); 
 printf(" Find the coordinate of V into the standard basis");
 mul_mZ(B,V,BV);
 p_mZ(BV,S6,P0,S3,P0,C10);
 stop();
 for(c=C0; c<TAB; c++)
 f_mZ(U[c]); 
 f_mZ(B); 
 f_mZ(V); 
 f_mZ(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 +3i +1 +2i +4 +1i 
 +2 +5i +5 +2i +3 +2i 
 +6 +1i +3 +3i +2 +3i 
 The V vector in the base U : 
 +1 +0i 
 +0 +0i 
 +0 +0i 
 Find the coordinate of V into the standard basis
 +2 +3i 
 +2 +5i 
 +6 +1i 
 Press return to continue.

Mathc complexes/a186
Application
Installer et compiler ce fichier dans votre répertoire de travail.
/* ------------------------------------ */
/* Save as : c00a.c */
/* ------------------------------------ */
/* ------------------------------------ */
void fun(void)
double u[TAB][RU*C2]=;
double **U[TAB];
double **B = i_mZ(RU,RU);
double w[RU*C2] = {+2,3, +2,5, +6,1};
double **W = ca_A_mZ(w,i_mZ(RU,C1));
double **BW = i_mZ(RU,C1);
double **InvB = i_mZ(RU,RU);
int c;
 clrscrn();
 for(c=C0; c<TAB; c++)
 U[c] = ca_A_mZ( u[c],i_mZ(RU,C1));
 c_c_mZ(U[c],C1, B,c+C1);

printf(" Three U vectors in the Standard Basis \n\n" 
 " U[0] U[1] U[2] :"); 
 p_mZ(B,S6,P0,S3,P0,C10);
 printf(" The W vector in the standard basis : "); 
 p_mZ(W,S6,P0,S3,P0,C10); 
 printf(" Find the coordinate of W into the U basis");
 mul_mZ(inv_mZ(B,InvB),W,BW);
 p_mZ(BW,S6,P0,S3,P0,C10);
 stop();
 for(c=C0; c<TAB; c++)
 f_mZ(U[c]); 
 f_mZ(B); 
 f_mZ(InvB); 
 f_mZ(W);
 f_mZ(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 +3i +1 +2i +4 +1i 
 +2 +5i +5 +2i +3 +2i 
 +6 +1i +3 +3i +2 +3i 
 The W vector in the standard basis : 
 +2 +3i 
 +2 +5i 
 +6 +1i 
 Find the coordinate of W into the U basis
 +1 -0i 
 +0 +0i 
 +0 +0i 
 Press return to continue.

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

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

printf(" The V vector in the base U : "); 
 p_mZ(V,S6,P0,S3,P0,C10); 
 printf(" Find the coordinate of V into the standard basis");
 mul_mZ(B,V,BV);
 p_mZ(BV,S6,P0,S3,P0,C10);
 stop();
 for(c=C0; c<TAB; c++)
 f_mZ(U[c]); 
 f_mZ(B); 
 f_mZ(V); 
 f_mZ(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 +1i +1 +5i 
 +2 +3i +5 +2i 
 The V vector in the base U : 
 +1 +0i 
 +0 +0i 
 Find the coordinate of V into the standard basis
 +2 +1i 
 +2 +3i 
 Press return to continue.