function InterPoint = FunInterpoint(m,tao,Serial)
% output -Interpoint:相空間中的兩點(diǎn)距離（即相空間矢量的距離）序列，
% 采用歐氏范數(shù)距離

%----------------- reconstruct phase space------------------
n = length(Serial);
N = n - (m-1)*tao;
for i = 1:N
    for j = 1:m
        PS(i,j) = Serial(i+(j-1)*tao);
    end
end
%----------------interpoint distance---------------------
InterPoint = [];
N = size(PS,1);
for i=1:N
    for j=i+1:N
        D = norm(PS(i,:) - PS(j,:),2);
        InterPoint = [InterPoint,D];
    end
end