Mathc matrices/a249
Application
Installer et compiler ces fichiers dans votre répertoire de travail.
/* Save as : c00a.c */
void fun(void)
double s = 5;
double u_T[R1*C3] = { 4, 2, 5}; 
double v_T[R1*C3] = { 3, 4, 1};
double **U_T = ca_A_mR(u_T , i_mR(R1, C3));
double **V_T = ca_A_mR(v_T , i_mR(R1, C3));
double **sU_T = smul_mR(s,U_T,i_mR(R1, C3)); 
double **sV_T = smul_mR(s,V_T,i_mR(R1, C3)); 
double **UxV_T = i_mR(R1, C3);
double **s_UxV_T = i_mR(R1, C3);
double **sUxV_T = i_mR(R1, C3);
double **UxsV_T = i_mR(R1, C3);
double **A = rp_mR(i_mR(R3, C3), 1);
// s (u x v) 
 c_r_mR(U_T, R1, A, R2);
 c_r_mR(V_T, R1, A, R3);
 c_s_mR(cofactor_R(A, R1, C1), UxV_T, R1, C1);
 c_s_mR(cofactor_R(A, R1, C2), UxV_T, R1, C2);
 c_s_mR(cofactor_R(A, R1, C3), UxV_T, R1, C3);
 smul_mR(s,UxV_T,s_UxV_T);
// (su x v) 
 c_r_mR(sU_T, R1, A, R2);
 c_r_mR(V_T, R1, A, R3);
 c_s_mR(cofactor_R(A, R1, C1), sUxV_T, R1, C1);
 c_s_mR(cofactor_R(A, R1, C2), sUxV_T, R1, C2);
 c_s_mR(cofactor_R(A, R1, C3), sUxV_T, R1, C3);
// (u x sv) 
 c_r_mR(U_T, R1, A, R2);
 c_r_mR(sV_T, R1, A, R3);
 c_s_mR(cofactor_R(A, R1, C1), UxsV_T, R1, C1);
 c_s_mR(cofactor_R(A, R1, C2), UxsV_T, R1, C2);
 c_s_mR(cofactor_R(A, R1, C3), UxsV_T, R1, C3);
 clrscrn();
 printf(" s = %+.0f\n\n",s); 
 printf(" u_T :");
 p_mR(U_T, S4, P0, C6);
 printf(" v_T :");
 p_mR(V_T, S4, P0, C6);
 printf("\n"
 " s (uxv) == su x v == u x sv\n\n"
 " s (uxv) :" ); 
 p_mR(s_UxV_T, S5, P0, C6);
 printf(" su x v :" ); 
 p_mR(sUxV_T, S5, P0, C6);
 printf(" u x sv :" ); 
 p_mR(UxsV_T, S5, P0, C6);
 stop();
 f_mR(U_T); 
 f_mR(V_T); 
 f_mR(sU_T); 
 f_mR(sV_T); 
 f_mR(UxV_T); 
 f_mR(s_UxV_T);
 f_mR(sUxV_T); 
 f_mR(UxsV_T);
 f_mR(A); 
/* ------------------------------------ */
int main(void)
 fun();
 return 0;
/* ------------------------------------ */
 Les vecteurs en mathématiques sont supposés être des vecteurs colonnes, c'est pour cela que j'utilise _T pour afficher des vecteurs lignes.

Exemple de sortie écran :
 s = +5
 u_T :
 +4 +2 +5 
 v_T :
 +3 +4 +1 
 s (uxv) == su x v == u x sv
 s (uxv) :
 -90 +55 +50 
 su x v :
 -90 +55 +50 
 u x sv :
 -90 +55 +50 
 Press return to continue.

