Mathc complexes/Fichiers c : mul r

Un livre de Wikilivres.
Sauter à la navigation Sauter à la recherche


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

Crystal Clear mimetype source c.png mulr.c
'
/* ------------------------------------ */
/*  Save as :   mulr.c                 */
/* ------------------------------------ */
#include "w_a.h"
/* ------------------------------------ */
int main(void)
{
double a[R3*(C3*C2)] ={  1,1,   2,1,   3,1,
                         1,1,   2,1,   3,1,
                         1,1,   2,1,   3,1};
                     
double **A = ca_A_mZ(a,i_mZ(R3,C3));
	
nb_Z z = i_Z(10,0);

int r = R2;

 clrscrn();
 
 printf(" A : \n");
 p_mZ(A,5,0,3,0,6);
 
 printf(" multiply row R%d by ",r); 
 p_Z(z,1,0,1,0); 
 printf("\n\n\n");
 
 printf("A : \n");
 p_mZ(mulR_mZ(A,z,r), 5,0, 3,0,C6);

 f_mZ(A);

 stop();

 return 0;
}


La fonction mulR_mZ(); multiplie la ligne r par un complexe z.


Exemple de sortie écran :

  A : 

   +1 +1i    +2 +1i    +3 +1i 
   +1 +1i    +2 +1i    +3 +1i 
   +1 +1i    +2 +1i    +3 +1i 

 multiply row R2 by +10+0i 


A : 

   +1 +1i    +2 +1i    +3 +1i 
  +10+10i   +20+10i   +30+10i 
   +1 +1i    +2 +1i    +3 +1i 

 Press return to continue.