Mathc complexes/03m

Application

Installer et compiler ces fichiers dans votre répertoire de travail.

	c00a.c

/* ------------------------------------ */
/*  Save as :   c00a.c                  */
/* ------------------------------------ */
#include "w_a.h"
/* ------------------------------------ */
#define   RCA RC4
#define   CX  C1
/* ------------------------------------ */
/* ------------------------------------ */
int main(void)
{
double a[RCA*(RCA*C2)]={
    +3,1, -4,1, -2,1, -1,1,
    +5,2, -3,2, -0,2, -2,2,      
    +6,3, -0,3, -3,3, -2,3,
    +3,4, -3,4, -1,4, -3,4   
};

double x_S[RCA*(CX*C2)]={
   +9.00,  +85.00, 
   -2.00,  +70.00, 
  +14.00,  +82.00, 
   +5.00,  +69.00  
};
 
double **A  = ca_A_mZ(a,   i_mZ(RCA,RCA));
double **X_S  = ca_A_mZ(x_S, i_mZ(RCA,CX));
double **AX_S =              i_mZ(RCA,CX) ;

  clrscrn();
  printf(" In the Standard basis\n\n"
         " Find the linear application T(x_S) = A*x_S \n\n"
         " A :  ");
  p_mZ(A, S10,P2, S8,P2, C4);
  printf(" x_S ");
  p_mZ(X_S, S10,P2, S8,P2, C4);
  printf(" T(x_S) = A*x_S");
  p_mZ(mul_mZ(A,X_S,AX_S), S10,P2, S8,P2, C4);
  stop();


  f_mZ(A);
  f_mZ(X_S);
  f_mZ(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   +1.00i      -4.00   +1.00i      -2.00   +1.00i      -1.00   +1.00i 
     +5.00   +2.00i      -3.00   +2.00i      +0.00   +2.00i      -2.00   +2.00i 
     +6.00   +3.00i      +0.00   +3.00i      -3.00   +3.00i      -2.00   +3.00i 
     +3.00   +4.00i      -3.00   +4.00i      -1.00   +4.00i      -3.00   +4.00i 

 x_S 
     +9.00  +85.00i 
     -2.00  +70.00i 
    +14.00  +82.00i 
     +5.00  +69.00i 

 T(x_S) = A*x_S
   -304.00 -232.00i 
   -571.00 +129.00i 
   -916.00 +204.00i 
  -1220.00 -140.00i 

 Press return to continue.