Mathc complexes/a260

Application

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

	c00a.c

/* ------------------------------------ */
/*  Save as :   c00a.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("      <u,v> != <v,u>  [Antisymmetry axiom ] \n\n");
  
  printf("      <u,v> = conj(v)^t.u   \n");
  printf("      <u,v> =");
  p_Z(dot_Z(u,v), S5,P0, S4,P0);printf("\n\n");
    
  printf("      <v,u> = conj(u)^t.v   \n");
  printf("      <v,u> =");
  p_Z(dot_Z(v,u), S5,P0, S4,P0);printf("\n");
  
  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;
}
/* ------------------------------------ */
/* ------------------------------------ */

Exemple de sortie écran :

 u :
 -1 -9i 
 -9 +4i 
 +4 +6i 
 -1 -2i 
 -4 -6i 

 v :
 -2 -4i 
 -8 -7i 
 +8 -3i 
 +2 +7i 
 +2 -9i 

      <u,v> != <v,u>  [Antisymmetry axiom] 

      <u,v> = conj(v)^t.u   
      <u,v> = +126 -66i 

      <v,u> = conj(u)^t.v   
      <v,u> = +126 +66i 

 Press   return to continue
 Press X return to stop