Mathc matrices/c10b

Application

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

	c00c.c

/* ------------------------------------ */
/*  Save as :   c00c.c                  */
/* ------------------------------------ */
#include    "v_a.h"
#include "dot_au.h"
/* ------------------------------------ */
void fun(int r)
{
double a[R2*C2]={ 2,1,
                  1,1};
double u[R2*C1]={ 1,
                  1};
double v[R2*C1]={ 3,
                  2}; 
double w[R2*C1]={ 0,
                 -1};
                                                               
double **A = ca_A_mR(a,i_mR(R2,C2));

double **U = ca_A_mR(u,i_mR(R2,C1));
double **V = ca_A_mR(v,i_mR(R2,C1));
double **W = ca_A_mR(w,i_mR(R2,C1));

double **UplsV = add_mR(U,V,i_mR(R2,C1));

  clrscrn();
  printf(" A :");
  p_mR(A,S3,P0,C6);
  printf(" U :");
  p_mR(U,S3,P0,C6);  
  printf(" V :");
  p_mR(V,S3,P0,C6);  
  printf(" W :");
  p_mR(W,S3,P0,C6); 
  
  printf(" UplsV :");
  p_mR(UplsV,S3,P0,C6); 
  stop();

  clrscrn();  
  printf("      <U+V,W> = <U,W>+<V+W>  [Additivity axiom] \n\n");

  printf("      <u+v,w> = %.0f    \n", dot_Au_R(A,UplsV,W));
  printf("  <u,w>+<v+w> = %.0f  \n\n", dot_Au_R(A,U, W)+
                                       dot_Au_R(A,V, W));
  
  f_mR(A);
  f_mR(U);
  f_mR(V);
  f_mR(W);
  f_mR(UplsV);  
}
/* ------------------------------------ */
int main(void)
{
time_t t;

  srand(time(&t));

  fun(rp_I(R3)+R1);
  
  stop();

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

Exemple de sortie écran :

 ------------------------------------ 
 A :
 +2  +1 
 +1  +1 

 U :
 +1 
 +1 

 V :
 +3 
 +2 

 W :
 +0 
 -1 

 UplsV :
 +4 
 +3 

 Press return to continue. 

 ------------------------------------ 
      <U+V,W> = <U,W>+<V+W>  [Additivity axiom] 

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

 Press return to continue.