function rayadorecinf(a)
xi=0;
yi=-180; %cte
xf=0.02;
yf=-150; %cte
for rayas=1:20
x=[xi xf];
y=[yi yf];
hold on
plot(x,y,'r')
hold off
xi=xi+0.05;
xf=xf+0.05;
end
%x=[0 0.1];
%y=[-165 -150];
%hold on
% plot(x,y,'r')
%hold off
%x1=[0.9 1.0];
%y1=[-180 -165];
%hold on
% plot(x1,y1,'r')
%hold off
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
