Mathc complexes/a41

Bibliothèque

Installer ce fichier dans votre répertoire de travail.

	wrm_sym.h

/* ------------------------------------ */
/*  Save as :   wrm_sym.h               */
/* ------------------------------------ */
double **rcsymmetric_mZ(
double **A,
int      n
)
{
int r = rsize_Z(A);
int c = csize_Z(A);	
	
double **B          = r_mZ(i_mZ(r,c),n);
double **B_T        = ctranspose_mZ(B,i_mZ(c,r));

         mul_mZ(B,B_T, A);
         
   f_mZ(B);
   f_mZ(B_T);

 return(A);
}
/* ------------------------------------ */
double **rcsymmetric_mRZ(
double **A,
int      n
)
{
int r = rsize_Z(A);
int c = csize_Z(A);	
	
double **B          = r_mRZ(i_mZ(r,c),n);
double **B_T        = ctranspose_mZ(B,i_mZ(c,r));

         mul_mZ(B,B_T, A);
         
   f_mZ(B);
   f_mZ(B_T);

 return(A);
}
/* ------------------------------------ */
/* ------------------------------------ */
double **rEcsymmetric_mZ(
double **A,
int      n,
double   E                               /*  1E-1  1E-0  1E+1 */
)
{
int r = rsize_Z(A);
int c = csize_Z(A);	
	
double **B          = rE_mZ(i_mZ(r,c),n,E);
double **B_T        = ctranspose_mZ(B,i_mZ(c,r));

         mul_mZ(B,B_T, A);
         
   f_mZ(B);
   f_mZ(B_T);

 return(A);
}
/* ------------------------------------ */
/* ------------------------------------ */