function poly_close(e,d,sid,g,f,dir,si,ni,ed,dd,pn,x0,y0)
%閉合導線閉合差計算
global pathname net_name c4_datafile
fit2=fopen(strcat(pathname,net_name,c4_datafile),'wt');
[p1,p2,s,dir12,dir21]=orientcollect(e,d,sid,g,f,dir,si,ni,ed,dd,pn);%整理平面網觀測數據
cpp=ccpoints(p1',p2',ed+dd,length(p1),s);%按余支搜索法進行閉合環搜索
fprintf(fit2,'     閉合導線條件\n');
fprintf(fit2,'環號     閉合環點號       X坐標閉合差    Y坐標閉合差    角度閉合差    長度閉合差   相對閉合差\n');
sitefinal2=[];
for i=1:size(cpp,2)
	site=cpp{i};
	[closediff,err]=orientlead(4,site,si,ni,pn,e,d,sid,g,f,dir,x0,y0);%計算平面網閉合導線的閉合差
	for k=1:length(site)
       site(k)=pn(site(k));
	end
    fprintf(fit2,'---------------------------------------------\n');
	fprintf(fit2,' %5d  %5d%5d%5d%5d%5d%5d%5d',i,site);
	fprintf(fit2,' %10.3f%10.3f%10.3f%10.3f   %10.0f\n',closediff(1:5));
end
fprintf(fit2,'---------------------------------------------\n');
fclose(fit2);
open(strcat(pathname,net_name,c4_datafile));
return