Mathc complexes/h09g

Bibliothèque

Installer ce fichier dans votre répertoire de travail.

	wgc_m.h

/* ------------------------------------ */
/*  Save as :   wgc_m.h                 */
/* ------------------------------------ */
/*       wgj4.h : gj4_mZ();             */
/*                                      */
/*  copy (n-R1) rows of A into  B       */
/* ------------------------------------ */
void c_nr_mZ(
int r_n,
double **A,

double **B
)
{
int r;
int c;
           //      <
 	for    (r=R1; r<r_n; r++)
 	   for (c=C1; c<A[C_SIZE][C0]; c++)

            B[r][c] = A[r][c];
}
/* ------------------------------------ */
/*  copy n rows of A into  B            */
/* ------------------------------------ */
double **c_n_r_mZ(
int r_n,
double **A,

double **B
)
{
int r;
int c;
           //      <=
 	for    (r=R1; r<=r_n; r++)
 	   for (c=C1; c<A[C_SIZE][C0]; c++)

            B[r][c] = A[r][c];
            
return(B);
}
/* ------------------------------------ */
double **c_r1Ar2_mZ(
int r1,
double **A,

int r2)
{
int c;

    for ( c=C1; c<A[C_SIZE][C0]; c++)

             A[r2][c] = A[r1][c];
             
return(A);
}
/* ------------------------------------ */
double **c_zr1A_r2_mZ(
nb_Z z,
int r1,
double **A,

int r2
)
{
nb_Z T;
int c;

    for ( c=C1; c<A[C_SIZE][C0]; c+=C2)
     {
      T = mul_Z(i_Z(A[r1][c],A[r1][c+C1]),z);

             A[r2][c]    = T.r;
             A[r2][c+C1] = T.i;
     }

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

Déclaration des fichiers h.