MATLAB神经网络和优化算法：1 基于FCEM的TRIZ评价.zip

clc,clear load xj2006.mat load xj2007.mat load xj2008.mat load xj2009.mat load xj2010.mat load xj2011.mat xjm(1,:)=mean(xj2006); xjd(1,:)=std(xj2006); xjm(2,:)=mean(xj2007); xjd(2,:)=std(xj2007); xjm(3,:)=mean(xj2008); xjd(3,:)=std(xj2008); xjm(4,:)=mean(xj2009); xjd(4,:)=std(xj2009); xjm(5,:)=mean(xj2010); xjd(5,:)=std(xj2010); xjm(6,:)=mean(xj2011); xjd(6,:)=std(xj2011); xj2006=zscore(xj2006);%数据的标准化 xj2007=zscore(xj2007);%数据的标准化 xj2008=zscore(xj2008);%数据的标准化 xj2009=zscore(xj2009);%数据的标准化 xj2010=zscore(xj2010);%数据的标准化 xj2011=zscore(xj2011);%数据的标准化 A=0.3;%主要因素 a1=0.4; a2=0.6;%二级因素 B=0.3;%主要因素 b1=0.15; b2=0.15; b3=0.05; b4=0.2; b5=0.1; b6=0.05; b7=0.2; b8=0.1; C=0.3;%主要因素 c1=0.1; c2=0.2; c3=0.2; c4=0.15; c5=0.2; c6=0.15; D=0.1;%主要因素 d1=0.1; d2=0.2; d3=0.3; d4=0.4; %计算2006年各企业得分 %第一个企业 RA20061=[a1,a2]*[xj2006(1,1),xj2006(2,1)]'; RB20061=[b1,b2,b3,b4,b5,b6,b7,b8]*[xj2006(3,1),xj2006(4,1),xj2006(5,1),xj2006(6,1),xj2006(7,1),xj2006(8,1),xj2006(9,1),xj2006(10,1)]'; RC20061=[c1,c2,c3,c4,c5,c6]*[xj2006(11,1),xj2006(12,1),xj2006(13,1),xj2006(14,1),xj2006(15,1),xj2006(16,1)]'; RD20061=[d1,d2,d3,d4]*[xj2006(17,1),xj2006(18,1),xj2006(19,1),xj2006(20,1)]'; RABCD20061=[RA20061,RB20061,RC20061,RD20061]'; R2006(1,1)=[A,B,C,D]*RABCD20061; %第二个企业 RA20062=[a1,a2]*[xj2006(1,2),xj2006(2,2)]'; RB20062=[b1,b2,b3,b4,b5,b6,b7,b8]*[xj2006(3,2),xj2006(4,2),xj2006(5,2),xj2006(6,2),xj2006(7,2),xj2006(8,2),xj2006(9,2),xj2006(10,2)]'; RC20062=[c1,c2,c3,c4,c5,c6]*[xj2006(11,2),xj2006(12,2),xj2006(13,2),xj2006(14,2),xj2006(15,2),xj2006(16,2)]'; RD20062=[d1,d2,d3,d4]*[xj2006(17,2),xj2006(18,2),xj2006(19,2),xj2006(20,2)]'; RABCD20062=[RA20062,RB20062,RC20062,RD20062]'; R2006(1,2)=[A,B,C,D]*RABCD20062; %第三个企业 RA20063=[a1,a2]*[xj2006(1,3),xj2006(2,3)]'; RB20063=[b1,b2,b3,b4,b5,b6,b7,b8]*[xj2006(3,3),xj2006(4,3),xj2006(5,3),xj2006(6,3),xj2006(7,3),xj2006(8,3),xj2006(9,3),xj2006(10,3)]'; RC20063=[c1,c2,c3,c4,c5,c6]*[xj2006(11,3),xj2006(12,3),xj2006(13,3),xj2006(14,3),xj2006(15,3),xj2006(16,3)]'; RD20063=[d1,d2,d3,d4]*[xj2006(17,3),xj2006(18,3),xj2006(19,3),xj2006(20,3)]'; RABCD20063=[RA20063,RB20063,RC20063,RD20063]'; R2006(1,3)=[A,B,C,D]*RABCD20063; %第四个企业 RA20064=[a1,a2]*[xj2006(1,4),xj2006(2,4)]'; RB20064=[b1,b2,b3,b4,b5,b6,b7,b8]*[xj2006(3,4),xj2006(4,4),xj2006(5,4),xj2006(6,4),xj2006(7,4),xj2006(8,4),xj2006(9,4),xj2006(10,4)]'; RC20064=[c1,c2,c3,c4,c5,c6]*[xj2006(11,4),xj2006(12,4),xj2006(13,4),xj2006(14,4),xj2006(15,4),xj2006(16,4)]'; RD20064=[d1,d2,d3,d4]*[xj2006(17,4),xj2006(18,4),xj2006(19,4),xj2006(20,4)]'; RABCD20064=[RA20064,RB20064,RC20064,RD20064]'; R2006(1,4)=[A,B,C,D]*RABCD20064; %第五个企业 RA20065=[a1,a2]*[xj2006(1,5),xj2006(2,5)]'; RB20065=[b1,b2,b3,b4,b5,b6,b7,b8]*[xj2006(3,5),xj2006(4,5),xj2006(5,5),xj2006(6,5),xj2006(7,5),xj2006(8,5),xj2006(9,5),xj2006(10,5)]'; RC20065=[c1,c2,c3,c4,c5,c6]*[xj2006(11,5),xj2006(12,5),xj2006(13,5),xj2006(14,5),xj2006(15,5),xj2006(16,5)]'; RD20065=[d1,d2,d3,d4]*[xj2006(17,5),xj2006(18,5),xj2006(19,5),xj2006(20,5)]'; RABCD20065=[RA20065,RB20065,RC20065,RD20065]'; R2006(1,5)=[A,B,C,D]*RABCD20065; %第六个企业 RA20066=[a1,a2]*[xj2006(1,6),xj2006(2,6)]'; RB20066=[b1,b2,b3,b4,b5,b6,b7,b8]*[xj2006(3,6),xj2006(4,6),xj2006(5,6),xj2006(6,6),xj2006(7,6),xj2006(8,6),xj2006(9,6),xj2006(10,6)]'; RC20066=[c1,c2,c3,c4,c5,c6]*[xj2006(11,6),xj2006(12,6),xj2006(13,6),xj2006(14,6),xj2006(15,6),xj2006(16,6)]'; RD20066=[d1,d2,d3,d4]*[xj2006(17,6),xj2006(18,6),xj2006(19,6),xj2006(20,6)]'; RABCD20066=[RA20066,RB20066,RC20066,RD20066]'; R2006(1,6)=[A,B,C,D]*RABCD20066; %第七个企业 RA20067=[a1,a2]*[xj2006(1,7),xj2006(2,7)]'; RB20067=[b1,b2,b3,b4,b5,b6,b7,b8]*[xj2006(3,7),xj2006(4,7),xj2006(5,7),xj2006(6,7),xj2006(7,7),xj2006(8,7),xj2006(9,7),xj2006(10,7)]'; RC20067=[c1,c2,c3,c4,c5,c6]*[xj2006(11,7),xj2006(12,7),xj2006(13,7),xj2006(14,7),xj2006(15,7),xj2006(16,7)]'; RD20067=[d1,d2,d3,d4]*[xj2006(17,7),xj2006(18,7),xj2006(19,7),xj2006(20,7)]'; RABCD20067=[RA20067,RB20067,RC20067,RD20067]'; R2006(1,7)=[A,B,C,D]*RABCD20067; %第八个企业 RA20068=[a1,a2]*[xj2006(1,8),xj2006(2,8)]'; RB20068=[b1,b2,b3,b4,b5,b6,b7,b8]*[xj2006(3,8),xj2006(4,8),xj2006(5,8),xj2006(6,8),xj2006(7,8),xj2006(8,8),xj2006(9,8),xj2006(10,8)]'; RC20068=[c1,c2,c3,c4,c5,c6]*[xj2006(11,8),xj2006(12,8),xj2006(13,8),xj2006(14,8),xj2006(15,8),xj2006(16,8)]'; RD20068=[d1,d2,d3,d4]*[xj2006(17,8),xj2006(18,8),xj2006(19,8),xj2006(20,8)]'; RABCD20068=[RA20068,RB20068,RC20068,RD20068]'; R2006(1,8)=[A,B,C,D]*RABCD20068; %计算2007年各企业得分 %第一个企业 RA20071=[a1,a2]*[xj2007(1,1),xj2007(2,1)]'; RB20071=[b1,b2,b3,b4,b5,b6,b7,b8]*[xj2007(3,1),xj2007(4,1),xj2007(5,1),xj2007(6,1),xj2007(7,1),xj2007(8,1),xj2007(9,1),xj2007(10,1)]'; RC20071=[c1,c2,c3,c4,c5,c6]*[xj2007(11,1),xj2007(12,1),xj2007(13,1),xj2007(14,1),xj2007(15,1),xj2007(16,1)]'; RD20071=[d1,d2,d3,d4]*[xj2007(17,1),xj2007(18,1),xj2007(19,1),xj2007(20,1)]'; RABCD20071=[RA20071,RB20071,RC20071,RD20071]'; R20071(1,1)=[A,B,C,D]*RABCD20071; %第二个企业 RA20072=[a1,a2]*[xj2007(1,2),xj2007(2,2)]'; RB20072=[b1,b2,b3,b4,b5,b6,b7,b8]*[xj2007(3,2),xj2007(4,2),xj2007(5,2),xj2007(6,2),xj2007(7,2),xj2007(8,2),xj2007(9,2),xj2007(10,2)]'; RC20072=[c1,c2,c3,c4,c5,c6]*[xj2007(11,2),xj2007(12,2),xj2007(13,2),xj2007(14,2),xj2007(15,2),xj2007(16,2)]'; RD20072=[d1,d2,d3,d4]*[xj2007(17,2),xj2007(18,2),xj2007(19,2),xj2007(20,2)]'; RABCD20072=[RA20072,RB20072,RC20072,RD20072]'; R2007(1,2)=[A,B,C,D]*RABCD20072; %第三个企业 RA20073=[a1,a2]*[xj2007(1,3),xj2007(2,3)]'; RB20073=[b1,b2,b3,b4,b5,b6,b7,b8]*[xj2007(3,3),xj2007(4,3),xj2007(5,3),xj2007(6,3),xj2007(7,3),xj2007(8,3),xj2007(9,3),xj2007(10,3)]'; RC20073=[c1,c2,c3,c4,c5,c6]*[xj2007(11,3),xj2007(12,3),xj2007(13,3),xj2007(14,3),xj2007(15,3),xj2007(16,3)]'; RD20073=[d1,d2,d3,d4]*[xj2007(17,3),xj2007(18,3),xj2007(19,3),xj2007(20,3)]'; RABCD20073=[RA20073,RB20073,RC20073,RD20073]'; R2007(1,3)=[A,B,C,D]*RABCD20073; %第四个企业 RA20074=[a1,a2]*[xj2007(1,4),xj2007(2,4)]'; RB20074=[b1,b2,b3,b4,b5,b6,b7,b8]*[xj2007(3,4),xj2007(4,4),xj2007(5,4),xj2007(6,4),xj2007(7,4),xj2007(8,4),xj2007(9,4),xj2007(10,4)]'; RC20074=[c1,c2,c3,c4,c5,c6]*[xj2007(11,4),xj2007(12,4),xj2007(13,4),xj2007(14,4),xj2007(15,4),xj2007(16,4)]'; RD20074=[d1,d2,d3,d4]*[xj2007(17,4),xj2007(18,4),xj2007(19,4),xj2007(20,4)]'; RABCD20074=[RA20074,RB20074,RC20074,RD20074]'; R2007(1,4)=[A,B,C,D]*RABCD20074; %第五个企业 RA20075=[a1,a2]*[xj2007(1,5),xj2007(2,5)]'; RB20075=[b1,b2,b3,b4,b5,b6,b7,b8]*[xj2007(3,5),xj2007(4,5),xj2007(5,5),xj2007(6,5),xj2007(7,5),xj2007(8,5),xj2007(9,5),xj2007(10,5)]'; RC20075=[c1,c2,c3,c4,c5,c6]*[xj2007(11,5),xj2007(12,5),xj2007(13,5),xj2007(14,5),xj2007(15,5),xj2007(16,5)]'; RD20075=[d1,d2,d3,d4]*[xj2007(17,5),xj2007(18,5),xj2007(19,5),xj2007(20,5)]'; RABCD20075=[RA20075,RB20075,RC20075,RD20075]'; R2007(1,5)=[A,B,C,D]*RABCD20075; %第六个企业 RA20076=[a1,a2]*[xj2007(1,6),xj2007(2,6)]'; RB20076=[b1,b2,b3,b4,b5,b6,b7,b8]*[xj2007(3,6),xj2007(4,6),xj2007(5,6),xj2007(6,6),xj2007(7,6),xj2007(8,6),xj2007(9,6),xj2007(10,6)]'; RC20076=[c1,c2,c3,c4,c5,c6]*[xj2007(11,6),xj2007(12,6),xj2007(13,6),xj2007(14,6),xj2007(15,6),xj2007(16,6)]'; RD20076=[d1,d2,d3,d4]*[xj2007(17,6),xj2007(18,6),xj2007(19,6),xj2007(20,6)]'; RABCD20076=[RA20076,RB20076,RC20076,RD20076]'; R2007(1,6)=[A,B,C,D]*RABCD20076; %第七个企业 RA20077=[a1,a2]*[xj2007(1,7),xj2007(2,7)]'; RB20077=[b1,b2,b3,b4,b5,b6,b7,b8]*[xj2007(3,7),xj2007(4,7),xj2007(5,7),xj2007(6,7),xj2007(7,7),xj2007(8,7),xj2007(9,7),xj2007(10,7)]'; RC20077=[c1,c2,c3,c4,c5,c6]*[xj2007(11,7),xj2007(12,7),xj2007(13,7),xj2007(14,7),xj2007(15,7),xj2007(16,7)]'; RD20077=[d1,d2,d3,d4]*[xj2007(17,7),xj2007(18,7),xj2007(19,7),xj2007(20,7)]'; RABCD20077=[RA20077,RB20077,RC20077,RD20077]'; R2007(1,7)=[A,B,C,D]*RABCD20077; %第八个企业 RA20078=[a1,a2]*[xj2007(1,8),xj2007(2,8)]'; RB20078=[b1,b2,b3,b4,b5,b6,b7,b8]*[xj2007