Mathc complexes/a78

Application

Le code de la fonction :

/* ------------------------------------ */
/* ------------------------------------ */
double **c_n_r_mZ(
int r_n,
double **A,
double **B
)
{
int r;
int c;
           //      <=
 	for    (r=R1; r<=r_n; r++)
 	   for (c=C1; c<A[C_SIZE][C0]; c++)

            B[r][c] = A[r][c];
            
return(B);
}
/* ------------------------------------ */
/* ------------------------------------ */

Copier les n premières lignes de A dans la matrice B.

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;
}
/* ------------------------------------ */
/* ------------------------------------ */

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