< Mathc complexes


Sommaire


Installer ce fichier dans votre répertoire de travail.

wrm_sing.h
'
/* ------------------------------------ */
/*  Save as :   wrm_sing.h              */
/* ------------------------------------ */
double **r_singular_Ab_mZ(
double **A,
int      n
)
{

  r_mZ(A,n);

  if(A[R_SIZE][C0]==3) c_r1Ar2_mZ(A,1,2);
  if(A[R_SIZE][C0]==4){c_r1Ar2_mZ(A,rp_I(A[R_SIZE][C0]-1),
                                    rp_I(A[R_SIZE][C0]-1));
                       c_r1Ar2_mZ(A,rp_I(A[R_SIZE][C0]-1),
                                    rp_I(A[R_SIZE][C0]-1));
                      }
  if(A[R_SIZE][C0]>4){  c_r1Ar2_mZ(A,rp_I(A[R_SIZE][C0]-1),
                                     rp_I(A[R_SIZE][C0]-1));
                        c_r1Ar2_mZ(A,rp_I(A[R_SIZE][C0]-1),
                                     rp_I(A[R_SIZE][C0]-1));
                        c_r1Ar2_mZ(A,rp_I(A[R_SIZE][C0]-1),
                                     rp_I(A[R_SIZE][C0]-1));
                        c_r1Ar2_mZ(A,rp_I(A[R_SIZE][C0]-1),
                                     rp_I(A[R_SIZE][C0]-1));
                      }
        
return(A);
}
/* ------------------------------------ */
/* ------------------------------------ */



Création de matrices singulières.
Cet article est issu de Wikibooks. Le texte est sous licence Creative Commons - Attribution - Partage dans les Mêmes. Des conditions supplémentaires peuvent s'appliquer aux fichiers multimédias.