Mathc matrices/0ic

Installer ces fichiers dans votre répertoire de travail.

	`fa.h`

/* --------------------------------- */
/* save as fa.h                      */
/* --------------------------------- */	
double f(
double **u)
{
        return(3*u[R1][C1] + 4*u[R2][C1]);
}	
char  feq[] = "3 x + 4 y";
/* --------------------------------- */
/* --------------------------------- */
double g(
double **u)
{
        return(u[R1][C1]*u[R1][C1] + 
               u[R2][C1]*u[R2][C1]);
}	
char  geq[] = "x^2 + y^2 = R**2";
/* --------------------------------- */
/* --------------------------------- */

	`fb.h`

/* --------------------------------- */
/* save as fb.h                      */
/* --------------------------------- */	
double f(
double **u)
{
        return(3*u[R1][C1] + 4*u[R2][C1] + 5*u[R3][C1]);
}	
char  feq[] = "3 x + 4 y + 5 z";
/* ------------------------------------ */
/* ------------------------------------ */
double g(
double **u)
{
        return(u[R1][C1]*u[R1][C1] + 
               u[R2][C1]*u[R2][C1] + 
               u[R3][C1]*u[R3][C1]);
}	
char  geq[] = "x^2 + y^2 + z^2 = R**2";
/* ------------------------------------ */
/* ------------------------------------ */

	`fc.h`

/* --------------------------------- */
/* save as fc.h                      */
/* --------------------------------- */
double f(
double **u)
{
 return(3*u[R1][C1] + 
        4*u[R2][C1] + 
        5*u[R3][C1] + 
        6*u[R4][C1]);
}	
char  feq[] = "3 x + 4 y + 5 z + 6 t";
/* --------------------------------- */
/* --------------------------------- */
double g(
double **u)
{
  return(u[R1][C1]*u[R1][C1] + 
         u[R2][C1]*u[R2][C1] + 
         u[R3][C1]*u[R3][C1] + 
         u[R4][C1]*u[R4][C1]);
}	
char  geq[] = "x^2 + y^2 + z^2 + t^2 = R**2";
/* --------------------------------- */
/* --------------------------------- */