function rayadorecsup(a)
xi=0;
yi=30; %cte
xf=0.1; %cte
yf=180;
for rayas=1:19
x=[xi xf];
y=[yi yf];
hold on
plot(x,y,'r')
hold off
xi=xi+0.05;
xf=xf+0.05;
end
xi=0;
yi=105;
xf=0.05;
yf=180;
x=[xi xf];
y=[yi yf];
hold on
plot(x,y,'r')
hold off
xi=0.95;
yi=30;
xf=1;
yf=105;
x=[xi xf];
y=[yi yf];
hold on
plot(x,y,'r')
hold off
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
