Mathc complexes/Fichiers h : vsm

Un livre de Wikilivres.
Sauter à la navigation Sauter à la recherche


Installer ce fichier dans votre répertoire de travail.

Crystal Clear mimetype source h.png wsm.h
'
/* ------------------------------------ */
/*  Save as :   wsm.h                   */
/* ------------------------------------ */
double **m0_mZ(
double **Zer
)
{
int r;
int c;

  for  (r=R1; r<Zer[R_SIZE][C0]; r++)
    for(c=R1; c<Zer[C_SIZE][C0]; c+=C2)
          {
           Zer[r][c   ] = 0.;
           Zer[r][c+C1] = 0.;
          }
          
return(Zer);
}
/* ------------------------------------ */
double **eye_mZ(
double **ID
)
{
int r;
int c;

  isquare_mZ(ID,"eye_mZ();","(ID)");

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

        if(((r-R1)*C2)==c-C1)
            {
                 ID[r][c   ] = 1.;
                 ID[r][c+C1] = 0.;
            }
        else{
                 ID[r][c   ] = 0.;
                 ID[r][c+C1] = 0.;
            }
            
return(ID);
}


Dans ce fichier h on introduit la construction de quelques matrices spécifiques, la matrice zéro, la matrice identité.