Mathc matrices/h10d
Installer ce fichier dans votre répertoire de travail.
![]() |
vgp_free.h |
---|
/* ------------------------------------ */
/* Save as : vgp_free.h */
/* ------------------------------------ */
void p_freevariable(
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(c_coef_R(b,r,c)== 1) printf(" +%c",v);
else if(c_coef_R(b,r,c)==-1) printf(" -%c",v);
else if(fabs(c_coef_R(b,r,c))>ERROR_E)printf(" %+*.*f*%c",e,d,b[r][c],v);
v++;
}
}
}
printf("\n");
}
/* ------------------------------------ */
/* ------------------------------------ */
Fichier h.