function [p1,p2,s,dir12,dir21]=orientcollect(e,d,sid,g,f,dir,si,ni,ed,dd,pn)
global  ed dd sd e d sid g f dir ni si 
 sd=ed+dd;
 num=0;
  for i=1:sd-1
      for j=i+1:sd
          [dist,kdis]=findsid(i,j,e,d,sid);
          [dir1,kdir1]=finddir(i,j,g,f,dir,si,ni);
          [dir2,kdir2]=finddir(j,i,g,f,dir,si,ni);
          if kdis+kdir1+kdir2==3
              num=num+1;
              p1(num)=i;
              p2(num)=j;
              s(num)=dist;
              dir12(num)=dir1;
              dir21(num)=dir2;
          end
      end
  end
return