Mathc matrices/c101j
Aller à la navigation
Aller à la recherche
![]() |
d05.c ' |
---|
/* ------------------------------------ */
/* Save as : d05.c */
/* ------------------------------------ */
#include "v_a.h"
/* ------------------------------------ */
int main(void)
{
double ab[R4*C7]={
+1, 1, 1, 1, 1, 1, 0,
0, 2, 2, 2, 2, 2, 0,
0, 0, 3, 3, 3, 3, 0,
0, 0, 0, 4, 4, 4, 0,
};
double **Ab = ca_A_mR(ab,i_Abr_Ac_bc_mR(R4,C6,C1));
double **A = c_Ab_A_mR(Ab,i_mR(R4,C6));
double **b = c_Ab_b_mR(Ab,i_mR(R4,C1));
double **Ab_free = i_Abr_Ac_bc_mR(csize_A_R(Ab),csize_A_R(Ab),C1);
clrscrn();
printf(" A :");
p_mR(A,S8,P0,C7);
printf(" b :");
p_mR(b,S8,P0,C7);
printf(" Ab :");
p_mR(Ab,S8,P0,C7);
stop();
clrscrn();
put_var_mR(Ab,Ab_free);
printf(" Ab_free : ");
p_mR(Ab_free,S8,P3,C8);
stop();
f_mR(Ab);
f_mR(b);
f_mR(A);
return 0;
}
/* ------------------------------------ */
/* ------------------------------------ */
Exemple de sortie écran :
------------------------------------
A :
+1 +1 +1 +1 +1 +1
+0 +2 +2 +2 +2 +2
+0 +0 +3 +3 +3 +3
+0 +0 +0 +4 +4 +4
b :
+0
+0
+0
+0
Ab :
+1 +1 +1 +1 +1 +1 +0
+0 +2 +2 +2 +2 +2 +0
+0 +0 +3 +3 +3 +3 +0
+0 +0 +0 +4 +4 +4 +0
Press return to continue.
Ab_free :
+1.000 +1.000 +1.000 +1.000 +1.000 +1.000 +0.000
+0.000 +2.000 +2.000 +2.000 +2.000 +2.000 +0.000
+0.000 +0.000 +3.000 +3.000 +3.000 +3.000 +0.000
+0.000 +0.000 +0.000 +4.000 +4.000 +4.000 +0.000
+0.000 +0.000 +0.000 +0.000 +0.000 +0.000 +0.000
+0.000 +0.000 +0.000 +0.000 +0.000 +0.000 +0.000
Press return to continue.