Mathc matrices/a250
Application
Installer et compiler ces fichiers dans votre répertoire de travail.
/* Save as : c00a.c */
void fun(void)
double **U_T = r_mR(i_mR(R1, C3), 9); 
double **UxU_T = i_mR(R1, C3);
double **A = rp_mR(i_mR(R3, C3), 1);
// (u x u) 
 c_r_mR(U_T, R1, A, R2);
 c_r_mR(U_T, R1, A, R3);
 c_s_mR(cofactor_R(A, R1, C1), UxU_T, R1, C1);
 c_s_mR(cofactor_R(A, R1, C2), UxU_T, R1, C2);
 c_s_mR(cofactor_R(A, R1, C3), UxU_T, R1, C3);
 clrscrn(); 
 printf(" u_T :");
 p_mR(U_T, S4, P0, C6);
 printf("\n\n"
 " If u and v are colinear then u x v == 0\n\n"
 " (uxu) :" ); 
 p_mR(UxU_T, S4, P0, C6);
 f_mR(U_T); 
 f_mR(UxU_T); 
 f_mR(A); 
/* ------------------------------------ */
int main(void)
time_t t;
 srand(time(&t));
do
 fun();
} while(stop_w());
 return 0;
/* ------------------------------------ */
 Les vecteurs en mathématiques sont supposés être des vecteurs colonnes, c'est pour cela que j'utilise _T pour afficher des vecteurs lignes.

Exemple de sortie écran :
 u_T :
 +5 -1 +4 
 If u and v are colinear then u x v == 0
 (uxu) :
 -0 -0 +0 
 Press return to continue
 Press X return to stop

Mathc matrices/a251
Application
Installer et compiler ces fichiers dans votre répertoire de travail.
/* Save as : c00a.c */
void fun(void)
double u_T[R1*C3] = { 4, 2, 5}; 
double **U_T = ca_A_mR(u_T , i_mR(R1, C3));
double **UxU_T = i_mR(R1, C3);
double **A = rp_mR(i_mR(R3, C3), 1);
// (u x u) 
 c_r_mR(U_T, R1, A, R2);
 c_r_mR(U_T, R1, A, R3);
 c_s_mR(cofactor_R(A, R1, C1), UxU_T, R1, C1);
 c_s_mR(cofactor_R(A, R1, C2), UxU_T, R1, C2);
 c_s_mR(cofactor_R(A, R1, C3), UxU_T, R1, C3);
 clrscrn(); 
 printf(" u_T :");
 p_mR(U_T, S4, P0, C6);
 printf("\n\n"
 " If u and v are colinear then u x v == 0\n\n"
 " (uxu) :" ); 
 p_mR(UxU_T, S4, P0, C6);
 stop();
 f_mR(U_T); 
 f_mR(UxU_T); 
 f_mR(A); 
/* ------------------------------------ */
int main(void)
 fun();
 return 0;
/* ------------------------------------ */
 Les vecteurs en mathématiques sont supposés être des vecteurs colonnes, c'est pour cela que j'utilise _T pour afficher des vecteurs lignes.

Exemple de sortie écran :
 u_T :
 +4 +2 +5 
 If u and v are colinear then u x v == 0
 (uxu) :
 -0 +0 +0 
 Press return to continue.

Mathc matrices/a253
Application
Installer et compiler ces fichiers dans votre répertoire de travail.
/* Save as : inv_r.c */
void fun(int r)
double **A = r_mR(i_mR(r,r),9999.);
double **Inv = i_mR(r,r);
double **ID = i_mR(r,r);
 clrscrn();
 printf(" Copy/Past into the octave window.\n\n");
 p_Octave_mR(A,"A",P0);
 printf(" inv(A)\n");
 pE_mR(inv_mR(A,Inv),S12,P4,C4);
 stop();
 clrscrn();
 printf(" inv(A)*A\n"); 
 p_mR(mul_mR(Inv,A,ID),S0,P4,C8);
 printf(" A*inv(A)\n"); 
 p_mR(mul_mR(A,Inv,ID),S0,P4,C8);
 f_mR(ID);
 f_mR(Inv);
 f_mR(A);
/* ------------------------------------ */
int main(void)
time_t t;
 srand(time(&t));
do
 fun(rp_I(RC4)+C1);
} while(stop_w());
 return 0;
