function copy(handle,i,j)

%%For this function file, you need to deliver the handle of the old axes
%%you want to copy to a subfigure labeled(2,i,j)

old_handle=handle;

children=get(old_handle,'children');
xli=get(old_handle,'xlim');
yli=get(old_handle,'ylim');
tit=get(old_handle,'title');
xlab=get(old_handle,'xlabel');
ylab=get(old_handle,'ylabel');
xli=get(old_handle,'xlim');
yli=get(old_handle,'ylim');

subplot(2,2,j);
set(subplot(2,2,j),'xlim',xli);
set(subplot(2,2,j),'ylim',yli);
new=copyobj(children,subplot(2,2,j));
new=copyobj(tit,subplot(2,2,j));
new=copyobj(xlab,subplot(2,2,j));
new=copyobj(ylab,subplot(2,2,j));
