Mathc complexes/a193
Installer et compiler ces fichiers dans votre répertoire de travail.
c00a.c |
---|
/* ------------------------------------ */
/* Save as : c00a.c */
/* ------------------------------------ */
#include "w_a.h"
/* ------------------------------------ */
#define RCA RC2
#define Cb C1
/* ------------------------------------ */
int main(void)
{
double ta[RCA*(RCA*C2)] ={ 1,2, 3,4,
1,2, 3,4};
double tb[RCA*(Cb*C2)] ={ 1,4,
5,4 };
double **A = ca_A_mZ(ta, i_mZ(RCA,RCA));
double **b = ca_A_mZ(tb, i_mZ(RCA,Cb));
double **Ab = i_Abr_Ac_bc_mZ(RCA,RCA,Cb);
c_A_b_Ab_mZ(A,b,Ab);
clrscrn();
printf(" A :");
p_mZ(A, S5,P0, S4,P0, C6);
printf(" b :");
p_mZ(b, S5,P0, S4,P0, C6);
stop();
clrscrn();
printf(" Copy/Past into the octave window.\n\n");
p_Octave_mZ(Ab,"Ab",P0, P0);
printf(" rref(Ab,.00000000001)\n\n");
printf(" gj_mZ(Ab) :");
p_mZ(gj_mZ(Ab), S8,P4, S8,P4, C4);
f_mZ(Ab);
f_mZ(b);
f_mZ(A);
stop();
return 0;
}
/* ------------------------------------ */
/* ------------------------------------ */
Exemple de sortie écran :
------------------------------------
A :
+1 +2i +3 +4i
+1 +2i +3 +4i
b :
+1 +4i
+5 +4i
Press return to continue.
------------------------------------
Copy/Past into the octave window.
Ab=[
+1+2*i,+3+4*i,+1+4*i;
+1+2*i,+3+4*i,+5+4*i]
rref(Ab,.00000000001)
gj4_mZ(Ab) : This(ese) row(s) are incompatible.
row 2;
This(ese) equation(s) was already defined
with an other value(s)
The system is inconsistent.
I prefer to close the program.
Press return to continue.