function Q2 = SEA_plot(i,x,y,xtitle,ytitle,plot_title,type);
%
figure(i);
plot(x,y);
ymax=max(y);
%
xlabel(xtitle);
ylabel(ytitle);
title(plot_title);
%
if(type==2)
    set(gca,'MinorGridLineStyle','none','GridLineStyle',':','XScale','log','YScale','lin','XminorTick','off','YminorTick','off');
    grid('on');
end    
if(type==1)
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',[100 200 300 400 500 600 700 800 900 1000 2000 3000 4000 5000 6000 7000 8000 9000 10000])
set(gca,'XTickLabel',{'100';'';'';'';'';'';'';'';'';'1000';'';'';'';'';'';'';'';'';'10000'}) 
fmin=100;
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
%
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*(1.00001)]);
%
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('%8.1g',ymin);
string2=sprintf('%8.1g',10*ymin);
string3=sprintf('%8.1g',100*ymin);
string4=sprintf('%8.1g',1000*ymin);
string5=sprintf('%9.1g',10000*ymin);
string6=sprintf('%10.1g',100000*ymin);
string7=sprintf('%10.1g',1000000*ymin);
%
if(str2num(string1)==1000)
    string1='1E+03';
    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
%
if(nd==1)
    set(gca,'YTickLabel',{string1;'';'';'';'';'';'';'';'';string2})
end
if(nd==2)
    set(gca,'YTickLabel',{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
end
Q2=ymax;