function Q2 = dp_plot(i,x,y,xtitle,ytitle,plot_title);
%
figure(i);
plot(x,y);
xlabel(xtitle);
ylabel(ytitle);
title(plot_title);
%
set(gca,'MinorGridLineStyle','none','GridLineStyle',':','XScale','log','YScale','log','XminorTick','off','YminorTick','off');
set(gca,'XGrid','on','GridLineStyle',':');
set(gca,'YGrid','on','GridLineStyle',':');
set(gca,'xtick',[10 20 30 40 50 60 70 80 90 100 200 300 400 500 600 700 800 900 1000 2000 3000 4000 5000 6000 7000 8000 9000 10000])
set(gca,'XTickLabel',{'10';'';'';'';'';'';'';'';'';'100';'';'';'';'';'';'';'';'';'1000';'';'';'';'';'';'';'';'';'10000'}) 
fmin=10;
fmax=10000;
ymin=1.0e+20;
for(i=1:length(y))
    if(y(i)>0 & x(i)<=fmax)
        if(y(i)<ymin)
            ymin=y(i);
        end
    end
end
ymax=max(y);
for(i=-12:12)
    if((10^i)>ymax)
        ymax=(10^i);
        break;
    end
end
for(i=-12:12)
    if((10^(-i))<ymin)
        ymin=(10^(-i));
        break;
    end
end
axis([fmin,fmax,ymin,ymax]);
%
ya=ymin;
k=1;
for(i=1:10)
    for(j=1:9)
        ytickn(k)=j*ya; 
        k=k+1;
    end
    ya=ya*10.;
    ytickn(k)=ya; 
%    
    if(ya>ymax)
        break;
    end
end
%
set(gca,'ytick',ytickn);
%
nd=fix(log10(ymax/ymin));
%
string1=sprintf('%9.1g',(1*ymin));
string2=sprintf('%9.1g',(10*ymin));
string3=sprintf('%9.1g',(100*ymin));
string4=sprintf('%9.1g',(1000*ymin));
string5=sprintf('%9.1g',(10000*ymin));
string6=num2str(100000*ymin);
string7=num2str(1000000*ymin);
%
if(str2num(string1)==0.01)
    string1='0.01';
    string2='0.1';
    string3='1';
    string4='10';
    string5='100'; 
end
if(str2num(string1)==0.1)
    string1='0.1';
    string2='1';
    string3='10';
    string4='100';
    string5='1000'; 
end
if(str2num(string1)==1)
    string1='1';
    string2='10';
    string3='100';
    string4='1000';
    string5='1E+04'; 
end
if(str2num(string1)==10)
    string1='10';
    string2='100';
    string3='1000';
    string4='1E+04';
    string5='1E+05'; 
end
if(str2num(string1)==100)
    string1='100';
    string2='1000';
    string3='1E+04';
    string4='1E+05';
    string5='1E+06'; 
end
if(str2num(string1)==1000)
    string1='1000';
    string2='1E+04';
    string3='1E+05';
    string4='1E+06';
    string5='1E+07'; 
end
if(str2num(string1)==10000)
    string1='1E+04';
    string2='1E+05';
    string3='1E+06';
    string4='1E+07';
    string5='1E+08'; 
end
if(str2num(string1)==100000)
    string1='1E+05';
    string2='1E+06';
    string3='1E+07';
    string4='1E+08';
    string5='1E+09';    
end
if(str2num(string1)==1000000)
    string1='1E+06';
    string2='1E+07';
    string3='1E+08';
    string4='1E+09';
    string5='1E+10';   
end
%
nd
if(nd==1)
    set(gca,'YTickLabel',{string1;'';'';'';'';'';'';'';'';string2})
    string1
    string2
end
if(nd==2)
    set(gca,'YTickLabel',{string1;'';'';'';'';'';'';'';'';string2;'';'';'';'';'';'';'';'';string3})
    string1
    string2
    string3
end
if(nd==3)
    set(gca,'YTickLabel',{string1;'';'';'';'';'';'';'';'';string2;'';'';'';'';'';'';'';'';string3;'';'';'';'';'';'';'';'';string4})
end
if(nd==4)
    set(gca,'YTickLabel',{string1;'';'';'';'';'';'';'';'';string2;'';'';'';'';'';'';'';'';string3;'';'';'';'';'';'';'';'';string4;'';'';'';'';'';'';'';'';string5})
end
if(nd==5)
    set(gca,'YTickLabel',{string1;'';'';'';'';'';'';'';'';string2;'';'';'';'';'';'';'';'';string3;'';'';'';'';'';'';'';'';string4;'';'';'';'';'';'';'';'';string5;'';'';'';'';'';'';'';'';string6})
end
if(nd==6)
    set(gca,'YTickLabel',{string1;'';'';'';'';'';'';'';'';string2;'';'';'';'';'';'';'';'';string3;'';'';'';'';'';'';'';'';string4;'';'';'';'';'';'';'';'';string5;'';'';'';'';'';'';'';'';string6;'';'';'';'';'';'';'';'';string7})
end
Q2=ymax;