Mathc complexes/a264

Application

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

	c00e.c

/* ------------------------------------ */
/*  Save as :   c00e.c                  */
/* ------------------------------------ */
#include "w_a.h"
/* ------------------------------------ */
void fun(int r)
{
double **u  = m0_mZ(i_mZ(r,C1));
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("      <0,v> = <v,0>  \n\n");
  printf("      <u,v> = v^t.u   \n");
  printf("      <u,v> =");
  p_Z(dot_Z(u,v), S4,P0, S3,P0);printf("\n\n");
  
  printf("      <v,u> = u^t.v   \n"); 
  printf("      <v,u> =");
  p_Z(dot_Z(v,u), S4,P0, S3,P0);printf("\n");

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

  srand(time(&t));

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


} while(stop_w());

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

Exemple de sortie écran :

 u :
 +0 +0i 
 +0 +0i 
 +0 +0i 
 +0 +0i 

 v :
 +2 +9i 
 -5 -5i 
 -7 -9i 
 -6 -1i 

      <0,v> = <v,0>  

      <u,v> = v^t.u   
      <u,v> =  +0 +0i 

      <v,u> = u^t.v   
      <v,u> =  +0 +0i 

 Press   return to continue
 Press X return to stop