« Mathc matrices/h17b » : différence entre les versions
Contenu supprimé Contenu ajouté
petit modification |
petit modification |
||
Ligne 55 :
return(Ab);
}
/* ------------------------------------ */
/* ------------------------------------ */
double **GJ_TPfreeV_mR(
double **Ab,
double **new_Ab)
{
int r;
c_mR(Ab,new_Ab);
put_freevariable_mR(new_Ab,Ab[R_SIZE][C0]);
r = rsize_R(new_Ab);
while(r>R1)
zero_below_pivot_gj1Ab_mR(new_Ab,r--);
return(new_Ab);
}
/* ------------------------------------ */
| |||