Mathc matrices/c24u
Installer et compiler ces fichiers dans votre répertoire de travail.
c04b.c |
---|
/* ------------------------------------ */
/* Save as : c04b.c */
/* ------------------------------------ */
#include "v_a.h"
/* ------------------------------------ */
/* ------------------------------------ */
#define RA R4
#define CA C4
#define RX R4
#define CX C1
/* ------------------------------------ */
/* ------------------------------------ */
int main(void)
{
double a[RA*CA]={
+3, -4, -2, -1,
+5, -3, -0, -2,
+6, -0, -3, -2,
+3, -3, -1, -3
};
double x[RX*CX]={
+47.00,
+34.00,
+48.00,
+37.00
};
double **A = ca_A_mR(a, i_mR(RA,CA));
double **X = ca_A_mR(x, i_mR(RX,CX));
double **AX = i_mR(RA,CX) ;
clrscrn();
printf(" In the Standard basis\n\n"
" Find T(x) = A*x \n\n"
" A : ");
p_mR(A,S6,P2,C7);
printf(" x : ");
p_mR(X,S6,P2,C7);
printf(" A*x");
p_mR(mul_mR(A,X,AX),S7,P2,C7);
stop();
f_mR(A);
f_mR(X);
f_mR(AX);
return 0;
}
/* ------------------------------------ */
/* ------------------------------------ */
Calculons T([x]) = A*[x] Exemple de sortie écran :
------------------------------------
In the Standard basis
Find T(x) = A*x
A :
+3.00 -4.00 -2.00 -1.00
+5.00 -3.00 +0.00 -2.00
+6.00 +0.00 -3.00 -2.00
+3.00 -3.00 -1.00 -3.00
x :
+47.00
+34.00
+48.00
+37.00
A*x
-128.00
+59.00
+64.00
-120.00
Press return to continue.