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');
tit=get(old_handle,'title');
xlab=get(old,'xlabel');
ylab=get(old_handle,'ylabel');
xli=get(old_handle,'xlim');
yli=get(old_handle,'ylim');

new=copyobj(children,subplot(2,i,j));
new=copyobj(tit,subplot(2,2,1));
new=copyobj(xlab,subplot(2,2,1));
new=copyobj(ylab,subplot(2,2,1));