clear all
figure(1)
clf
%plot(WperSdat,WperP_climb,'m')
%hash_right(WperSdat,WperP_climb)
i=0:10;
plot(i,-i)
hash_right(i,-i,-80)
text2(.4,.4,'hash right')
grid on

figure(2)
clf
%plot(WperSdat,WperP_climb,'m')
%hash_right(WperSdat,WperP_climb)
i=0:10;
plot(i,-i)
hash_left(i,-i,70)
text2(.4,.4,'hash left')
grid on

figure(3)
clf
%plot(WperSdat,WperP_climb,'m')
%hash_right(WperSdat,WperP_climb)
% AXIS([XMIN XMAX YMIN YMAX])
axis([0 10 -10 10]); hold on
i=0:10;
plot(ones(size(i)),i)
hash_left(ones(size(i)),i)
title('Vertical line')
text2(.4,.4,'hash left')
hold off
grid on

figure(4)
clf
%plot(WperSdat,WperP_climb,'m')
%hash_right(WperSdat,WperP_climb)
axis([0 10 -10 10])
hold on
i=0:10;
plot(i,ones(size(i)))
hash_left(i,ones(size(i)))
title('Horizontal line')
text2(.4,.4,'hash left')
hold off
grid on


figure(5)
plot(i,i)
hash_right(i,i,-80)
text2(.4,.4,'hash right')
grid on

figure(6)
clf
%plot(WperSdat,WperP_climb,'m')
%hash_right(WperSdat,WperP_climb)
i=0:10;
plot(i,-i)
hash_right(i,-i,70)
text2(.4,.4,'hash right')
grid on

figure(7)
clf
%plot(WperSdat,WperP_climb,'m')
%hash_right(WperSdat,WperP_climb)
% AXIS([XMIN XMAX YMIN YMAX])
axis([0 10 -10 10]); hold on
i=0:10;
plot(ones(size(i)),i)
hash_right(ones(size(i)),i)
title('Vertical line')
text2(.4,.4,'hash right')
hold off
grid on

figure(8)
clf
%plot(WperSdat,WperP_climb,'m')
%hash_right(WperSdat,WperP_climb)
axis([0 10 -10 10])
hold on
i=0:10;
plot(i,ones(size(i)))
hash_right(i,ones(size(i)))
title('Horizontal line')
text2(.4,.4,'hash right')
hold off
grid on