Mathc matrices/c24m
Installer et compiler ces fichiers dans votre répertoire de travail.
c00a.c |
---|
/* ------------------------------------ */
/* Save as : c00a.c */
/* ------------------------------------ */
#include "v_a.h"
/* ------------------------------------ */
/* ------------------------------------ */
#define RA R2
#define CA C2
#define RX R2
#define CX C1
/* ------------------------------------ */
/* ------------------------------------ */
int main(void)
{
double a[RA*CA]={
+3, -2,
+2, -2
};
double x_S[RX*CX]={
+10.00,
+13.00,
};
double **A = ca_A_mR(a, i_mR(RA,CA));
double **X_S = ca_A_mR(x_S, i_mR(RX,CX));
double **AX_S = i_mR(RA,CX) ;
clrscrn();
printf(" In the Standard basis\n\n"
" Find the linear application T(x_S) = A*x_S \n\n"
" A : ");
p_mR(A,S6,P2,C7);
printf(" x_S ");
p_mR(X_S,S6,P2,C7);
printf(" T(x_S) = A*x_S");
p_mR(mul_mR(A,X_S,AX_S),S7,P2,C7);
stop();
f_mR(A);
f_mR(X_S);
f_mR(AX_S);
return 0;
}
/* ------------------------------------ */
/* ------------------------------------ */
Calculons T([x]) = A*[x] en base standard.
Exemple de sortie écran :
In the Standard basis
Find the linear application T(x_S) = A*x_S
A :
+3.00 -2.00
+2.00 -2.00
x_S
+10.00
+13.00
T(x_S) = A*x_S
+4.00
-6.00
Press return to continue.