graph1D2jd

0001 function [ax] = graph1D2jd(x1,y1,x2,y2,xlab,ylab1,ylab2,tit,xlim,ylim1,ylim2,...
0002     style1,marker1,color1,width1,style2,marker2,color2,width2,siz,red,lspace,bspace);
0003 
0004 if nargin < 23
0005     bspace = NaN;
0006 end
0007 if nargin < 22
0008     lspace = NaN;
0009 end
0010 if nargin < 21
0011     red = 1;
0012 end
0013 
0014 ax = plotyy(x1,y1,x2,y2);
0015 
0016 line1 = get(ax(1),'children');
0017 line2 = get(ax(2),'children');
0018 
0019 set(line1,'linewidth',width1);
0020 set(line2,'linewidth',width2);
0021 set(line1,'linestyle',style1);
0022 set(line2,'linestyle',style2);
0023 set(line1,'marker',marker1);
0024 set(line2,'marker',marker2);
0025 
0026 
0027 if ~isnan(xlim)
0028     set(ax(1),'xlim',xlim);
0029     set(ax(2),'xlim',xlim);
0030 end
0031 
0032 if isstruct(ylim1),
0033     set(ax(1),'ylim',ylim1.lim);
0034     set(ax(1),'ytick',ylim1.tick);
0035 elseif ~isnan(ylim1)
0036     set(ax(1),'ylim',ylim1);
0037 end
0038 
0039 if isstruct(ylim2),
0040     set(ax(1),'ylim',ylim2.lim);
0041     set(ax(1),'ytick',ylim2.tick);
0042 elseif ~isnan(ylim2)
0043     set(ax(2),'ylim',ylim2);
0044 end
0045 
0046 xl = xlabel(xlab);set(xl,'fontsize',siz);
0047 %
0048 set(ax(1),'fontsize',siz,'fontname','times');
0049 set(ax(2),'fontsize',siz,'fontname','times');
0050 yl1 = get(ax(1),'ylabel');set(yl1,'string',ylab1,'fontsize',siz,'fontname','times');
0051 yl2 = get(ax(2),'ylabel');set(yl2,'string',ylab2,'fontsize',siz,'fontname','times');
0052 tl = title(tit);set(tl,'fontsize',siz);
0053 
0054 if ~isnan(color1)
0055     set(line1,'color',color1);
0056     set(ax(1),'ycolor',color1);
0057     set(yl1,'color',color1);
0058 end
0059 if ~isnan(color2)
0060     set(line2,'color',color2);
0061     set(ax(2),'ycolor',color2);
0062     set(yl2,'color',color2);
0063 end
0064 set(ax(1),'xcolor','k');
0065 set(ax(2),'xcolor','k');
0066 
0067 %set(ax,'fontsize',24);
0068 
0069 %set(gcf,'PaperPositionMode','auto');
0070 
0071 [lspace_out,bspace_out,apos_new] = resizejd(ax(1),red);
0072 [lspace_out,bspace_out,apos_new] = resizejd(ax(2),1);
0073 
0074 if isnan(lspace)
0075     lspace = lspace_out;
0076 end
0077 if isnan(bspace)
0078     bspace = bspace_out;
0079 end
0080 
0081 [lspace_out,bspace_out,apos_new] = resizejd(ax(1),1,lspace,bspace);
0082 [lspace_out,bspace_out,apos_new] = resizejd(ax(2),1,lspace,bspace);
0083 
0084 box on
0085 grid on