Mathc matrices/c10a

Application

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

	c00b.c

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

double **V  = ca_A_mR(v,  i_mR(R2,C1));
double **kV = smul_mR(k,V,i_mR(R2,C1));

double **W  = ca_A_mR(w,  i_mR(R2,C1));


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

  printf(" %.0f V :",k);
  p_mR(kV,S3,P0,C6);  
 
  printf("    <kV,W> = k<V,W>     [Homogeneity axiom] \n\n");

  printf("    <kV,W> = %.0f    \n",   dot_Au_R(A,kV,W));
  printf("    k<V,W> = %.0f  \n\n", k*dot_Au_R(A,V, W));
  
  
  f_mR(A);
  f_mR(V);
  f_mR(kV);
  f_mR(W);
}
/* ------------------------------------ */
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 

 V :
 +3 
 +2 

 W :
 +0 
 -1 

 3 V :
 +9 
 +6 

    <kV,W> = k<V,W>     [Homogeneity axiom] 

    <kV,W> = -39    
    k<V,W> = -39  

 Press return to continue.