Mathc complexes/a13

Application

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

	c00b.c

/* ------------------------------------ */
/*  Save as :   c00d.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_c_mZ(A,C1,B,C2);  
  printf(" B : \n");        
  p_mZ(B, S5,P0, S4,P0,C6);  
  
  printf(" B : \n");        
  p_mZ(c_c_mZ(A,C1,B,C2), 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),rp_I(C3)+C1);

  while(stop_w());       

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

La fonction ca_A_mR(); permet de copier un tableau dans une matrice.

Exemple de sortie écran :

  -42 +77i   +64 +48i   -60 +80i 
  -94 +46i   -20 +70i   +77 -86i 
  -98 -68i   -39 -89i   +42 +88i 

 B : 

   +0  +0i   -42 +77i    +0  +0i 
   +0  +0i   -94 +46i    +0  +0i 
   +0  +0i   -98 -68i    +0  +0i 

 B : 

   +0  +0i   -42 +77i    +0  +0i 
   +0  +0i   -94 +46i    +0  +0i 
   +0  +0i   -98 -68i    +0  +0i 


 Press return to continue
 Press X      to stop