Mathc complexes/a12

Application

Installer et compiler ce fichier dans votre répertoire de travail.

	c00b.c

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

  clrscrn();
  printf(" A : \n");        
  p_mZ(A, S5,P0, S4,P0,C6);

  c_r_mZ(A,R1,B,R2);  
  printf(" B : \n");        
  p_mZ(B, S5,P0, S4,P0,C6);  
  
  printf(" B : \n");        
  p_mZ(c_r_mZ(A,R1,B,R2), S5,P0, S4,P0,C6);    
  
  f_mZ(B);
  f_mZ(A);
}
/* ------------------------------------ */
int main(void)
{
time_t t;

  srand(time(&t));
  
  do
        fun(rp_I(R3)+R1,rp_I(C3));

  while(stop_w());       

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

Exemple de sortie écran :

 A : 

  -24 +19i   -41 -45i 
  -50 +50i   -46  +4i 
  -49 +74i   -93 +23i 

 B : 

   +0  +0i    +0  +0i 
  -24 +19i   -41 -45i 
   +0  +0i    +0  +0i 

 B : 

   +0  +0i    +0  +0i 
  -24 +19i   -41 -45i 
   +0  +0i    +0  +0i 


 Press return to continue
 Press X      to stop