Mathc matrices/h09g

Un livre de Wikilivres.
Aller à la navigation Aller à la recherche


Sommaire


Installer ce fichier dans votre répertoire de travail.

Crystal Clear mimetype source h.png vgc_m.h
'
/* ------------------------------------ */
/*  Save as :   vgc_m.h                   */
/* ------------------------------------ */
void c_withR0_mR(
double **A,
double **B
)
{
int r;
int c;

 	for    (r=R0; r<A[R_SIZE][C0]; r++)
 	   for (c=C1; c<A[C_SIZE][C0]; c++)

            B[r][c] = A[r][c];
}
/* ------------------------------------ */
void c_onlyR0_mR(
double **A,
double **B
)
{
int c;

    for(c=C1; c<A[C_SIZE][C0]; c++)

            B[R0][c] = A[R0][c];
}
/* ------------------------------------ */
void c_c_withR0_mR(
double **A,
int cA,
double **B,
int cB
)
{
int r;

    for(r=R0; r<A[R_SIZE][C0]; r++)

            B[r][cB] = A[r][cA];
}
/* ------------------------------------ */
void c_r1r2_mR(
double **A,
int r1,
int r2)
{
int c;

    for ( c=C1; c<A[C_SIZE][C0]; c++)

             A[r2][c] = A[r1][c];
}
/* ------------------------------------ */
void c_r1sr2_mR(
double **A,
int r1,
int r2,
double s)
{
int c;

    for ( c=C1; c<A[C_SIZE][C0]; c++)

             A[r2][c] = s*A[r1][c];
}
/* ------------------------------------
   cld01.c cld02.c   pcld.zip
   ------------------------------------ */
void c_c1_cL_mR(
double **A
)
{
int r;
int c = A[C_SIZE][C0]-C1;

    for(r=R1; r<A[R_SIZE][C0]; r++)

            A[r][c] = A[r][C1];
}
/* ------------------------------------ */
void c_nr_mR(
double **A,
int r_n,
double **B
)
{
int r;
int c;

 	for    (r=R1; r<=r_n; r++)
 	   for (c=C1; c<A[C_SIZE][C0]; c++)

            B[r][c] = A[r][c];
}
/* ------------------------------------ */
/* ------------------------------------ */


Ce sont des fonctions qui copie des lignes et des colonnes.