/* ------------------------------------ */
 Vérifier avec octave.

Mathc matrices/a255
Application
Installer et compiler ces fichiers dans votre répertoire de travail.
/* Save as : c00a.c */
void fun(void)
double **U_T = r_mR(i_mR(R1, C3), 9); 
double **V_T = r_mR(i_mR(R1, C3), 9); 
double **UxV_T = i_mR(R1, C3);
// A : A matrix with ones everywhere.
double **A = rp_mR(i_mR(R3, C3), 1);
// u and v -> A
 c_r_mR(U_T, R1, A, R2);
 c_r_mR(V_T, R1, A, R3);
// cofactor(A) -> (u x v) 
 c_s_mR(cofactor_R(A, R1, C1), UxV_T, R1, C1);
 c_s_mR(cofactor_R(A, R1, C2), UxV_T, R1, C2);
 c_s_mR(cofactor_R(A, R1, C3), UxV_T, R1, C3);
 clrscrn(); 
 printf(" u_T :");
 p_mR(U_T, S4, P0, C6);
 printf(" v_T :");
 p_mR(V_T, S4, P0, C6);
 printf("\n\n" 
 " u x v :"); 
 p_mR(UxV_T, S5, P0, C6); 
 f_mR(U_T); 
 f_mR(V_T);
 f_mR(UxV_T); 
 f_mR(A); 
/* ------------------------------------ */
int main(void)
time_t t;
 srand(time(&t));
do
 fun();
} while(stop_w());
 return 0;
/* ------------------------------------ */
 Les vecteurs en mathématiques sont supposés être des vecteurs colonnes, c'est pour cela que j'utilise _T pour afficher des vecteurs lignes.

Exemple de sortie écran :
 u_T :
 +7 +3 -1 
 v_T :
 +9 -7 -4 
 u x v :
 -19 +19 -76 
 Press return to continue
 Press X return to stop

Mathc matrices/a256
Application
Installer et compiler ces fichiers dans votre répertoire de travail.
/* Save as : c00a.c */
void fun(void)
double u_T[R1*C3] = { 4, 2, 5}; 
double v_T[R1*C3] = { 3, 4, 1};
double **U_T = ca_A_mR(u_T , i_mR(R1, C3));
double **V_T = ca_A_mR(v_T , i_mR(R1, C3)); 
double **UxV_T = i_mR(R1, C3);
// A : A matrix with ones everywhere.
double **A = rp_mR(i_mR(R3, C3), 1);
// u and v -> A
 c_r_mR(U_T, R1, A, R2);
 c_r_mR(V_T, R1, A, R3);
// cofactor(A) -> (u x v) 
 c_s_mR(cofactor_R(A, R1, C1), UxV_T, R1, C1);
 c_s_mR(cofactor_R(A, R1, C2), UxV_T, R1, C2);
 c_s_mR(cofactor_R(A, R1, C3), UxV_T, R1, C3);
 clrscrn(); 
 printf(" u_T :");
 p_mR(U_T, S4, P0, C6);
 printf(" v_T :");
 p_mR(V_T, S4, P0, C6);
 printf("\n\n" 
 " u x v :"); 
 p_mR(UxV_T, S5, P0, C6);
 stop(); 
 f_mR(U_T); 
 f_mR(V_T);
 f_mR(UxV_T); 
 f_mR(A); 
/* ------------------------------------ */
int main(void)
 fun();
 return 0;
/* ------------------------------------ */
 Les vecteurs en mathématiques sont supposés être des vecteurs colonnes, c'est pour cela que j'utilise _T pour afficher des vecteurs lignes.

Exemple de sortie écran :
 u_T :
 +4 +2 +5 
 v_T :
 +3 +4 +1 
 u x v :
 -18 +11 +10 
 Press return to continue.

Mathc matrices/a257
Sommaire
Mathc matrices/a258
Application
Mathc matrices/a261
Application
Mathc matrices/a259
Application
Mathc matrices/a260
Application