Mathc complexes/a201
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,CA));
double **Minor = i_mZ(RA-C1,CA-C1);
int minor_r = R3;
int minor_c = C3;
clrscrn();
printf(" A :");
p_mZ(A, S5,P0, S4,P0, C6);
printf(" Minor(R%d,C%d) :\n",minor_r, minor_c);
minor_c = minor_c*C2-C1;
/* col*C2 : a number has two columns */
/* -C1 : The real part of the number */
minor_mZ(A, Minor, minor_r, minor_c);
p_mZ(Minor, S5,P0, S4,P0, C6);
stop();
f_mZ(A);
f_mZ(Minor);
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
Minor(R3,C3) :
+1 +2i +3 +4i
+5 +4i +1 +3i
Press return to continue.