[code:7011qbd8]data a;
do id=1 to 100;
x=ceil(ranuni(0)*100);
y=ceil(ranuni(1)*100);
output;
end;
run;
data b;
do id=1 to 1000;
m=ceil(ranuni(3)*100);
n=ceil(ranuni(4)*100);
output;
end;
run;
proc sql noprint;
create table result1 as
select avg(sqrt((a.x-b.x)**2+(a.y-b.y)**2)) as mean from a as a,a as b;
quit;
proc sql noprint;
create table result2 as
select avg(sqrt((a.x-b.m)**2+(a.y-b.n)**2)) as mean from a,b;
quit; [/code:7011qbd8]