Mathc complexes/00r

Application

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

	c00a.c

/* ------------------------------------ */
/*  Save as :   c00a.c                  */
/* ------------------------------------ */
#include "w_a.h"
/* ------------------------------------ */
void fun(void)
{
double  a[R3*(C3*C2)]={ 1,1, 1,1, 1,1,
                        2,2, 2,2, 2,2,
                        3,3, 3,3, 3,3 };
                        	
double id[R3*(C3*C2)]={ 0,0, 1,0, 0,0,
                        1,0, 0,0, 0,0,
                        0,0, 0,0, 1,0 };                
              
double **A  = ca_A_mZ(a, i_mZ(R3,C3));
double **ID = ca_A_mZ(id,i_mZ(R3,C3));

double **IDA = mul_mZ(ID,A,i_mZ(R3,C3));

  clrscrn();
  printf(" ID : Interchange two rows.");
  p_mZ(ID, S4,P0, S3,P0, C6);
  printf(" A :");
  p_mZ(A, S4,P0, S3,P0, C6); 
  printf(" ID A :");
  p_mZ(IDA, S4,P0, S3,P0, C6);
    
  f_mZ(A);
  f_mZ(ID);
  f_mZ(IDA);
}
/* ------------------------------------ */
int main(void)
{

  fun();
  
  stop();

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

échanger deux lignes

Exemple de sortie écran :

 ID : Interchange two rows.
  +0 +0i   +1 +0i   +0 +0i 
  +1 +0i   +0 +0i   +0 +0i 
  +0 +0i   +0 +0i   +1 +0i 

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

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

 Press return to continue.