Mathc complexes/Fichiers h : vpmall

Bibliothèque

Installer ce fichier dans votre répertoire de travail.

	wpall.h

/* ------------------------------------ */
/*  Save as :   wpall.h                 */
/* ------------------------------------ */
double **pall_mZ(
double **A,
int Sr,
int Pr,
int Si,
int Pi
)
{
int r;
int c;
    printf("\n");

 	for(r=0; r<A[R_SIZE][C0]; r++)

         {

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

               if(c==0){ printf("%+5.0f ", A[r][c]); c--;}

               else if(r==0) printf("%+*.*f% *.*f  ",
                            Sr,Pr,A[r][c],
                            Si,Pi,A[r][c+C1]);

                    else printf("%+*.*f%+*.*fi ",
                            Sr,Pr,A[r][c],
                            Si,Pi,A[r][c+C1]);

          if(!r) printf("\n\n");
          else   printf("\n");
          }
    printf("\n");
    
return(A);
}
/* ------------------------------------ */
/* ------------------------------------ */

Chaque matrice possède une ligne zéro et une colonne zéro.

Cette ligne et cette colonne sont réservées pour enregistrer sa taille et pour créer un index des colonnes.

Cette fonction permet d'afficher la ligne et la colonne zéro.