// ５種の卵型曲線を描くこと，2004年1月9日（月）
// 曲線の方程式：(x*x+y*y)**2=a*(x**3)+(a-b)*x*(y**2),   ただし、b=< a
// file name: egg_shaped_curve_2.c

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

void main(void)
{
	double x,y,a,b,db,bmax;
	int i,imax,n,nmax,j,m;
	double xmax,dx;
	double xx[2005],yy[10][1005];// 配列を格納するメモリ容量の上限に注意

	FILE *fp;

// 定数の設定
        a=4.0;
	 
// 他のパラメータ設定
	xmax=a;// x の最大値
	dx=xmax/400;// x のプロット間隔
	bmax=a;
	db=bmax/5;

	i=0;

// 計算実行
	for(x=0;x<=xmax;x=x+dx)
	{
		i++;
		n=0;

		xx[i]=x;

		for(b=0;b<=bmax;b=b+db)
		{
			n++;

			y=sqrt(((a-b-2*x)+sqrt(4*b*x+(a-b)*(a-b)))*x/2);// b=0 のときの円の方程式 y=sqrt(a*a/2/2-(x-a/2)*(x-a/2)) を含んでいる．
			yy[n][i]=y;

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

	imax=i;
	nmax=n;

	j=0;

	for(i=imax+1;i<=2*imax;i++)
	{
		j++;
		m=imax-j;

		xx[i]=xx[m];

		for(n=1;n<=nmax;++n)
		{
			yy[n][i]=-yy[n][m];
		}
	}

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

	if(fp==NULL)
	{
        	printf("FILE OPEN ERROR\n");
	}
	else
	{
		for(i=1;i<=2*imax;i++)
		{
			fprintf(fp,"%f,%f,%f,%f,%f,%f,%f\n",xx[i],yy[1][i],yy[2][i],yy[3][i],yy[4][i],yy[5][i],yy[6][i]);
		}

		fflush(fp);
		fclose(fp);
	}

	printf("end\n");
}// the end of the program