clc,clear
fid1=fopen("x.txt","w");
fid3=fopen("x1.txt","w");
x=[1 123344556778891011111214151516161717171818192021222324242526262728282930303131323333343536363636373838394041414243434445464647474748494950515152535354545556575757586061626263646465666667676868696969707071717273737474757677777879808182828384858686878788888989899091
];
y=[75 78444565396349505932479473534222625217311438404281818379862213131325112710122915307483234333489453537163973941402179243272346855486561505351525956525455633575860459626048564657666677644686975707112437274737418180767778197980188283908485208788889289912084909192
];
xx=[413403383.5381339335317334.5333282247219225280290337415432418444251234225212227256250.5243246314315326327328336336331371371388.5411419411394342342325315342345348.5351348370371354363357351369335381391392395398401405410408415418422418.5405.5405409417420424438438.5434438440447448444.5441440.5445444
];
yy=[359343351377.5376383362353.5342325301316270292335328335371374394277271265290300301306328337367351355350342.5339334335330333330.5327.5344343346342348372374372382380.5377369363353374382.5387382388395381375366361362359360355350351347354356364.5368370364370372368373376385392392381383385381.5380360
];
r=zeros(max(x),max(y));
for i=1:140
r(x(i),y(i))=1;
r(y(i),x(i))=1;
end
ii=1;
for i=1:140
d(x(i),y(i))=sqrt((xx(x(i))-xx(y(i)))^2+(yy(x(i))-yy(y(i)))^2);
d(y(i),x(i))=sqrt((xx(x(i))-xx(y(i)))^2+(yy(x(i))-yy(y(i)))^2);
dd(ii)=d(x(i),y(i));
ii=ii+1;
end
for i=1:92
for j=1:92
if d(i,j)==0
d(i,j)=inf;
end
end
end
for i=1:92
d(i,i)=0;
end
for k=1:92
for i=1:92
for j=1:92
if d(i,k)+d(k,j)=30
d_92(i,j)=0;
end
end
end
xlswrite("1.xlsx",d_92)
fclose(fid1);
fclose(fid3);