Mathc initiation/Fichiers h : c42a3

Sommaire

Installer ce fichier dans votre répertoire de travail.

	kurv2d.h

/* --------------------------------- */
/* save as  kurv2d.h                 */
/* --------------------------------- */
double Kt_2d(
double (*P_f)(double t),
double (*P_g)(double t),
double t
)
{
double K;
double a;
double b;

      a = fx_x((*P_f),t,H);
      b = fx_x((*P_g),t,H);

      K = fabs( a * fx_xx((*P_g),t,H) - b * fx_xx((*P_f),t,H))
                                /
                         pow(a*a+b*b,3./2.);

 return(K);
}
/* --------------------------------- */
double cx_2d(
double (*P_f)(double t),
double (*P_g)(double t),
double t
)
{
double Num,Den;

 Num =( pow(fx_x((*P_f),t,H),2)
       +pow(fx_x((*P_g),t,H),2) 
      ) 
      *fx_x((*P_g),t,H);
      
 Den = fx_x((*P_f),t,H)*fx_xx((*P_g),t,H)-
       fx_x((*P_g),t,H)*fx_xx((*P_f),t,H);

 return((*P_f)(t)-Num/Den);
}
/* --------------------------------- */
double cy_2d(
double (*P_f)(double t),
double (*P_g)(double t),
double t
)
{
double Num,Den;

 Num =( pow(fx_x((*P_f),t,H),2)
       +pow(fx_x((*P_g),t,H),2) 
      ) 
      *fx_x((*P_f),t,H);
      
 Den = fx_x((*P_f),t,H)*fx_xx((*P_g),t,H)-
       fx_x((*P_g),t,H)*fx_xx((*P_f),t,H);

 return((*P_g)(t)+Num/Den);
}
/* --------------------------------- */
/* --------------------------------- */