// ［このプログラムの目的］１個の卵形曲線を描くこと(凹形歪楕円からの変形)，2009年11月24日（火）

// file name: egg6b.c

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

void main(void)
{
	double x,y,z,a,b,c,d,k1,k2,k3;
	int i,imax,j,m;
	double xmin,xmax,dx;
	double xx[10001],yy[10001];// メモリ容量の上限に注意

	FILE *fp;

//  定数設定
	a=0.;// 0.
	b=2.0;// 2.0
	c=2.8;// 2.8
	d=1.0;// 1.0
	k1=1.0;// 1.0
	k2=1.0;// 1.0
	k3=1.0;// 1.0

//  他のパラメータ設定
	// xmin と xmax は曲線がｘ軸を切る（すなわち、方程式が y=0 を満たす）2点のｘ座標。
	dx=0.0001;
	for(x=0;;x=x-dx)
	{
		xmin=x;
		z=-log(k1*exp(-a*a)+k3*exp(-d*x)-k2*exp(-b*b*x*x));
		if(z<0)
		{
			xmin=xmin+dx;
			break;
		}
	}

	for(x=0;;x=x+dx)
	{
		xmax=x;
		z=-log(k1*exp(-a*a)+k3*exp(-d*x)-k2*exp(-b*b*x*x));
		if(z<0)
		{
			xmax=xmax-dx;
			break;
		}
	}

	dx=(xmax-xmin)/2000;// x のプロット間隔

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

		xx[i]=x;

		y=sqrt(-log(k1*exp(-a*a)+k3*exp(-d*x)-k2*exp(-b*b*x*x)))/c;
		yy[i]=y;
		printf("i=%d,x=%f,y=%f\n",i,x,y);
	}
	imax=i;
	j=0;

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

		xx[i]=xx[m];
		x=xx[i];
		yy[i]=-yy[m];
	}
	xx[2*imax]=xx[1];
	yy[2*imax]=yy[1];

// 計算データ（凹形歪円曲線の（ｘ，ｙ）座標）をテキストファイル（distorted_circle.txt）に書き込む
	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\n",xx[i],yy[i]);
		}
		fflush(fp);
		fclose(fp);
	}
	printf("end\n");
}// the end of the program

～ブラウザの「戻る」で 前に開いたページに戻ります～

～または、下のボタンを押して 本サイトの前ページに戻ります～

戻る