Mathc matrices/h10i
Installer ce fichier dans votre répertoire de travail.
![]() |
vgj.h |
---|
/* ------------------------------------ */
/* Save as : vgj.h */
/* ------------------------------------ */
double **gj_mR(
double **Ab
)
{
double **A;
if(Ab[R_SIZE][C0] == Ab[C_SIZE_A][C0])
{
A = i_duplicate_mR(Ab[R_SIZE][C0],Ab[C_SIZE_A][C0]);
c_Ab_A_mR(Ab,A);
if(det_R(A)) gj1_mR(Ab);
else gj4_mR(Ab);
f_mR(A);
}
else if(Ab[R_SIZE][C0] < Ab[C_SIZE_A][C0])
{
A = i_duplicate_mR(Ab[R_SIZE][C0],Ab[R_SIZE][C0]);
c_Ab_subArxr_mR(Ab,A);
if(det_R(A)) gj1_mR(Ab);
else gj4_mR(Ab);
f_mR(A);
}
else if(Ab[R_SIZE][C0] > Ab[C_SIZE_A][C0])
{
printf("\n Error : gj_mR();\n");
printf("\n The number of colums\n");
printf("\n must be superior or egal\n");
printf("\n to the number of rows\n");
printf("\n Press return to continue.\n");
fflush(stdout);
getchar();
exit(EXIT_FAILURE);
}
return(Ab);
}
/* ------------------------------------ */
/* ------------------------------------ */
fichier h.