Mathc complexes/a165
Installer et compiler ces fichiers dans votre répertoire de travail.
c00c.c |
---|
/* ------------------------------------ */
/* Save as : c00c.c */
/* ------------------------------------ */
#include "w_a.h"
/* ------------------------------------ */
#define RAb R3
#define CA R3
#define Cb R3
/* ------------------------------------ */
/* ------------------------------------ */
void fun(void)
{
double ab[RAb*((CA+Cb)*C2)] ={
-3,-7, -6,-5, +4,-2, +6,+1, +1,-9, +1,-9,
-3,-7, -6,-5, +4,-2, +0,+1, +1,-0, -8,+7,
-3,-7, -6,-5, +4,-2, -4,-0, +0,-3, +0,-3 };
double **Ab = ca_A_mZ(ab,i_Abr_Ac_bc_mZ(RAb,CA,Cb));
double **Ab_free = i_Abr_Ac_bc_mZ(RAb,CA,Cb) ;
double **b_free = i_mZ(RAb,C2);
nb_Z B;
nb_Z C;
int c ;
clrscrn();
B = i_Z(+1.09230769,-0.67179487);
c = TheCorrect_C(CA+C1);
mulC_mZ(Ab,B,c);
C = i_Z(-2.22564103,-1.72820513);
c = TheCorrect_C(CA+C2);
mulC_mZ(Ab,C,c);
printf(" Ab_news :");
p_mZ(Ab, S8,P2, S6,P2, CA);
stop();
clrscrn();
printf(" zx zx zx \n"
" 0 0 0 \n"
" 0 0 0 \n\n"
" zx*B zx*C zx \n"
" z1*B z2*C z3 \n"
" z1*B z2*C z3 \n\n"
" z1*B + z2*C + z3 == 0\n\n"
" The system is compatible :");
p_mZ(gj_PP_mZ(Ab), S10,P4, S6,P4, CA);
stop();
f_mZ(Ab);
f_mZ(Ab_free);
f_mZ(b_free);
}
/* ------------------------------------ */
int main(void)
{
fun();
return 0;
}
/* ------------------------------------ */
/* ------------------------------------ */
Le système est compatible.
Exemple de sortie écran :
------------------------------------
Ab_news :
-3.00 -7.00i -6.00 -5.00i +4.00 -2.00i
-3.00 -7.00i -6.00 -5.00i +4.00 -2.00i
-3.00 -7.00i -6.00 -5.00i +4.00 -2.00i
+7.23 -2.94i -17.78+18.30i +1.00 -9.00i
+0.67 +1.09i -2.23 -1.73i -8.00 +7.00i
-4.37 +2.69i -5.18 +6.68i +0.00 -3.00i
Press return to continue.
------------------------------------
zx zx zx
0 0 0
0 0 0
zx*B zx*C zx
z1*B z2*C z3
z1*B z2*C z3
z1*B + z2*C + z3 == 0
The system is compatible :
+1.0000+0.0000i +0.9138-0.4655i +0.0345+0.5862i
-0.0000-0.0000i -0.0000+0.0000i +0.0000-0.0000i
-0.0000-0.0000i -0.0000+0.0000i +0.0000-0.0000i
-0.0191+1.0240i -1.2893-3.0925i +1.0345+0.5862i
-6.5538+4.0308i +15.5538-20.0308i -9.0000+16.0000i
-11.5949+5.6256i +12.5949-11.6256i -1.0000+6.0000i
Press return to continue.