Mathc complexes/a76

Application

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

	c00a.c

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

  clrscrn(); 
  
  printf(" A :");
  p_mZ(A, S5,P0, S5,P0, C10);   
    
  printf(" A : c_r1Ar2_mZ(R1,A, R2);");
  p_mZ(c_r1Ar2_mZ(R1,A, R2), S5,P0, S5,P0, C10);
  
  f_mZ(A);
}
/* ------------------------------------ */
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 ligne R1 dans la ligne R2 d'une matrice :

Exemple de sortie écran :

 -------------------------------- 
 A :
  -80  -25i   +75  +43i   -36  +83i   +32  +68i 
  +19  -34i   -26  -98i    -1  +62i   -99  -28i 
   -4   -8i   -97  -71i   +55  +68i   -87  +36i 

 A : c_r1Ar2_mZ(A,R1,R2);
  -80  -25i   +75  +43i   -36  +83i   +32  +68i 
  -80  -25i   +75  +43i   -36  +83i   +32  +68i 
   -4   -8i   -97  -71i   +55  +68i   -87  +36i 


 Press return to continue
 Press X      to stop