// ［このプログラムの目的］カージオイドからハート形曲線への変換2b_2，2012年1月10日（火）

// file name: heart_curve_2b_2.c

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

void main(void)
{

	double a,pi;// pi は円周率
	double r,f,df;// それぞれ、曲座標の動径、変換後の位相角、および、変換後の位相角の変分
	double t;// 変換前の位相角
	double fmin,fmax;// 位相角の最小値と最大値
	double b,c;// カージオイドからハート形曲線への変換係数
	double d;// 縦方向に伸縮する伸縮係数
	double k;// 正弦関数の1周期（2*pi）の短縮係数で 0 < k <= 1 とする
	int i,imax;
	double xx[10001],yy[10001];// メモリ容量の上限に注意

	FILE *fp;

//  定数設定
	pi=3.14159265;
	a=1;

	b=1.35;// 数値は 1.3 から 2.0 の間が良い
	c=0.7;// 0 < beta <1 で、 0.5 から 0.8 が良い
	d=1.05;// 0.7 から 1.5 の間が良い
	k=0.97;// 0 < k <= 1

//  他のパラメータ設定
	fmin=-pi/2;
	fmax=3*pi/2;
	df=(fmax-fmin)/4000;// 位相角 f のプロット間隔

//  計算実行
	i=0;
	for(f=fmin;f<= fmax;f=f+df)
		{
		i++;

		t=(1-b)*(f-pi/2)+2*b*asin((f-pi/2)*sin(pi*k/2)/pi)/k+pi/2;
		r=a*(1-sin(t));

		xx[i]=r*(1+c*sin(f))*cos(f);
		yy[i]=d*r*(1+c*sin(f))*sin(f);

		printf("i=%d,x=%f,y=%f\n",i,xx[i],yy[i]);
		}
	imax=i;

// 計算データ[ハート曲線の(x,y)座標]をテキストファイル（heart_curve_2b_2.txt）に書き込む
	fp=fopen("heart_curve_2b_2.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