« Mathc matrices/c101d » : différence entre les versions
Contenu supprimé Contenu ajouté
petit modification |
modification mineure |
||
Ligne 2 :
[[Mathc matrices/
Ligne 9 :
{{Fichier|
<syntaxhighlight lang="c">
/* ------------------------------------ */
/* Save as :
/* ------------------------------------ */
#include "v_a.h"
Ligne 18 ⟶ 19 :
void fun(int r)
{
double **
double **
double **
clrscrn();
Ligne 27 ⟶ 28 :
p_mR(A,S8,P0,C7);
printf(" b :");
p_mR(r_mR(b,999.),S8,P0,C7);▼
r_mR(b,999.); /* I change the value of b */
printf(" Ab :");
p_mR(c_A_b_Ab_mR(A,b,Ab),S8,P0,C7);
clrscrn();
Ligne 36 ⟶ 40 :
p_Octave_mR(Ab,"Ab",P0);
printf("\n rref(Ab,.00000000001)\n\n");
stop();
clrscrn();
printf(" gj_mR(Ab) :");
p_mR(Ab,S10,P5,C7);
is_system_consistent_mR(Ab);
f_mR(Ab);
Ligne 65 ⟶ 75 :
Nous calculons la distance entre les deux matrices.
Ligne 74 ⟶ 83 :
------------------------------------
A :
-
+380 +426 +622 -899 -779
+380 +426 +622 -899 -779
b :
+
+
+734
+606
Ab :
-
+380 +426 +622 -899 -779 +734
+380 +426 +622 -899 -779 +606
Press return to continue. ▼
Copy/Past into the octave window.
Ab=[
-
+380,+426,+622,-899,-779,+734;
+380,+426,+622,-899,-779,+606]
rref(Ab,.00000000001)
gj_mR(Ab) :▼
+1.00000 +0.00000 +0.00000 +1.41027 -0.00196 +0.77518 ▼
+0.00000 +1.00000 -0.00000 +0.79627 +0.82974 +0.30111 ▼
+0.00000 +0.00000 +1.00000 +1.45695 -0.06703 +1.38651 ▼
▲ Press return to continue
▲ gj_mR(Ab) :
▲ Press X to stop
+0.00000 +0.00000 +0.00000 -0.00000 +0.00000 +654.00000
+0.00000 +0.00000 +0.00000 -0.00000 +0.00000 +526.00000
This(ese) row(s) are incompatible.
row 4; row 5;
The system is inconsistent.
I prefer to close the program.
Press return to continue.
</syntaxhighlight>
|