Mathc complexes/Fichiers h : vpmall

Installer ce fichier dans votre répertoire de travail.

	wpall.h

/* ------------------------------------ */
/*  Save as :   wpall.h                 */
/* ------------------------------------ */
double **pall_mZ(
double **A,
int er,
int dr,
int ei,
int di
)
{
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  ",
                            er,dr,A[r][c],
                            ei,di,A[r][c+C1]);

                    else printf("%+*.*f%+*.*fi ",
                            er,dr,A[r][c],
                            ei,di,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.