Mathc complexes/a204

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)
{
nb_Z z = r_Z(9);;

double **A  =    r_mZ(      i_mZ(r,r),9.);
double **zA = zmul_mZ(z,A,  i_mZ(r,r)   );

  clrscrn(); 
  printf(" With z = ");p_Z(z,S3,P0,S3,P0);printf(" and r = %d\n\n",r);
  
  printf(" A[r][r] : r = rows \n\n\n"
         " A   :       (z**r)*det_Z(A)  = ");
  p_Z(mul_Z( pow_Z(r,z), det_Z(A) ), S4,P0, S5,P0);
  p_mZ(A, S4,P0, S4,P0, C3);

  printf(" zA :               det_Z(zA) = ");
  p_Z(det_Z(zA), S4,P0, S5,P0);
  p_mZ(zA, S4,P0, S4,P0, C3);

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

  srand(time(&t));

do
{
   fun(RC3);

} while(stop_w());

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

Exemple de sortie écran :

 With z =  -7 -4i  and r = 3

 A[r][r] : r = rows 


 A   :       (z**r)*det_Z(A)  = -228724+768232i 
  +4  +6i   +1  +8i   +2  -5i 
  +1  -8i   -2  +8i   -4  -1i 
  +3  -9i   -4  -6i   +7  +7i 

 zA :               det_Z(zA) = -228724+768232i 
  -4 -58i  +25 -60i  -34 +27i 
 -39 +52i  +46 -48i  +24 +23i 
 -57 +51i   +4 +58i  -21 -77i 


 Press   return to continue
 Press X return to stop