% Octave用   2006/02/14　小川智浩　作成．
% 双曲線を記述する．

clear
format long e

%双曲線の記述--------------------------------------

%図形に関するパラメータ
disp('hyperbola')
a = 1.5
b = 2

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

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


for t = (-pi):dt:(pi)
	XX = [XX a*cosh(t)];
	YY = [YY b*sinh(t)];
end

for t = (-pi):dt:(pi)
	XX2 = [XX2 -a*cosh(t)];
	YY2 = [YY2 b*sinh(t)];
end

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

%図形描画

	axis([min(XX2)-Waku_Xmin max(XX)+Waku_Xmax min(YY)-Waku_Ymin max(YY)+Waku_Ymax]);
	
	plot(XX,YY,'r-;hyperbola;',XX2,YY2,'r-;;')

hold('on')


%　X軸の追記
        plot([(min(XX2)-Waku_Xmin*0.99) (max(XX)+Waku_Xmax*0.99)],[0.0 0.0],'g-;;')

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

gset terminal windows

