function hmsp(hsp,sp);
  if hsp<=3;
    nrw=1
    ncl=hsp;
  elseif hsp==4;
    nrw=2;
    ncl=2;
  elseif hsp>4;
    nrw=3;
    ncl=2;
  end;
  subplot(nrw,ncl,sp);

  