Aller au contenu

Mathc complexes/h09e

Un livre de Wikilivres.


Bibliothèque


Installer ce fichier dans votre répertoire de travail.

wg_i.h
/* ------------------------------------ */
/*  Save as :   wg_i.h                  */
/* ------------------------------------ */
double **i_Abr_Ac_bc_mZ(
int     Ab_r,
int      A_c,
int      b_c
)
{
double **Ab;

int Ab_c;

   if( Ab_r < R2 || A_c<C2 || b_c<C1)
            {
            printf(" Error : double **iAbR0_mZ(); \n\n");
            printf(" A_c, b_c must be : Ab_r < R2 || A_c<C2 || b_c<C1 \n\n");
            printf(" This matrix is to study linear sytem.\n\n");
            fflush(stdout);
            getchar();
            exit(EXIT_FAILURE);
            }

   Ab_c = A_c + b_c;

     Ab = i_mZ( Ab_r, Ab_c);  /* create the matrix */

    Ab[C_SIZE_A][C0] = A_c*C2+C1; /*  Ab[C_SIZE][C0]; The size of A */

return(Ab);
}
/* ------------------------------------ */
/* ------------------------------------ */
double **i_AbR_AbC_AC_mZ(
int     Ab_r,
int     Ab_c,
int      A_c
)
{
double **Ab;

  Ab_r--;
  Ab_c = ((Ab_c-C1)/C2);

  Ab = i_mZ(Ab_r,Ab_c);

  Ab[C_SIZE_A][C0] = A_c;

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


Déclaration des fichiers h.