Aller au contenu

Mathc complexes/c05e2

Un livre de Wikilivres.


Application


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

c01e2.c
/* ------------------------------------ */
/*  Save as :   c01e2.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("\n");

  printf("    <u,v> = conj(<v,u>)\n\n");
    
  printf("        <u,v> =");
  p_Z(dot_Z(u,v), S0,P2, S0,P2);
  printf("\n");     
  printf("  conj(<v,u>) =");
  p_Z(conj_Z(dot_Z(v,u)), S0,P2, S0,P2);
  printf("\n\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;
}
/* ------------------------------------ */
/* ------------------------------------ */


Nous calculons <u,v> = conj(<v,u>)



Exemple de sortie écran :
 u :
 -1 -7i 
 -3 -9i 
 -7 -1i 
 +4 -7i 

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


    <u,v> = conj(<v,u>)

        <u,v> =-12.00+138.00i 
  conj(<v,u>) =-12.00+138.00i 


 Press return to continue
 Press X      to stop