Mathc initiation/a170

Sommaire

Installer ce fichier dans votre répertoire de travail.

	kradius.h

/* --------------------------------- */
/* save as  kradius.h                */
/* --------------------------------- */
double cX(
double t)
{
         return(2.*cos(t));
}
char  cXeq[] = "2.*cos(t)";
/* ------------------------------------ */
double cY(
double t)
{
         return(2.*sin(t));
}
char  cYeq[] = "2.*sin(t))";
/* ------------------------------------ */
/* ------------------------------------ */
void radius(
double (*P_f)(double t),
double (*P_g)(double t),
double t
)
{
FILE   *fp;

 fp = fopen("a_r01","w");
      fprintf(fp," %6.5f   %6.5f\n",
                  cX(t), cY(t) );
      fprintf(fp," %6.5f   %6.5f\n",
                 (*P_f)(t),(*P_g)(t));
 fclose(fp);
}
/* --------------------------------- */
/* --------------------------------- */