Mathc matrices/Fichiers h : vrm sym

Installer ce fichier dans votre répertoire de travail.

	`vrm_sym.h`

/* ------------------------------------ */
/*  Save as :   vrm_sym.h               */
/* ------------------------------------ */
double **rsymmetric_mR(
double **A,
int n)
{
int r;
int c;
double x;

  isquare_mR(A,"rsymmetric_mR();","(A)");

  for   ( r=R1; r<A[R_SIZE][C0]; r++)
    for ( c=C1; c<A[C_SIZE][C0]; c++)
        {
         x = r_I (n);
         A[r][c] = x;
         A[c][r] = x;
        }
        
return(A);
}
/* ------------------------------------ */
/* ------------------------------------ */
double **mul_sDA_mR(
double    s,
double  **A,
double **sA
)
{
int      r;
  
  c_mR(A,sA);
  
  for(r=R1; r<A[R_SIZE][C0]; r++)

             sA[r][r] = abs(s * A[r][r]);
 return(sA);
}
/* ------------------------------------ */
double **rPsymmetric_mR(
double **A,
int n)
{
int r;
int c;
double x;

double **B = i_mR(rsize_R(A),csize_R(A));

  isquare_mR(A,"rPsymmetric_mR();","(A)");
  
  for   ( r=R1; r<A[R_SIZE][C0]; r++)
    for ( c=C1; c<A[C_SIZE][C0]; c++)
        {
         x = r_I (n);
         B[r][c] = x;
         B[c][r] = x;
        }
        
        
  mul_sDA_mR(111.,B,A);
        
  f_mR(B);        
        
return(A);
}
/* ------------------------------------ */
/* ------------------------------------ */

Dans ce fichier se trouvent les fonctions qui permettront d'initialiser les matrices avec des valeurs aléatoires. Ici ce seront les matrices symétriques.