411 REFERENCE · Wikibooks
Linear Algebra and the C Language/a025
Reference material by Wikibooks contributors. This retains its source identity and is not 411 news reporting.
__NOTOC__
Install this file in your working directory.
/* ------------------------------------ */
/* 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");
}
/* ------------------------------------ */
/* ------------------------------------ */