Mathc matrices/h09g
Aller à la navigation
Aller à la recherche
Installer ce fichier dans votre répertoire de travail.
![]() |
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.