Mathc complexes/c05i

Application

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

	c01i.c

/* ------------------------------------ */
/*  Save as :   c01i.c                   */
/* ------------------------------------ */

/* ------------------------------------ */
#include "w_a.h"
/* ------------------------------------ */
void fun(int r)
{
double **u  = r_mZ(i_mZ(r,C1),9.);
double **v  = r_mZ(i_mZ(r,C1),9.);

  clrscrn();
  printf(" u :");
  p_mZ(u, S3,P0, S3,P0, C6); 
  printf(" v :");
  p_mZ(v, S3,P0, S3,P0, C6); 
  
  printf("    d(u,v) = ||u-v|| = (<u-v,u-v>)^1/2  \n\n");
  printf("    d(u,v) = %.4f   \n", dist_Z(u,v));
  printf("    d(v,u) = %.4f \n\n", dist_Z(v,u));

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

  srand(time(&t));
  
do
{
  fun(rp_I(R3)+R2);
} while(stop_w());

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

Nous calulons la distance entre deux vecteurs : distuv_Z(u,v);



Exemple de sortie écran :

 u :
 +2 -5i 
 -7 +2i 
 +6 -7i 
 +8 +2i 
 -5 +6i 

 v :
 +6 +6i 
 -1 -5i 
 +2 +8i 
 +4 -3i 
 -3 -5i 

    d(u,v) = ||u-v|| = (<u-v,u-v>)^1/2  

    d(u,v) = 25.080   
    d(v,u) = 25.080 


 Press return to continue
 Press X      to stop