Mathc complexes/Fichiers h : vrm

Installer ce fichier dans votre répertoire de travail.

	`wrm.h`

/* ------------------------------------ */
/*  Save as :   wrm.h                   */
/* ------------------------------------ */
double **r_mZ(
double **A,
int      n
)
{
int      r;
int      c;

  for     (r=R1; r<A[R_SIZE][C0]; r++)
 	  for (c=R1; c<A[C_SIZE][C0]; c++)

                 A[r][c] = r_I(n);
                 
return(A);
}
/* ------------------------------------ */
double **rE_mZ(
double **A,
int      n,
double   E                               /*  1E-1  1E-0  1E+1 */
)
{
int      r;
int      c;

  for     (r=R1; r<A[R_SIZE][C0]; r++)
 	  for (c=R1; c<A[C_SIZE][C0]; c++)

                    A[r][c]  = r_I(n)*E;
        
return(A);
}
/* ------------------------------------ */
/* ------------------------------------ */
double **r_mRZ(
double **A,
int      n
)
{
int      r;
int      c;

  for     (r=R1; r<A[R_SIZE][C0]; r++)
 	  for (c=R1; c<A[C_SIZE][C0]; c+=C2)
          {
                 A[r][c]    = r_I(n);
                 A[r][c+C1] =      0;
          }
                 
return(A);
}
/* ------------------------------------ */
/* ------------------------------------ */

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