function niceplot(D,xrange,yrange,ratio,plotone,ylab)if nargin < 2    xrange=[1 length(D)];endif nargin < 3    yrange=[min(D(xrange(1):xrange(2))) max(D(xrange(1):xrange(2)))];    if(yrange(1) > 0)        yrange(1)=0;    end    if isnan(yrange(1))        yrange(1)=-Inf;    end    if isnan(yrange(2))        yrange(2)=Inf;    endendif nargin < 4    ratio = 6;%    ratio = 12;endfor i=1:length(D)    if isinf(D(i)) | isnan(D(i))        D(i)=yrange(2)+1;    endendfigure%area(D,'EdgeColor',[0.7 0.7 0.7],'FaceColor',[0.7 0.7 0.7],'LineStyle','none'), hold onarea(D,'EdgeColor',[0 0 0],'FaceColor',[0.7 0.7 0.7],'LineWidth',1.5), hold onaxis([xrange(1) xrange(2) yrange(1) yrange(2)])if nargin >= 6    ylabel(ylab)endset(gca,'ytick',[yrange(1) yrange(2)])%set(gca,'YTickLabel',{num2str(yrange(1));num2str(yrange(2),'%11.1e')})set(gca,'xtick',[xrange(1) xrange(2)])set(gca,'XTickLabel',{'0';'1'})%set(gca,'xtick',[])xlabel('Density','FontSize',14)set(gca,'FontSize',14)pbaspect([ratio 1 1])if nargin >= 5    l(xrange(1):xrange(2))=1;    plot(l,'k-')end