Mathc matrices/a126

Application

Installer ces fichiers dans votre répertoire de travail.

Ce fichier est spécifique pour ce travail. Il ne doit pas être conservé avec la bibliothèque..'.

	d_lastr1.h

/* ------------------------------------ */
/*  Save as :   d_lastr1.h              */
/* ------------------------------------ */
double **lastr_1_mR(
double **LastR_1
)
{
int r;
int c;

  for   ( r=R1; r<LastR_1[R_SIZE][C0]; r++)
    for ( c=C1; c<LastR_1[C_SIZE][C0]; c++)

            if((r+R1)==LastR_1[R_SIZE][C0]) LastR_1[r][c] = 1.;
            else                            LastR_1[r][c] = 0.;

return(LastR_1);
} 
/* ------------------------------------ */
/* ------------------------------------ */

---