Mathc complexes/a198
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.