Matrice de Hankel

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

c00a.c
/* ------------------------------------ */
/*  Save as :   c00a.c                  */
/* ------------------------------------ */
#include "v_a.h"
/* ------------------------------------ */
void fun(int rc)
{
double **U   = r_mR(i_mR(R1,rc),9);
double **V   = r_mR(i_mR(rc,C1),9);	
double **A   =      i_mR(rc,rc);

  clrscrn();
  
  rHankel_mR(U,V,A);
  
  printf(" A[R%d,C%d] : \n",rsize_R(A),csize_R(A));
  p_mR(A,S4,P0,C10);

  f_mR(U);
  f_mR(V);   
  f_mR(A);
}
/* ------------------------------------ */
int main(void)
{
time_t t;

  srand(time(&t));
  
  do
        fun(R10);

  while(stop_w());       

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


Matrice de Hankel.

Exemple de sortie écran :

 A[R10,C10] : 

  +8   -4   +5   +1   -7   -1   +4   +2   -1   -6 
  -4   +5   +1   -7   -1   +4   +2   -1   -6   -8 
  +5   +1   -7   -1   +4   +2   -1   -6   -8   +8 
  +1   -7   -1   +4   +2   -1   -6   -8   +8   +3 
  -7   -1   +4   +2   -1   -6   -8   +8   +3   -7 
  -1   +4   +2   -1   -6   -8   +8   +3   -7   +6 
  +4   +2   -1   -6   -8   +8   +3   -7   +6   +7 
  +2   -1   -6   -8   +8   +3   -7   +6   +7   +2 
  -1   -6   -8   +8   +3   -7   +6   +7   +2   -4 
  -6   -8   +8   +3   -7   +6   +7   +2   -4   -1 


 Press   return to continue
 Press X return to stop