Mathc matrices/h05c

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


Sommaire

Installer ce fichier dans votre répertoire de travail.

Crystal Clear mimetype source h.png vpoctave.h
'
/* ------------------------------------ */
/*  Save as :   vpoctave.h                   */
/* ------------------------------------ */ 
void p_Octave_mR(
double  **A,
char name[9],
int  p
)
{
 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++)
     printf("%+.*f,",p,A[r][c]);

   if((r+1)<A[R_SIZE][C0]) printf("\b;\n");
   else                    printf("\b]\n\n");
  }
}
/* ------------------------------------ */   
/* ------------------------------------ */ 
/* ------------------------------------ */ 
void pE_Octave_mR(
double  **A,
char name[9],
int  p
)
{
 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++)
     printf("%+.*e,",p,A[r][c]);

   if((r+1)<A[R_SIZE][C0]) printf("\b;\n");
   else                    printf("\b]\n\n");
  }
}
/* ------------------------------------ */ 
/* ------------------------------------ */

Une matrice pour octave.