Mathc initiation/Fichiers h : c51fb

Sommaire

Installer ce fichier dans votre répertoire de travail.

	kradius.h

/* --------------------------------- */
/* save as  kradius.h                */
/* --------------------------------- */
void radius(
double (*P_f)(double t),
double (*P_g)(double t),
double t
)
{
FILE   *fp;

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

---