Mathc complexes/Fichiers c : swap c

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 swapc.c
'
/* ------------------------------------ */
/*  Save as :   swapc.c                 */
/* ------------------------------------ */
#include "w_a.h"
/* ------------------------------------ */
int main(void)
{
double a[R3*(C3*C2)] ={  1,1,   2,2,   3,3,
                         1,1,   2,2,   3,3,
                         1,1,   2,2,   3,3};
                     
double **A = ca_A_mZ(a,i_mZ(R3,C3));

int c1 = C1;
int c2 = C3;    

 clrscrn();
 
 printf(" A :");
 p_mZ(A, 5,0, 4,0, C6);

 printf(" swapC_mZ(A,C%d,C%d)\n\n",c1,c2);
 
 printf(" A :");
 p_mZ(swapC_mZ(A,c1,c2), 5,0, 4,0, C6);

 printf(" Print the row 0");
 pall_mZ(A, 5,0, 4,0);

 f_mZ(A);

 stop();

 return 0;
}


La fonction swapC_mZ(); échange deux colonnes.


Exemple de sortie écran :

 A :
   +1  +1i    +2  +2i    +3  +3i 
   +1  +1i    +2  +2i    +3  +3i 
   +1  +1i    +2  +2i    +3  +3i 

 swap_c_Z(A,C1,C3)

 A :
   +3  +3i    +2  +2i    +1  +1i 
   +3  +3i    +2  +2i    +1  +1i 
   +3  +3i    +2  +2i    +1  +1i 

 Print the row 0
   +4    +3   0     +2   0     +1   0  

   +7    +3  +3i    +2  +2i    +1  +1i 
   +0    +3  +3i    +2  +2i    +1  +1i 
   +0    +3  +3i    +2  +2i    +1  +1i 

 Press return to continue.