Mathc complexes/a56

Application

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

	c00.c

/* ------------------------------------ */
/*  Save as :   c00.c                   */
/* ------------------------------------ */
#include "w_a.h"
/* ------------------------------------ */
void fun(int rc)
{
double **A   = r_mRZ(i_mZ(rc,rc), 999);

  clrscrn();

  printf(" A : Real Values");
  p_mZ(A, S6,P0, S3,P0, C8);
  
  printf(" A : Real Values");;
  p_mRZ(A, S6,P0, C8);
   
  f_mZ(A);
}
/* ------------------------------------ */
int main(void)
{
time_t t;

  srand(time(&t));
  
  do
        fun(rp_I(RC3)+R2);

  while(stop_w());       

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

Exemple de sortie écran :

 A : Real Values
  -672 +0i   +314 +0i   +555 +0i   -481 +0i   +185 +0i 
  -745 +0i   +820 +0i   +442 +0i   -274 +0i   -976 +0i 
  +627 +0i   -197 +0i   -466 +0i   +187 +0i   -626 +0i 
  -435 +0i   +616 +0i    +24 +0i   +596 +0i   -950 +0i 
  +247 +0i   +953 +0i   +771 +0i   -213 +0i   +884 +0i 

 A : Real Values
  -672   +314   +555   -481   +185 
  -745   +820   +442   -274   -976 
  +627   -197   -466   +187   -626 
  -435   +616    +24   +596   -950 
  +247   +953   +771   -213   +884 


 Press   return to continue
 Press X return to stop