Mathc initiation/Fichiers h : x 70a6

Sommaire

Installer ce fichier dans votre répertoire de travail.

	x_idrst.h

/* ---------------------------------- */
/* save as x_idrst.h                  */
/* ---------------------------------- */
double implicitDu_r(
double (*P_u)(double x, double y, double z),
double (*P_x)(double r, double s, double t),
double (*P_y)(double r, double s, double t),
double (*P_z)(double r, double s, double t),
double   h,
pt3d  Prst
)
{
pt3d Pxyz =          {(*P_x)(Prst.x,Prst.y,Prst.z),
                      (*P_y)(Prst.x,Prst.y,Prst.z),
                      (*P_z)(Prst.x,Prst.y,Prst.z)};
                              
 return(fxyz_x((*P_u),h,Pxyz)*fxyz_x((*P_x),h,Prst)+
        fxyz_y((*P_u),h,Pxyz)*fxyz_x((*P_y),h,Prst)+
        fxyz_z((*P_u),h,Pxyz)*fxyz_x((*P_z),h,Prst)
       );
}
/* ---------------------------------- */
double implicitDu_s(
double (*P_u)(double x, double y, double z),
double (*P_x)(double r, double s, double t),
double (*P_y)(double r, double s, double t),
double (*P_z)(double r, double s, double t),
double   h,
pt3d  Prst
)
{
pt3d  Pxyz =         {(*P_x)(Prst.x,Prst.y,Prst.z),
                      (*P_y)(Prst.x,Prst.y,Prst.z),
                      (*P_z)(Prst.x,Prst.y,Prst.z)};
                              
 return(fxyz_x((*P_u),h,Pxyz)*fxyz_y((*P_x),h,Prst)+
        fxyz_y((*P_u),h,Pxyz)*fxyz_y((*P_y),h,Prst)+
        fxyz_z((*P_u),h,Pxyz)*fxyz_y((*P_z),h,Prst)
       );
}
/* ---------------------------------- */
double implicitDu_t(
double (*P_u)(double x, double y, double z),
double (*P_x)(double r, double s, double t),
double (*P_y)(double r, double s, double t),
double (*P_z)(double r, double s, double t),
double   h,
pt3d  Prst
)
{
pt3d  Pxyz =         {(*P_x)(Prst.x,Prst.y,Prst.z),
                      (*P_y)(Prst.x,Prst.y,Prst.z),
                      (*P_z)(Prst.x,Prst.y,Prst.z)};
                              
 return(fxyz_x((*P_u),h,Pxyz)*fxyz_z((*P_x),h,Prst)+
        fxyz_y((*P_u),h,Pxyz)*fxyz_z((*P_y),h,Prst)+
        fxyz_z((*P_u),h,Pxyz)*fxyz_z((*P_z),h,Prst)
       );
}
/* ---------------------------------- */
/* ---------------------------------- */

Déclaration des fichiers h.