// ［このプログラムの目的］１個の卵型曲線を媒介変数を用いて描くこと，2008年3月19日（水）
// a=1, b=0.8 の場合、なお、一般的条件は b<=a で、b=0 のときは円となる。
// file name: egg_curve_1b.c

#include< stdio.h>
#include< math.h>

void main(void)
{
	double x,y,a,b,pi;
	double t,dt;
	int i,imax;
	double xx[10001],yy[10001];//  メモリ容量の上限に注意

	FILE *fp;

// 定数設定
        pi=3.1415927;
        a=1.0;
	b=0.7;

	printf("a=%f\n\n",a);

// 他のパラメータ設定
	dt=pi/4000;// x のプロット間隔

	i=0;

// 計算実行
	for(t=-pi;t<=pi;t=t+dt)
	{
		i++;

		x=a/2-b/4+(a/2)*cos(t)+(b/4)*cos(t)*cos(t);
		y=(a/2-b/4+(b/4)*cos(t))*sin(t);
		xx[i]=x;
		yy[i]=y;

		printf("i=%d,x=%f,y=%f\n",i,x,y);
	}

	imax=i;

// 計算データのテキストファイルへの書き込み
	fp=fopen("egg_shaped_curve.txt","w");

	if(fp==NULL)
	{
		printf("FILE OPEN ERROR\n");
	}
	else
	{
		for(i=1;i<=imax;i++)
		{
			fprintf(fp,"%f,%f\n",xx[i],yy[i]);
		}
	fflush(fp);
	fclose(fp);
	}
	printf("end\n");
}// the end of the program