?? zyfg.m
字號:
function kc = ZYFG(X,k)
format long;
n = length(X);
kc = zeros(k,1);
kc(k) = n;
for s=1:k-1
minD = inf;
for i=k-s+1:kc(k)
Dc = Dg(X,1,i-1) + Dg(X,i,kc(k-s+1));
if Dc < minD
minD = Dc;
kc(k-s) = i-1;
end
end
end
format short;
function Diameter = Dg(X,i,j)
format long;
meanX = sum(X(i:j))/(j-i+1);
Diameter = dot(X(i:j)-meanX*ones(size(X(i:j))),X(i:j)-meanX*ones(size(X(i:j))));
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -