Mathc initiation/Fichiers h : c38a3


Sommaire


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);
}
/* --------------------------------- */
/* --------------------------------- */