% Octave用   2005/09/14　小川智浩　作成．
% 楕円（円）を記述する．
%

clear
format long e

%図形に関するパラメータ
disp('ellipse (including circle)')
a = 1
b = 0.5

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

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

for t = 0:dt:(2*pi)
	XX = [XX a*cos(t)];
	YY = [YY b*sin(t)];
end

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

%図形描画

	axis([min(XX)-Waku_Xmin max(XX)+Waku_Xmax min(YY)-Waku_Ymin max(YY)+Waku_Ymax]);
	plot(XX,YY,'-;ellipse;')
	
%　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_ellipse.eps";
	plot(XX,YY,'-;ellipse;')
%　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')
