问题三clc,clear%clc清除命令窗口的内容对工作环境中的全部变量无任何影响%clear清除工作空间的所有变量 a[0.4117.326.530.6198.336.330.4527.267.030.4018.216.420.7296.876.590.4357.546.870.4899.017.13];%输入数据[m,n]size(a);x2(qujian,lb,ub,x)(1-(qujian(1)-x)./(qujian(1)-lb)).*(xlbxqujian(1))...(xqujian(1)xqujian(2))(1-(x-qujian(2))./(ub-qujian(2))).*...(xqujian(2)xub);qujian[5,6];lb2;ub12;forj1:nb(:,j)a(:,j)/norm(a(:,j));%向量规范化 end w[0.50.5];cb.*repmat(w,m,1);%求加权矩阵 cstarmax(c);%求正理想解 c0min(c);%求负理想解fori1:msstar(i)norm(c(i,:)-cstar);%求到正理想解的距离s0(i)norm(c(i,:)-c0);%求到负理想解的距离 end fs0./(sstars0);[sf,ind]sort(f,descend)%求排序结果%ascend时,进行升序排序,为descend 时,进行降序排序fori1:msstar(i)norm(c(i,:)-cstar);%求到正理想解的距离s0(i)norm(c(i,:)-c0);%求到负理想解的距离 end fs0./(sstars0);[sf,ind]sort(f,descend)%求排序结果%ascend时,进行升序排序,为descend 时,进行降序排序问题二clc,clear%clc清除命令窗口的内容对工作环境中的全部变量无任何影响%clear清除工作空间的所有变量 a[0.5987.616.540.4018.926.530.6139.646.020.3297.616.230.5768.426.310.4297.316.150.4017.556.34];%输入数据[m,n]size(a);x2(qujian,lb,ub,x)(1-(qujian(1)-x)./(qujian(1)-lb)).*(xlbxqujian(1))...(xqujian(1)xqujian(2))(1-(x-qujian(2))./(ub-qujian(2))).*...(xqujian(2)xub);qujian[5,6];lb2;ub12;forj1:nb(:,j)a(:,j)/norm(a(:,j));%向量规范化 end w[0.250.250.250.25];cb.*repmat(w,m,1);%求加权矩阵 cstarmax(c);%求正理想解 c0min(c);%求负理想解fori1:msstar(i)norm(c(i,:)-cstar);%求到正理想解的距离s0(i)norm(c(i,:)-c0);%求到负理想解的距离 end fs0./(sstars0);[sf,ind]sort(f,descend)%求排序结果%ascend时,进行升序排序,为descend 时,进行降序排序fori1:msstar(i)norm(c(i,:)-cstar);%求到正理想解的距离s0(i)norm(c(i,:)-c0);%求到负理想解的距离 end fs0./(sstars0);[sf,ind]sort(f,descend)%求排序结果%ascend时,进行升序排序,为descend 时,进行降序排序clc,clear%clc清除命令窗口的内容对工作环境中的全部变量无任何影响%clear清除工作空间的所有变量 a[3.423.1345.550.779795.2965.35552.9953.5567.8969.2111.2310.943.682.5823.6322.58];%输入数据[m,n]size(a);x2(qujian,lb,ub,x)(1-(qujian(1)-x)./(qujian(1)-lb)).*(xlbxqujian(1))...(xqujian(1)xqujian(2))(1-(x-qujian(2))./(ub-qujian(2))).*...(xqujian(2)xub);qujian[5,6];lb2;ub12;forj1:nb(:,j)a(:,j)/norm(a(:,j));%向量规范化 end w[0.50.5];cb.*repmat(w,m,1);%求加权矩阵 cstarmax(c);%求正理想解 c0min(c);%求负理想解fori1:msstar(i)norm(c(i,:)-cstar);%求到正理想解的距离s0(i)norm(c(i,:)-c0);%求到负理想解的距离 end fs0./(sstars0);[sf,ind]sort(f,descend)%求排序结果%ascend时,进行升序排序,为descend 时,进行降序排序fori1:msstar(i)norm(c(i,:)-cstar);%求到正理想解的距离s0(i)norm(c(i,:)-c0);%求到负理想解的距离 end fs0./(sstars0);[sf,ind]sort(f,descend)%求排序结果%ascend时,进行升序排序,为descend 时,进行降序排序
TOPSIS算法代码
问题三clc,clear%clc清除命令窗口的内容对工作环境中的全部变量无任何影响%clear清除工作空间的所有变量 a[0.4117.326.530.6198.336.330.4527.267.030.4018.216.420.7296.876.590.4357.546.870.4899.017.13];%输入数据[m,n]size(a);x2(qujian,lb,ub,x)(1-(qujian(1)-x)./(qujian(1)-lb)).*(xlbxqujian(1))...(xqujian(1)xqujian(2))(1-(x-qujian(2))./(ub-qujian(2))).*...(xqujian(2)xub);qujian[5,6];lb2;ub12;forj1:nb(:,j)a(:,j)/norm(a(:,j));%向量规范化 end w[0.50.5];cb.*repmat(w,m,1);%求加权矩阵 cstarmax(c);%求正理想解 c0min(c);%求负理想解fori1:msstar(i)norm(c(i,:)-cstar);%求到正理想解的距离s0(i)norm(c(i,:)-c0);%求到负理想解的距离 end fs0./(sstars0);[sf,ind]sort(f,descend)%求排序结果%ascend时,进行升序排序,为descend 时,进行降序排序fori1:msstar(i)norm(c(i,:)-cstar);%求到正理想解的距离s0(i)norm(c(i,:)-c0);%求到负理想解的距离 end fs0./(sstars0);[sf,ind]sort(f,descend)%求排序结果%ascend时,进行升序排序,为descend 时,进行降序排序问题二clc,clear%clc清除命令窗口的内容对工作环境中的全部变量无任何影响%clear清除工作空间的所有变量 a[0.5987.616.540.4018.926.530.6139.646.020.3297.616.230.5768.426.310.4297.316.150.4017.556.34];%输入数据[m,n]size(a);x2(qujian,lb,ub,x)(1-(qujian(1)-x)./(qujian(1)-lb)).*(xlbxqujian(1))...(xqujian(1)xqujian(2))(1-(x-qujian(2))./(ub-qujian(2))).*...(xqujian(2)xub);qujian[5,6];lb2;ub12;forj1:nb(:,j)a(:,j)/norm(a(:,j));%向量规范化 end w[0.250.250.250.25];cb.*repmat(w,m,1);%求加权矩阵 cstarmax(c);%求正理想解 c0min(c);%求负理想解fori1:msstar(i)norm(c(i,:)-cstar);%求到正理想解的距离s0(i)norm(c(i,:)-c0);%求到负理想解的距离 end fs0./(sstars0);[sf,ind]sort(f,descend)%求排序结果%ascend时,进行升序排序,为descend 时,进行降序排序fori1:msstar(i)norm(c(i,:)-cstar);%求到正理想解的距离s0(i)norm(c(i,:)-c0);%求到负理想解的距离 end fs0./(sstars0);[sf,ind]sort(f,descend)%求排序结果%ascend时,进行升序排序,为descend 时,进行降序排序clc,clear%clc清除命令窗口的内容对工作环境中的全部变量无任何影响%clear清除工作空间的所有变量 a[3.423.1345.550.779795.2965.35552.9953.5567.8969.2111.2310.943.682.5823.6322.58];%输入数据[m,n]size(a);x2(qujian,lb,ub,x)(1-(qujian(1)-x)./(qujian(1)-lb)).*(xlbxqujian(1))...(xqujian(1)xqujian(2))(1-(x-qujian(2))./(ub-qujian(2))).*...(xqujian(2)xub);qujian[5,6];lb2;ub12;forj1:nb(:,j)a(:,j)/norm(a(:,j));%向量规范化 end w[0.50.5];cb.*repmat(w,m,1);%求加权矩阵 cstarmax(c);%求正理想解 c0min(c);%求负理想解fori1:msstar(i)norm(c(i,:)-cstar);%求到正理想解的距离s0(i)norm(c(i,:)-c0);%求到负理想解的距离 end fs0./(sstars0);[sf,ind]sort(f,descend)%求排序结果%ascend时,进行升序排序,为descend 时,进行降序排序fori1:msstar(i)norm(c(i,:)-cstar);%求到正理想解的距离s0(i)norm(c(i,:)-c0);%求到负理想解的距离 end fs0./(sstars0);[sf,ind]sort(f,descend)%求排序结果%ascend时,进行升序排序,为descend 时,进行降序排序