Mathc complexes/a78

Application

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

	c00c.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 :");
  p_mZ(A, S5,P0, S4,P0, C10);   
    
  printf(" B : c_n_r_mZ(R3,A,B);");
  p_mZ(c_n_r_mZ(R3,A,B), S5,P0, S4,P0, C10);

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

  srand(time(&t));

int i;

do
{
  i = rp_I(R3);
  
  fun(i+C3,i+C2);

} while(stop_w());

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

Copier n lignes d'une matrice A dans une matrice B :

Exemple de sortie écran :

 -------------------------------- 
 A :
  -25  -5i   +57 +90i   -46 +39i 
  -87 +54i   +52 +43i   -82  +4i 
   -6 +75i   -41 -99i   -24 -18i 
  -73 +32i   +70 +43i   -72  +7i 

 B : c_n_r_mZ(R3,A,B);
  -25  -5i   +57 +90i   -46 +39i 
  -87 +54i   +52 +43i   -82  +4i 
   -6 +75i   -41 -99i   -24 -18i 
   +0  +0i    +0  +0i    +0  +0i 


 Press return to continue
 Press X      to stop