% Octave用   2005/09/17　小川智浩　作成．
% サイクロイド曲線を記述する．

clear
format long e

%サイクロイドの記述--------------------------------------

%図形に関するパラメータ
disp('cycloid')
r = 1

%描画に関するパラメータ
dt = pi/180;
Waku_Xmin = 1.0;
Waku_Xmax = 1.0;
Waku_Ymin = 1.0;
Waku_Ymax = 1.0;

%初期化
XX = [];
YY = [];

for t = (-pi*2/3):dt:((2+2/3)*pi)
	XX = [XX r*(t-sin(t))];
	YY = [YY r*(1-cos(t))];
end

%-------------------------------------------------------

%図形描画
	axis([min(XX)-Waku_Xmin max(XX)+Waku_Xmax min(YY)-Waku_Ymin max(YY)+Waku_Ymax]);
	plot(XX,YY,'-;cycloid;')
	
%　X軸の追記
	hold('on')
	plot([(min(XX)-Waku_Xmin) (max(XX)+Waku_Xmax)],[0 0],'g-;;')

%　Y軸の追記
	plot([0 0],[(min(YY)-Waku_Ymin) (max(YY)+Waku_Ymax)],'g-;;')

	hold('off')

%　epsファイルに出力
        gset terminal postscript eps;
        gset output "graph_cycloid.eps";
	plot(XX,YY,'-;cycloid;')
%　X軸の追記
	hold('on')
	plot([(min(XX)-Waku_Xmin) (max(XX)+Waku_Xmax)],[0 0],'g-;;')
%　Y軸の追記
	plot([0 0],[(min(YY)-Waku_Ymin) (max(YY)+Waku_Ymax)],'g-;;')
	hold('off')

