Mathc matrices/h10d

Bibliothèque

Installer ce fichier dans votre répertoire de travail.

	vgp_free.h

/* ------------------------------------ */
/*  Save as :   vgp_free.h              */
/* ------------------------------------ */ 
void p_freeV(
double **b,
int e,
int d)
{
 int m;
 int r;
 int c;
char v;

 m = 0;

 for(r=R1; r<b[R_SIZE][C0];    r++)
  {
   v = 'y' - (b[R_SIZE][C0]-C1);

   printf("\n");
   m++;
   printf(" x%d = ",m);

   for(c=C1; c<b[C_SIZE][C0]; c++)
      {
       if(c==C1) printf(" %+*.*f",e,d,b[r][c]);
       else
         {
          if(fabs(b[r][c])>ERROR_E) printf(" %+*.*f*%c",e,d,b[r][c],v);
          else                      printf(" %+*.*f*%c",e,d,0.,v);
          v++;
         }
      }
  }
   printf("\n\n");
}
/* ------------------------------------ */
/* ------------  Chemistry ------------ */
void p_coefxn(
double **b
)
{
 int r;

 for(r=R1; r<b[R_SIZE][C0];    r++)

    printf("double x%d = %+0.8f;\n",r,b[r][C2]);

 printf("\n\n");
}
/* ------------------------------------ */
/* ------------------------------------ */

Fichier h.