灰色预算的一个应用示例

某地区有 6 个母因素 i y （ 6 ,,2,1 “=i ），5 个子因素 j x （ 5 ,,2,1 “=j ）如
下：
1x ：固定资产投资 1 y ：国民收入
2x ：工业投资 2 y ：工业收入
3x ：农业投资 3 y ：农业收入
4x ：科技投资 4 y ：商业收入
5x ：交通投资 5 y ：交通收入
6 y ：建筑业收入
其数据列于表 4。
表 4 投资和收入数据
1979 1980 1981 1982 1983
1x 308.58 310 295 346 367
2x 195.4 189.9 187.2 205 222.7
3x 24.6 21 12.2 15.1 14.57
4x 20 25.6 23.3 29.2 30
5x 18.98 19 22.3 23.5 27.655
1y 170 174 197 216.4 235.8
2y 57.55 70.74 76.8 80.7 89.85
3y 88.56 70 85.38 99.83 103.4
4y 11.19 13.28 16.82 18.9 22.8
5y 4.03 4.26 4.34 5.06 5.78
6y 13.7 15.6 13.77 11.98 13.95
代码如下：

clc,clear load data.txt  %把原始数据存放在纯文本文件 
data.txt 中 n=size(data,1); 
for i=1:n     
data(i,:)=data(i,:)/data(i,1); %标准化数据 
end 
k=data(6:n,:);
m1=size(ck,1); 
bj=data(1:5,:);
m2=size(bj,1); 
for i=1:m1     
for j=1:m2       
t(j,:)=bj(j,:)-ck(i,:);     
end     
jc1=min(min(abs(t')));
jc2=max(max(abs(t')));     
rho=0.5;     
ksi=(jc1+rho*jc2)./(abs(t)+rho*jc2);     
rt=sum(ksi')/size(ksi,2);     
r(i,:)=rt; 
end 
r 

运行结果：为关联矩阵