Mathc matrices/a262

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 = 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);
  
  m0_mR(UxV_T);
  
  printf("\n\n" 
         "    u x v :");    
  p_mR(UxV_mR(U_T,V_T,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;
}
/* ------------------------------------ */
/* ------------------------------------ */

Important :

La fonction UxV_mR(); se trouve dans le fichier ve_det3.h .
Il faut mettre à jour le fichier vc_m.h .
Il faut mettre à jour le fichier v_g.h

Exemple de sortie écran :

 --------------------
  u_T  :
  -2   +6   +8 

  v_T  :
  +5   +8   -7 



    u x v :
 -106   +26   -46 



    u x v :    with  UxV_mR(U_T,V_T,UxV_T);
 -106   +26   -46 


 Press   return to continue
 Press X return to stop