Mathc complexes/a75

Application

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

	c01a.c

/* ------------------------------------ */
/*  Save as :   c01a.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+R2,c);
double **C     = eye_mZ(i_mZ(r+R2,r+C2));

  clrscrn(); 
  
  printf(" A :");
  p_mZ(A,S5,P0,S3,P0,C10);   
    
  printf(" B : c_mZ(A,B);");
  c_mZ(A,B);
  p_mZ(B,S5,P0,S3,P0,C10); 

  printf(" C  : c_mZ(A,C);");
  c_mZ(A,C );
  p_mZ(C ,S5,P0,S3,P0,C10);  

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

  srand(time(&t));

int i;

do
{
  i = rp_I(R3)+R1;
  
  fun(i,i+C1);

} while(stop_w());

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

  Copier une matrice A dans une matrice B. A et B sont de tailles différentes :

Exemple de sortie écran :

 A :
  +19 +3i   +77-11i   -11+97i 
  -64-73i   -33-28i   +38-15i 

 B : c_mZ(A,B);
  +19 +3i   +77-11i   -11+97i 
  -64-73i   -33-28i   +38-15i 
   +0 +0i    +0 +0i    +0 +0i 
   +0 +0i    +0 +0i    +0 +0i 

 C  : c_mZ(A,C);
  +19 +3i   +77-11i   -11+97i    +0 +0i 
  -64-73i   -33-28i   +38-15i    +0 +0i 
   +0 +0i    +0 +0i    +1 +0i    +0 +0i 
   +0 +0i    +0 +0i    +0 +0i    +1 +0i 


 Press return to continue
 Press X      to stop