Mathc matrices/c05e

Un livre de Wikilivres.
Aller à la navigation Aller à la recherche


Sommaire


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

Crystal Clear mimetype source c.png c05e.c
'
/* ------------------------------------ */
/*  Save as :   c05e.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.);

  clrscrn();
  printf(" u :");
  p_mR(u,S3,P0,C6);
  printf(" v :");
  p_mR(v,S3,P0,C6);
  
  printf("      <u,v> = v^t u\n");
  printf("      <u,v> = %.0f  \n\n", dot_uv_R(u,v));
  printf("      <v,u> = u^t v\n");
  printf("      <v,u> = %.0f \n\n", dot_uv_R(v,u));

  f_mR(u);
  f_mR(v);
}
/* ------------------------------------ */
int main(void)
{
time_t t;

  srand(time(&t));

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


} while(stop_w());

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


Nous voyons le produit scalaire : dotuv_R(u,v);



Exemple de sortie écran :
 u :
 -7 
 +2 
 +6 

 v :
 -9 
 -7 
 +4 

      <u,v> = v^t u
      <u,v> = 73  

      <v,u> = u^t v
      <v,u> = 73 


 Press return to continue
 Press X      to stop