Mathc complexes/c072a

Application

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

	c02a.c

/* ------------------------------------ */
/*  Save as :  c02a.c                   */
/* ------------------------------------ */
#include "w_a.h"
/* ------------------------------------ */
void fun(int r)
{
double **A  = r_mZ(i_mZ(r,r),9.);
double **At =      i_mZ(r,r);

  clrscrn();
  printf(" A\n");
  p_mZ(A, S3,P0, S3,P0, C6);

  printf(" At\n");
  p_mZ(transpose_mZ(A,At), S3,P0, S3,P0, C6);
  
  printf("\n det(A ) = ");
  p_Z(det_Z(A), S1,P0, S1,P0);
  
  printf("\n det(At) = ");
  p_Z(det_Z(At), S1,P0, S1,P0);

  f_mZ(A);
  f_mZ(At);
}
/* ------------------------------------ */
int main(void)
{
time_t t;

  srand(time(&t));
do
{
  fun(rp_I(RC5)+RC1);
  
} while(stop_w());

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

Exemple de sortie écran :

 A

 +8 +4i  -5 -3i  +2 -1i  -7 +4i 
 -5 +4i  +8 -9i  -5 +4i  -5 -7i 
 +4 +2i  +4 -9i  -7 -1i  -9 -9i 
 +4 +2i  -1 -5i  -7 -7i  -3 -3i 

 At

 +8 +4i  -5 +4i  +4 +2i  +4 +2i 
 -5 -3i  +8 -9i  +4 -9i  -1 -5i 
 +2 -1i  -5 +4i  -7 -1i  -7 -7i 
 -7 +4i  -5 -7i  -9 -9i  -3 -3i 


 det(A ) = +1478-5234i 
 det(At) = +1478-5234i 
 Press return to continue
 Press X      to stop