< Mathc complexes


Sommaire


Installer ce fichier dans votre répertoire de travail.

wpoctave.h
'
/* ------------------------------------ */
/*  Save as :   wpoctave.h              */
/* ------------------------------------ */
void p_octave_mZ(
double  **A,
char name[9],
int er,
int dr,
int di
)
{
 int r;
 int c;

 printf(" %s=[\n",name);

 for(r=R1; r<A[R_SIZE][C0]; r++)
  {
  for(c=C1; c<A[C_SIZE][C0]; c+=C2)
 
     printf("%+*.*f%+.*f*i,",er,dr,A[r][c], di,A[r][c+C1]);

   if((r+1)<A[R_SIZE][C0]) printf("\b;\n");

   else                    printf("\b]\n\n");
  }
}
/* ------------------------------------ */
void p_octave_mZ_E(
double  **A,
char name[9],
int er,
int dr,
int di
)
{
 int r;
 int c;

 printf(" %s=[\n",name);

 for(r=R1; r<A[R_SIZE][C0]; r++)
  {
  for(c=C1; c<A[C_SIZE][C0]; c+=C2)
   
     printf("%+*.*e%+.*e*i,",er,dr,A[r][c], di,A[r][c+C1]);

   if((r+1)<A[R_SIZE][C0]) printf("\b;\n");

   else                    printf("\b]\n\n");
  }
}
/* ------------------------------------ */
/* ------------------------------------ */



Déclaration des fichiers h.
Cet article est issu de Wikibooks. Le texte est sous licence Creative Commons - Attribution - Partage dans les Mêmes. Des conditions supplémentaires peuvent s'appliquer aux fichiers multimédias.