Mathc complexes/a182

Application

Installer et compiler ce fichier dans votre répertoire de travail.

	c00a.c

/* ------------------------------------ */
/*  Save as :   c00a.c                  */
/* ------------------------------------ */
#include "w_a.h" 
/* ------------------------------------ */
/* ------------------------------------ */
#define  TAB  C3
/* ------------------------------------ */
#define   RU  R3
#define   CU  C1
/* ------------------------------------ */
/* ------------------------------------ */
void fun(void)
{

double u[TAB][RU*C2]={{+2,3, +2,5, +6,1},
	                  {+1,2, +5,2, +3,3},
	                  {+4,1, +3,2, +2,3}};
double **U[TAB];

int c;

  clrscrn();
  
  for(c=C0; c<TAB; c++)
     {
       U[c] = ca_A_mZ( u[c],i_mZ(RU,C1));
       printf(" U[%d] : ",c);   
       p_mZ(U[c],S6,P0,S6,P0,C10); 
      }
      
  stop(); 
  
  for(c=C0; c<TAB; c++)
  
       f_mZ(U[c]);   
}
/* ------------------------------------ */
int main(void)
{
  fun();

  return 0;
}
/* ------------------------------------ */
/* ------------------------------------ */

Les vecteurs de la base U dans la base standard.

Exemple de sortie écran :

 -------------------------------

 U[0] : 
    +2    +3i 
    +2    +5i 
    +6    +1i 

 U[1] : 
    +1    +2i 
    +5    +2i 
    +3    +3i 

 U[2] : 
    +4    +1i 
    +3    +2i 
    +2    +3i 

 Press return to continue.