function?[shang]=jsshang（xdatemr）
%m=2;
%r=12;

n=length（xdate）;
cr=[];
gn=1;
gnmax=m;
while?gn<=gnmax
x2m=zeros（n-m+1m）;%存放變換后的向量
d=zeros（n-m+1n-m）;%?存放距離結果的矩陣
cr1=zeros（1n-m+1）;%存放
k=1;
for?i=1:n-m+1

for?j=1:m

x2m（ij）=xdate（i+j-1）;

end
end

for?i=1:n-m+1

for?j=1:n-m+1

if?i~=j

d（ik）=max（abs（x2m（i:）-x2m（j:）））;%計算各個元素和響應元素的距離

k=k+1;

end
end

k=1;
end

for?i=1:n-m+1

[kl]=size（find（d（i:）
cr1（1i）=（1/（n-m+1））*l;
end

sum1=0;
for?i=1:n-m+1

if?cr1（i）~=0

sum1=sum1+log（cr1（i））;

end
end
f=1/（n-m+1）*sum1;
cr（1gn）=f;
gn=gn+1;
m=m+1;
end
cr;
shang=cr（11）-cr（12）;

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件???????4240??2009-09-22?14:57??PSO_DONEBYMYSELS.C

-----------?---------??----------?-----??----

?????????????????4240????????????????????1