《模糊层次分析法FAHPmatlab代码》由会员分享，可在线阅读，更多相关《模糊层次分析法FAHPmatlab代码（11页珍藏版）》请在金锄头文库上搜索。
1、编程clcrclearal=l1l;0.861.171.56;0.6711.5;0.330.390.49;bl=sum(al);a2=0.640.851.16;111;2.533.5;0.951.331.83;b2=sum(a2);a3=0.8711.49;0.290.330.40;l1l;0.40.50.67;b3=sum(a3);a4=2.042.563.03;0.550.751.05;1.4922.5;111;b4=sum(m4);dl=bl(l)+b2(l)+b3(l)+b4(1);d2=bl(2)+b2(2)+b3(2)+b4(2);l/d21/dl;l/d21/dl;l/d21/d
2、l;l/d21/dl;d3=bl(3)+b2(3)+b3(3)+b4(3);sl=bl(1)bl(2)bl(3).*l/d3b2(3)l/d3b3(3)l/d3b4(3)l/d3s2=b2(l)b2(2)s3=b3(1)b3(2)s4=b4(l)b4(2)s=si;s2;s3;s4sl=s(:f1);sm=s(:f2);su=s(:f3);vl=；fori=lforj=2,3f4ifsm(i)=sm(j)v0=l;elseifsm(i)=sl(j)v0=(sl(j)-su(i)/(sm(i)-su(i)-(sm(j)-si(j);elsev0=0;endV=vlfvO;vl=V;endendv
3、2=;fori=2forj=l,3,4ifsm(i)=sm(j)v0=l;elseifsm(i)=sl(j)v0=(sl(j)-su(i)/(sm(i)-su(i)-(sm(j)-sl(j);elsev0=0;endV=v2fvO;v2=V;endendv3=；fori=3forj=l,2,4ifsm(i)=sm(j)vO=l;elseifsm(i)=sl(j)vO=(sl(j)-su(i)/(sm(i)-su(i)-(sm(j)-sl(j);elsev0=0;endV=v3fvO;v3=V;endendv4=；fori=4forj=l,2,3ifsm(i)=sm(j)vO=l;elseifs
4、m(i)=sl(j)vO=(sl(j)-su(i)/(sm(i)-su(i)-(sm(j)-sl(j);elsev0=0;endV=v4fvO;v4=V;endenddcl=min(vl);dc2=min(v2);dc3=min(v3);dc4=min(v4);w=dclzdc2rdc3fdc41forii=l:4wO(iiA1)=w(ii,1)/sum(w);咎对w归一化并输出endwO计算结果0.33290.97430.04711.0000w0=0.14140.41380.02000.4247编程clcrclearal=l1l;0.6711.5;0.540.751.1;bl=sum(al)
5、;a2=0.6711.5;11l;0.40.50.6;b2=sum(m2);a3=0.911.331.85;1.522.5;111;b3=sum(a3);dl=bl(l)+b2(l)+b3(1);d2=bl(2)+b2(2)+b3(2);d3=bl(3)+b2(3)+b3(3);sl=bl(1)bl(2)bl(3).*l/d3l/d21/dl;s2=b2(l)b2(2)b2(3).*l/d3l/d21/dl;s3=b3(1)b3(2)b3(3).*l/d3l/d21/dl;s=si;s2;s3;sl=s(:f1);sm=s(:f2);su=s(:f3);vl=；fori=lforj=2,3if
6、sm(i)=sm(j)v0=l;elseifsm(i)=sl(j)v0=(sl(j)-su(i)/(sm(i)-su(i)-(sm(j)-sl(j);elsev0=0;endV=vlfvO;endvl=V；endv2=;fori=2forj=l,3ifsm(i)=sm(j)vO=l;elseifsm(i)=sl(j)vO=(slj)-su(i)/(smi)-su(i)-(smj)-sl(j);elsev0=0;endV=v2fvO;v2=V;endendv3=;fori=3forj=l,2ifsm(i)=sm(j)vO=l;elseifsm(i)=sl(j)vO=(slj)-su(i)/(sm
7、i)-su(i)-(smj)-sl(j);elsev0=0;endV=v3fvO;v3=V;endenddcl=min(vl);dc2=min(v2);dc3=min(v3);w=dclfdc2rdc31forii=l:30.5289wl(ii,1)=w(iir1)/sum(w);$对w归一化并输出endwl计算结果w0.38611.0000wl=0.27620.20160.5222编程clcrclearal=0.330.330.34;0.280.330.39;0.250.330.42;bl=sum(al);a2=0.290.33b2=sum(a2);0.4;0.330.330.34;a3=0
8、.240.320.43;0.330.33b3=sum(a3);dl=bl(l)+b2(l)+b3(1);d2=bl(2)+b2(2)+b3(2);d3=bl(3)+b2(3)+b3(3);sl=bl(1)bl(2)bl(3).*l/d3s2=b2(l)b2(2)b2(3).*l/d3s3=b3(1)b3(2)b3(3).*l/d3s=si;s2;s3;sl=s(:f1);sm=s(:f2);su=s(:f3);vl=；fori=lforj=2,3ifsm(i)=sm(j)v0=l;0.34;l/d21/dl;l/d21/dl;l/d21/dl;elseifsm(i)=sl(j)v0=(sl(j
9、)-su(i)/(sm(i)-su(i)-(sm(j)-sl(j);elsev0=0;endV=vlfvO;vl=V;endendv2=;fori=2forj=l,3ifsm(i)=sm(j)vO=l;elseifsm(i)=sl(j)vO=(sl(j)-su(i)/(sm(i)-su(i)-(sm(j)-sl(j);elsev0=0;endV=v2fvO;v2=V;endendv3=;fori=3forj=l,2ifsm(i)=sm(j)vO=l;elseifsm(i)=sl(j)vO=(sl(j)-su(i)/(sm(i)-su(i)-(sm(j)-sl(j);elsev0=0;endV=
10、v3fvO;v3=V;endenddcl=min(vl);dc2=min(v2);dc3=min(v3);w=dclfdc2rdc31forii=l:3w2(iiz1)=w(iif1)/sum(w);务对w归一化并输出endw#计算结果w1.00000.20790.2613w2=0.68060.14150.1779编程clcrclearal=0.330.330.34;0.280.330.40;0.280.330.39;bl=sum(al);a2=0.290.320.4;0.330.330.34;0.210.330.47;b2=sum(a2);a3=0.280.320.39;0.210.320.
11、47;0.330.330.34;b3=sum(a3);dl=bl(l)+b2(l)+b3(1);d2=bl(2)+b2(2)+b3(2);d3=bl(3)+b2(3)+b3(3);sl=bl(1)bl(2)bl(3).*l/d3l/d21/dl;s2=b2(l)b2(2)b2(3).*l/d3l/d21/dl;s3=b3(1)b3(2)b3(3).*l/d3l/d21/dl;s=si;s2;s3;sl=s(:f1);sm=s(:f2);su=s(:f3);vl=；fori=lforj=2r3ifsm(i)=sm(j)v0=l;elseifsm(i)=sl(j)v0=(sl(j)-su(i)/(
12、sm(i)-su(i)-(sm(j)-sl(j);elsev0=0;endV=vlfvO;vl=V;endendv2=;fori=2forj=l,3ifsm(i)=sm(j)vO=l;elseifsm(i)=sl(j)vO=(sl(j)-su(i)/(sm(i)-su(i)-(sm(j)-sl(j);elsev0=0;endV=v2fvO;v2=V;endendv3=;fori=3forj=l,2ifsm(i)=sm(j)vO=l;elseifsm(i)=sl(j)vO=(sl(j)-su(i)/(sm(i)-su(i)-(sm(j)-sl(j);elsev0=0;endV=v3fvO;v3=V;endenddcl=min(vl);dc2=min(v2);dc3=min(v3);w=dclfdc2rdc31forii=l:3w3(iiz1)=w(iif1)/sum(w);务对w归一化并输出endw#计算结果w1.00000.98510.9701w3=0.33840.33330.3283编程clcrclearal=l11;0.951.251.59;bl=sum(al);a2=;l11;1.522.5;b2=sum(a2);a3=
