模糊层次分析法FAHPmatlab代码

编程clc,cleara1=[111;0.861.171.56;0.6711.5;0.330.390.49];b1=sum(a1);a2=[0.640.851.16;111;2.533.5;0.951.331.83];b2=sum(a2);a3=[0.8711.49;0.290.330.40;111;0.40.50.67];b3=sum(a3);a4=[2.042.563.03;0.550.751.05;1.4922.5;111];b4=sum(a4);d1=b1(1)+b2(1)+b3(1)+b4(1);d2=b1(2)+b2(2)+b3(2)+b4(2);d3=b1(3)+b2(3)+b3(3)+b4(3);s1=[b1(1)b1(2)b1(3)].*[1/d31/d21/d1];s2=[b2(1)b2(2)b2(3)].*[1/d31/d21/d1];s3=[b3(1)b3(2)b3(3)].*[1/d31/d21/d1];s4=[b4(1)b4(2)b4(3)].*[1/d31/d21/d1];s=[s1;s2;s3;s4];sl=s(:,1);sm=s(:,2);su=s(:,3);v1=[];fori=1forj=[2,3,4]ifsm(i)=sm(j)v0=1;elseifsm(i)=sm(j)&su(i)=sl(j)v0=(sl(j)-su(i))/((sm(i)-su(i))-(sm(j)-sl(j)));elsev0=0;endj=j+1;V=[v1,v0];v1=V;endendv2=[];fori=2forj=[1,3,4]ifsm(i)=sm(j)v0=1;elseifsm(i)=sm(j)&su(i)=sl(j)v0=(sl(j)-su(i))/((sm(i)-su(i))-(sm(j)-sl(j)));elsev0=0;endj=j+1;V=[v2,v0];v2=V;endendv3=[];fori=3forj=[1,2,4]ifsm(i)=sm(j)v0=1;elseifsm(i)=sm(j)&su(i)=sl(j)v0=(sl(j)-su(i))/((sm(i)-su(i))-(sm(j)-sl(j)));elsev0=0;endj=j+1;V=[v3,v0];v3=V;endendv4=[];fori=4forj=[1,2,3]ifsm(i)=sm(j)v0=1;elseifsm(i)=sm(j)&su(i)=sl(j)v0=(sl(j)-su(i))/((sm(i)-su(i))-(sm(j)-sl(j)));elsev0=0;endj=j+1;V=[v4,v0];v4=V;endenddc1=min(v1);dc2=min(v2);dc3=min(v3);dc4=min(v4);w=[dc1,dc2,dc3,dc4]'forii=1:4w0(ii,1)=w(ii,1)/sum(w);%对w归一化并输出endw0计算结果w=0.33290.97430.04711.0000w0=0.14140.41380.02000.4247编程clc,cleara1=[111;0.6711.5;0.540.751.1];b1=sum(a1);a2=[0.6711.5;111;0.40.50.6];b2=sum(a2);a3=[0.911.331.85;1.522.5;111];b3=sum(a3);d1=b1(1)+b2(1)+b3(1);d2=b1(2)+b2(2)+b3(2);d3=b1(3)+b2(3)+b3(3);s1=[b1(1)b1(2)b1(3)].*[1/d31/d21/d1];s2=[b2(1)b2(2)b2(3)].*[1/d31/d21/d1];s3=[b3(1)b3(2)b3(3)].*[1/d31/d21/d1];s=[s1;s2;s3];sl=s(:,1);sm=s(:,2);su=s(:,3);v1=[];fori=1forj=[2,3]ifsm(i)=sm(j)v0=1;elseifsm(i)=sm(j)&su(i)=sl(j)v0=(sl(j)-su(i))/((sm(i)-su(i))-(sm(j)-sl(j)));elsev0=0;endj=j+1;V=[v1,v0];v1=V;endendv2=[];fori=2forj=[1,3]ifsm(i)=sm(j)v0=1;elseifsm(i)=sm(j)&su(i)=sl(j)v0=(sl(j)-su(i))/((sm(i)-su(i))-(sm(j)-sl(j)));elsev0=0;endj=j+1;V=[v2,v0];v2=V;endendv3=[];fori=3forj=[1,2]ifsm(i)=sm(j)v0=1;elseifsm(i)=sm(j)&su(i)=sl(j)v0=(sl(j)-su(i))/((sm(i)-su(i))-(sm(j)-sl(j)));elsev0=0;endj=j+1;V=[v3,v0];v3=V;endenddc1=min(v1);dc2=min(v2);dc3=min(v3);w=[dc1,dc2,dc3]'forii=1:3w1(ii,1)=w(ii,1)/sum(w);%对w归一化并输出endw1计算结果w=0.52890.38611.0000w1=0.27620.20160.5222编程clc,cleara1=[0.330.330.34;0.280.330.39;0.250.330.42];b1=sum(a1);a2=[0.290.330.4;0.330.330.34;];b2=sum(a2);a3=[0.240.320.43;;0.330.330.34];b3=sum(a3);d1=b1(1)+b2(1)+b3(1);d2=b1(2)+b2(2)+b3(2);d3=b1(3)+b2(3)+b3(3);s1=[b1(1)b1(2)b1(3)].*[1/d31/d21/d1];s2=[b2(1)b2(2)b2(3)].*[1/d31/d21/d1];s3=[b3(1)b3(2)b3(3)].*[1/d31/d21/d1];s=[s1;s2;s3];sl=s(:,1);sm=s(:,2);su=s(:,3);v1=[];fori=1forj=[2,3]ifsm(i)=sm(j)v0=1;elseifsm(i)=sm(j)&su(i)=sl(j)v0=(sl(j)-su(i))/((sm(i)-su(i))-(sm(j)-sl(j)));elsev0=0;endj=j+1;V=[v1,v0];v1=V;endendv2=[];fori=2forj=[1,3]ifsm(i)=sm(j)v0=1;elseifsm(i)=sm(j)&su(i)=sl(j)v0=(sl(j)-su(i))/((sm(i)-su(i))-(sm(j)-sl(j)));elsev0=0;endj=j+1;V=[v2,v0];v2=V;endendv3=[];fori=3forj=[1,2]ifsm(i)=sm(j)v0=1;elseifsm(i)=sm(j)&su(i)=sl(j)v0=(sl(j)-su(i))/((sm(i)-su(i))-(sm(j)-sl(j)));elsev0=0;endj=j+1;V=[v3,v0];v3=V;endenddc1=min(v1);dc2=min(v2);dc3=min(v3);w=[dc1,dc2,dc3]'forii=1:3w2(ii,1)=w(ii,1)/sum(w);%对w归一化并输出endw2计算结果w=1.00000.20790.2613w2=0.68060.14150.1779编程clc,cleara1=[0.330.330.34;0.280.330.40;0.280.330.39];b1=sum(a1);a2=[0.290.320.4;0.330.330.34;0.210.330.47];b2=sum(a2);a3=[0.280.320.39;0.210.320.47;0.330.330.34];b3=sum(a3);d1=b1(1)+b2(1)+b3(1);d2=b1(2)+b2(2)+b3(2);d3=b1(3)+b2(3)+b3(3);s1=[b1(1)b1(2)b1(3)].*[1/d31/d21/d1];s2=[b2(1)b2(2)b2(3)].*[1/d31/d21/d1];s3=[b3(1)b3(2)b3(3)].*[1/d31/d21/d1];s=[s1;s2;s3];sl=s(:,1);sm=s(:,2);su=s(:,3);v1=[];fori=1forj=[2,3]ifsm(i)=sm(j)v0=1;elseifsm(i)=sm(j)&su(i)=sl(j)v0=(sl(j)-su(i))/((sm(i)-su(i))-(sm(j)-sl(j)));elsev0=0;endj=j+1;V=[v1,v0];v1=V;endendv2=[];fori=2forj=[1,3]ifsm(i)=sm(j)v0=1;elseifsm(i)=sm(j)&su(i)=sl(j)v0=(sl(j)-su(i))/((sm(i)-su(i))-(sm(j)-sl(j)));elsev0=0;endj=j+1;V=[v2,v0];v2=V;endendv3=[];fori=3forj=[1,2]ifsm(i)=sm(j)v0=1;elseifsm(i)=sm(j)&su(i)=sl(j)v0=(sl(j)-su(i))/((sm(i)-su(i))-(sm(j)-sl(j)));elsev0=0;endj=j+1;V=[v3,v0];v3=V;endenddc1=min(v1);dc2=min(v2);dc3=min(v3);w=[dc1,dc2,dc3]'forii=1:3w3(ii,1)=w(ii,1)/sum(w);%对w归一化并输出endw3计算结果w=1.00000.98510.9701w3=0.33840.33330.3283编程clc,cleara1=[111;;0.951.251.59];b1=sum(a1);a2=[;111;1.522.5];b2=sum(a2);a3=[0.951.251.59;0.40.50.67;111];b3=sum(a3);d1=b1(1)+b2(1)+b3(1);d2=b1(2)+b2(2)+b3(2);d3=b1(3)+b2(3)+b3(3);s1=[b1(1)b1(2)b1(3)].*[1/d31/d21/d1];s2=[b2(1)b2(2)b2(3)].*[1/d31/d21/d1];s3=[b3(1)b3(2)b3(3)].*[1/d31/d21/d1];s=[s1;s2;s3];sl=s(:,1);sm=s(:,2);su=s(:,3);v1=[];fori=1forj=[2,3]ifsm(i)=sm(j)v0=1;elseifsm(i)=sm(j)&su(i)=sl(j)v0=(sl(j)-su(i))/((sm(i)-su(i))-(sm(j)-sl(j)));elsev0=0;endj=j+1;V=[v1,v0];v1=V;endendv2=[];fori=2forj=[1,3]ifsm(i)=sm(j)v0=1;elseifsm(i)=sm(j)&su(i)=sl(j)v0=(sl(j)-su(i))/((sm(i)-su(i))-(sm(j)-sl(j)));elsev0=0;endj=j+1;V=[v2,v0];v2=V;endendv3=[];fori=3forj=[1,2]ifsm(i)=sm(j)v0=1;elseifsm(i)=sm(j)&su(i)=sl(