Mathc complexes/a162
Apparence
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 = R1;
int minor_c = C1;
clrscrn();
printf(" A :");
p_mZ(A, S5,P0, S4,P0, C6);
printf(" Minor(R%d,C%d) \n\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 */
p_Z(minor_Z(A,minor_r, minor_c), S1,P0, S0,P0);printf("\n\n");
minor_mZ(A, Minor, minor_r, minor_c);
printf(" Copy/Past into the octave window.\n\n");
p_Octave_mZ(Minor,"Minor",P0 ,C0);
printf(" det(Minor)\n\n\n");
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(R1,C1)
-24-42i
Copy/Past into the octave window.
Minor=[
+1+3*i,+6+8*i;
+5+1*i,+1+1*i]
det(Minor)
Press return to continue.