Mathc matrices/h101k


Sommaire



Installer ce fichier dans votre répertoire de travail.

Crystal Clear mimetype source h.png vrm_sing.h
'
/* ------------------------------------ */
/*  Save as :   vrm_sing.h               */
/* ------------------------------------ */
/* ------------------------------------ */
double **r_singular_Ab_mR(
double **Ab,
int      n
)
{
  r_mR(Ab,n);
            /* R3 = Two rows + zero row ? */
  if(Ab[R_SIZE][C0]==R3) c_r1r2_mR(Ab,R1,R2);
  if(Ab[R_SIZE][C0]==R4) c_r1r2_mR(Ab,R1,R3);
  if(Ab[R_SIZE][C0]>R4){ c_r1r2_mR(Ab,rp_I(Ab[R_SIZE][C0]-1),
                                      rp_I(Ab[R_SIZE][C0]-1));
                         c_r1r2_mR(Ab,rp_I(Ab[R_SIZE][C0]-1),
                                      rp_I(Ab[R_SIZE][C0]-1));
                      }
           
 return(Ab);
}
/* ------------------------------------ */
/* ------------------------------------ */


Déclaration des fichiers h.