Mathc matrices/a237

Application

Installer et compiler ces fichiers dans votre répertoire de travail.

	c00a.c

/* ------------------------------------ */
/*  Save as :   c00a.c                  */
/* ------------------------------------ */
#include "v_a.h"
/* ------------------------------------ */
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 **A   =   rp_mR(     i_mR(R3, C3), 1);
double **B   =   rp_mR(     i_mR(R3, C3), 1);

  c_r_mR(U_T, R1, A, R2);
  c_r_mR(V_T, R1, A, R3);
  
  c_r_mR(V_T, R1, B, R2);
  c_r_mR(U_T, R1, B, R3);
    
  clrscrn();       
  printf("  u_T  :");
  p_mR(U_T, S3, P0, C6);
  printf("  v_T  :");
  p_mR(V_T, S3, P0, C6);
                  
  printf("\n     u x v == -v x u           C* = cofactors \n\n"
         " u x v = (C11, C12, C13) = (%+.0f, %+.0f, %+.0f)  \n"
         " v x u = (C11, C12, C13) = (%+.0f, %+.0f, %+.0f)\n\n", 
  
                 cofactor_R(A, R1, C1),   
                 cofactor_R(A, R1, C2),                
                 cofactor_R(A, R1, C3), 

                 cofactor_R(B, R1, C1),   
                 cofactor_R(B, R1, C2),                
                 cofactor_R(B, R1, C3) );
  stop(); 

  f_mR(U_T); 
  f_mR(V_T);
   
  f_mR(A);
  f_mR(B); 
}
/* ------------------------------------ */
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 == -v x u           C* = cofactors 

 u x v = (C11, C12, C13) = (-18, +11, +10)  
 v x u = (C11, C12, C13) = (+18, -11, -10)

 Press return to continue.