%
%
%
function H=plotconstc(x,l,r,c)
n=length(x);
delta=(r-l)/n;
myx=[0];
myy=[0];
for i=1:n
  myx=[myx ((i-1)*delta+l:(delta/20):i*delta+l)];
  myy=[myy (ones(1,21)*x(i))];
end
l2=length(myx);
myx=myx(2:l2);
myy=myy(2:l2);
plot(myx,myy,c);
H=gca;
set(H,'FontSize',18);
set(H,'LineWidth',1.0);

