Mathc matrices/c30g
Installer et compiler ces fichiers dans votre répertoire de travail.
|
c01.c |
|---|
/* ------------------------------------ */
/* Save as : c01.c */
/* ------------------------------------ */
#include "v_a.h"
/* ------------------------------------ */
int main(void)
{
double a[R2*C3]={
-56, +21, -14,
-38, +43, +27,
};
double **A = ca_A_mR(a,i_mR(R2,C3));
int i = 1;
clrscrn();
printf(" (%d) \n\n",i++);
p_mR(A,S11,P2,C6);
printf(" R2 = -56*R2 \n"); mulR_mR(A,-56.,R2);
printf(" R2 = +38*R1 + R2 \n");addR_mR(A,+38.,R1,R2);
p_mR(A,S11,P2,C6);
stop();
clrscrn();
printf(" (%d) \n\n",i++);
p_mR(A,S11,P2,C6);
printf(" R2 = -1/14*R2 \n"); mulR_mR(A,-1/14.,R2);
p_mR(A,S11,P2,C6);
stop();
clrscrn();
printf(" (%d) \n\n",i++);
p_mR(A,S11,P2,C6);
printf(" R1 = +155*R1 \n"); mulR_mR(A,115.,R1);
printf(" R1 = -21*R2 + R1 \n");addR_mR(A,-21.,R2,R1);
p_mR(A,S11,P2,C6);
stop();
clrscrn();
printf(" (%d) \n\n",i++);
p_mR(A,S11,P2,C6);
printf(" R1 = -1/28*R1 \n"); mulR_mR(A,-1/28.,R1);
p_mR(A,S11,P2,C6);
stop();
f_mR(A);
return 0;
}
/* ------------------------------------ */
/* ------------------------------------ */
Exemple de sortie écran :
------------------------------------
(1)
-56.00 +21.00 -14.00
-38.00 +43.00 +27.00
R2 = -56*R2
R2 = +38*R1 + R2
-56.00 +21.00 -14.00
+0.00 -1610.00 -2044.00
Press return to continue.
------------------------------------
(2)
-56.00 +21.00 -14.00
+0.00 -1610.00 -2044.00
R2 = -1/14*R2
-56.00 +21.00 -14.00
-0.00 +115.00 +146.00
Press return to continue.
------------------------------------
(3)
-56.00 +21.00 -14.00
-0.00 +115.00 +146.00
R1 = +155*R1
R1 = -21*R2 + R1
-6440.00 +0.00 -4676.00
-0.00 +115.00 +146.00
Press return to continue.
------------------------------------
(4)
-6440.00 +0.00 -4676.00
-0.00 +115.00 +146.00
R1 = -1/28*R1
+230.00 -0.00 +167.00
-0.00 +115.00 +146.00
Press return to continue.