Mathc complexes/c103c
Installer et compiler ces fichiers dans votre répertoire de travail.
inv_z_a.c |
---|
/* ------------------------------------ */
/* Save as : inv_z_a.c */
/* ------------------------------------ */
#include "w_a.h"
/* ------------------------------------ */
void fun(void)
{
double a[R3*(C3*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(R3,C3));
double **Inv = i_mZ(R3,C3);
clrscrn();
printf(" A\n");
p_mZ(r_mZ(A,99.), S4,P0, S4,P0, C6);
stop();
clrscrn();
printf(" invgj_mZ(A,invA);");
pE_mZ(invgj_mZ(A,Inv), S1,P4, S1,P4, C3);
printf(" inv_mZ(A,Inv); :");
pE_mZ(inv_mZ(A,Inv), S1,P4, S1,P4, C3);
stop();
clrscrn();
printf(" Copy/Past into the octave window.\n\n");
p_Octave_mZ(A,"A",P0, P0);
printf(" inv(A)\n");
pE_mZ(Inv, S1,P4, S1,P4, C3);
stop();
f_mZ(Inv);
f_mZ(A);
}
/* ------------------------------------ */
int main(void)
{
fun();
return 0;
}
/* ------------------------------------ */
/* ------------------------------------ */
.
Exemple de sortie écran :
------------------------------------
A
-29 +44i -73 +80i +24 -71i
+56 +40i +70 +2i +42 -41i
+6 +26i +96 -5i -43 -55i
Press return to continue.
------------------------------------
invgj_mZ(A,invA);
+7.8496e-04-7.1979e-03i +8.8398e-03-4.8289e-03i -1.1770e-02-3.4037e-03i
-6.2436e-03+7.7909e-04i +2.7587e-04+1.8608e-03i +5.9089e-03+4.7406e-03i
-2.6218e-03+5.2891e-03i +6.1581e-03+9.1674e-04i -2.3327e-03+5.2885e-03i
inv_mZ(A,Inv); :
+7.8496e-04-7.1979e-03i +8.8398e-03-4.8289e-03i -1.1770e-02-3.4037e-03i
-6.2436e-03+7.7909e-04i +2.7587e-04+1.8608e-03i +5.9089e-03+4.7406e-03i
-2.6218e-03+5.2891e-03i +6.1581e-03+9.1674e-04i -2.3327e-03+5.2885e-03i
Press return to continue.
------------------------------------
Copy/Past into the octave window.
A=[
-29+44*i,-73+80*i,+24-71*i;
+56+40*i,+70+2*i,+42-41*i;
+6+26*i,+96-5*i,-43-55*i]
inv(A)
+7.8496e-04-7.1979e-03i +8.8398e-03-4.8289e-03i -1.1770e-02-3.4037e-03i
-6.2436e-03+7.7909e-04i +2.7587e-04+1.8608e-03i +5.9089e-03+4.7406e-03i
-2.6218e-03+5.2891e-03i +6.1581e-03+9.1674e-04i -2.3327e-03+5.2885e-03i
Press return to continue.