Mathc matrices/cq067

Application

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

	c00h.c

/* ------------------------------------ */
/*  Save as :   c00h.c                  */
/* ------------------------------------ */
#include "v_a.h"
/* ------------------------------------ */
void fun(int r)
{
double **u  = r_mR(i_mR(r,C1),9.);
double **v  = r_mR(i_mR(r,C1),9.);
double **w  = r_mR(i_mR(r,C1),9.);

double **umnsv  =  i_mR(r,C1);

  clrscrn();
  printf(" u :");
  p_mR(u,S3,P0,C6);
  printf(" v :");
  p_mR(v,S3,P0,C6);
  printf(" u-v :");
  p_mR(sub_mR(u,v,umnsv),S3,P0,C6);
  stop();
    
  clrscrn();  
  printf("      <u-v,w> = <u,w>-<v,w>  \n\n");
  
  printf("     <u-v,w>  = %.0f    \n", dot_R(umnsv,w));
  printf(" <u,w>-<v,w>  = %.0f  \n\n", dot_R(u,w)-dot_R(v,w));
  
  f_mR(u);
  f_mR(v);
  f_mR(w);
  f_mR(umnsv);
}
/* ------------------------------------ */
int main(void)
{
time_t t;

  srand(time(&t));

do
{
  fun(rp_I(R3)+R2);


} while(stop_w());

  return 0;
}
/* ------------------------------------ */
/* ------------------------------------ */

Exemple de sortie écran :

 u :
 -4 
 +7 
 +9 
 -3 
 +8 

 v :
 -4 
 +8 
 -5 
 +1 
 +6 

 u-v :
 +0 
 -1 
+14 
 -4 
 +2 

 Press return to continue. 



      <u-v,w> = <u,w>-<v,w>  

     <u-v,w>  = -84    
 <u,w>-<v,w>  = -84  


 Press return to continue
 Press X      to stop