k-medoids 源代码

function Y=search_queen(n) %皇后算法，n必须为奇数，不然不能用该算法；（对角线约束太强了，很多时候是无解的，所以不要对角线约束） %这样约束条件为：同一行同一列只能有一个为1； M=zeros(n,n);M1=ones(n,n…

function [h] = hess_my(ip,iq,ry,rz,ryz,rzy) for j=1:ip for k=1:ip h(j,k)=2.*ry(abs(j-k)+1); end end for…

function [ARF,RCF,PE,DC,varargout] = mvar(Y, Pmax, Mode); % Estimates Multi-Variate AutoRegressive model parameters % function …

# This file is a shell script that supplies the information necessary # to tailor a template configure script into the configure s…

# Target: Motorola 68xxx, in a file format that uses leading underlines. # (such as a.out) TDEPFILES= exec.o m68k-pinsn.o m68k-tde…

# Target: Motorola 88000 Binary Compatability Standard TDEPFILES= m88k-tdep.o m88k-pinsn.o TM_FILE= tm-m88k.h

# Target: Motorola 68xxx, in a file format that uses no leading underlines. # (such as COFF or ELF) TDEPFILES= exec.o m68k-pinsn.o…

# Target: Motorola 88000 TDEPFILES= m88k-tdep.o m88k-pinsn.o TM_FILE= tm-delta88.h

function rz=getrz(c,x1,x2,u) rz=zeros(1,16); for k=x1:16 for i=2:x1 rz(k)=rz(k)-c(i-1)*rz(k-i+1); end …

%Levinson算法求AR模型参数，并求得功率谱 function [a,e2]=Levinson(x,p) R=r(x); a=zeros(p,p); %用来存放AR模型参数 e2=zeros(1,p)…