Mathc initiation/Fichiers h : c38a3
Installer ce fichier dans votre répertoire de travail.
kcircle.h |
---|
/* --------------------------------- */
/* save as kcircle.h */
/* --------------------------------- */
double cf(
double t,
double r,
double x)
{
return(r*cos(t)+x);
}
/* --------------------------------- */
double cg(
double t,
double r,
double y)
{
return(r*sin(t)+y);
}
/* --------------------------------- */
void circle(
double r,
double x,
double y,
double step
)
{
FILE *fp = fopen("a_circle","w");
double t =-step;
for(;(t+=step)<2.01*PI;)
fprintf(fp," %6.5f %6.5f\n",
cf(t,r,x),cg(t,r,y));
fclose(fp);
}
/* --------------------------------- */
/* --------------------------------- */