Mathc complexes/a262

Application

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

	c00c.c

/* ------------------------------------ */
/*  Save as :   c00c.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.);

double **ku  =     i_mZ(r,C1);

double k = r_I(9);

  clrscrn();
  printf(" u :");
  p_mZ(u,S3,P0,S3,P0,C6);
  printf(" v :");
  p_mZ(v,S3,P0,S3,P0,C6);
  printf(" k*u :");
  p_mZ(smul_mZ(k,u,ku),S3,P0,S3,P0,C6);

  printf("      <ku,v> = k<u,v>     [Homogeneity axiom] \n\n");
  
  printf("      <ku,v> =");
  p_Z(dot_Z(ku,v), S5,P0, S4,P0);printf("\n");
  
  printf("      k<u,v> =");
  p_Z(smul_Z(k,dot_Z(u,v)), S5,P0, S4,P0);printf("\n");
    
  f_mZ(u);
  f_mZ(v);
  f_mZ(ku);  
}
/* ------------------------------------ */
int main(void)
{
time_t t;

  srand(time(&t));

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


} while(stop_w());

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

Exemple de sortie écran :

 u :
 -6 -3i 
 -2 -3i 
 +3 +1i 

 v :
 -9 -4i 
 +3 -1i 
 +3 +6i 

 k*u :
+24+12i 
 +8+12i 
-12 -4i 

      <ku,v> = k<u,v>     [Homogeneity axiom] 

      <ku,v> = -312 +92i 
      k<u,v> = -312 +92i 

 Press   return to continue
 Press X return to stop