Aller au contenu

Mathc complexes/a198

Un livre de Wikilivres.


Application


Installer et compiler ces fichiers dans votre répertoire de travail.


c00a.c
/* ------------------------------------ */
/*  Save as :   c00a.c                  */
/* ------------------------------------ */
#include "w_a.h"
/* ------------------------------------ */
#define    RA            R3
#define    CA            C3
/* ------------------------------------ */
int main(void)
{
double a[RA*(CA*C2)] ={ 1,2,  3,4,  5,6,
                        5,4,  1,3,  6,8,
                        7,2,  5,1,  1,1};
                        
double **A = ca_A_mZ(a,i_mZ(RA,RA));

double **Adjoint =     i_mZ(RA,RA);

  clrscrn();
  printf(" A :");
  p_mZ(A, S5,P0, S4,P0, C6);

  printf(" Adjoint :");
  p_mZ(adjoint_mZ(A,Adjoint), S5,P0, S4,P0, C6);
  stop();

  f_mZ(A);
  f_mZ(Adjoint);

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


Exemple de sortie écran :
 A :
   +1  +2i    +3  +4i    +5  +6i 
   +5  +4i    +1  +3i    +6  +8i 
   +7  +2i    +5  +1i    +1  +1i 

 Adjoint :
  -24 -42i   +20 +28i    -1 +27i 
  +25 +59i   -24 -49i   +11 +30i 
  +20  +2i   +10 +23i    -4 -27i 

 Press return to continue.