纵横向拉开档次法的MATLAB实现.doc
5星 · 超过95%的资源 需积分: 47 192 浏览量
2021-06-26
15:35:04
上传
评论
收藏 56KB DOC 举报 
clear all
global xystdsz xystd x y %定义全局变量
load data.mat %原始数据
xystd=bzycl(x,y); %数据无量纲处理
[xystdrow,xystdcol]=size(xystd);
%----------区域知识创造能力评价----------
for tt=1:xystdcol
xystdsz{tt}(:,:)=xystd{tt}(:,1:10); %提取区域知识创造能力指标无量纲值
end
[xystdszrow,xystdszcol]=size(xystdsz);
[xyrow,xycol]=size(xystdsz{1});
w0=zeros(1,xycol);
for i=1:xycol
w0(1,i)=1/xycol; % 优化初始值
end
Aeq=[]; beq=[];
lb=zeros(1,xycol);ub=ones(1,xycol);
options =optimset('largescale','off');
[w,faval]=fmincon(@YHQU,w0,[],[],Aeq,beq,lb,ub,@fun,options ); %优化求权重
wqz1=w./sum(w); %权重归一化
for tt=1:xystdszcol
z{tt}(:,1)=xystd{tt}(:,1:10)*wqz1'; % 求评价值
pxacz(:,tt)=px(z{tt}(:,1)) ; % 对评价值排序
end
clear w0 w lb ub faval ;
clear global xystdsz;
%--------区域知识流动能力评价------------
for tt=1:xystdszcol
xystdsz{tt}(:,:)=xystd{tt}(:,11:16); %提取区域知识流动能力指标无量纲值
end
global xystdsz;
[xystdszrow,xystdszcol]=size(xystdsz);
[xyrow,xycol]=size(xystdsz{1});
w0=zeros(1,xycol);
for i=1:xycol
w0(1,i)=1/xycol; % 优化 w 初始值
end
Aeq=[]; beq=[];
lb=zeros(1,xycol);ub=ones(1,xycol);
options =optimset('largescale','off');
[w,faval]=fmincon(@YHQU,w0,[],[],Aeq,beq,lb,ub,@fun,options );
wqz2=w./sum(w); %权重归一化
for tt=1:xystdszcol
z{tt}(:,2)=xystd{tt}(:,11:16)*wqz2'; % 求评价值
资源评论
泡泡SOHO2023-07-24作者对于算法背后的原理也进行了简要的解释，读者可以更好地理解纵横向拉开档次法的核心思想。
宏馨2023-07-24文件中的示例数据与实际应用场景相符，读者可以通过跟随文档进行实际操作。
禁忌的爱2023-07-24这篇文件提供了MATLAB实现纵横向拉开档次法所需的代码示例，非常实用。
战神哥2023-07-24这篇文件清晰地解释了纵横向拉开档次法在MATLAB中的实现步骤，对于初学者来说非常友好。
点墨楼2023-07-24作者用简单明了的语言，详细描述了纵横向拉开档次法的实现过程，让读者能够快速上手。
文档优选
- 粉丝: 88
- 资源: 1万+
