stkInit;
remMachine = stkDefaultHost;
conid = stkOpen(remMachine);
objNames = stkObjNames;
dt = 60;
style = 'Access';
startTime = 0;
endTime = 60;
result = zeros(24);
for i = 4:27
disp(i)
for j = 4:27
if i ~= j
%disp(j)
[secData, secNames] =stkAccReport(char(objNames(int32(i))),char(objNames(int32(j))), style,startTime,endTime,dt);
[temp1,temp2] = size(secData{1});
if temp2 == 4
[a,b,c,d] = secData{1}.data;
% a: Access b:Start Time c:End Time d:Duration
if d == dt
result(i-3,j-3) = 1;
end
end
else
result(i-3,j-3) = 1;
end
end
end
stkClose(conid);
stkClose;
remMachine = stkDefaultHost;
conid = stkOpen(remMachine);
objNames = stkObjNames;
dt = 60;
style = 'Access';
startTime = 0;
endTime = 60;
result = zeros(24);
for i = 4:27
disp(i)
for j = 4:27
if i ~= j
%disp(j)
[secData, secNames] =stkAccReport(char(objNames(int32(i))),char(objNames(int32(j))), style,startTime,endTime,dt);
[temp1,temp2] = size(secData{1});
if temp2 == 4
[a,b,c,d] = secData{1}.data;
% a: Access b:Start Time c:End Time d:Duration
if d == dt
result(i-3,j-3) = 1;
end
end
else
result(i-3,j-3) = 1;
end
end
end
stkClose(conid);
stkClose;