效率分析（mpex22）
/***************************************************************//* *//*S A S S A M P L E L I B R A R Y*//* *//*名称：mpex22*//*标题：效率分析（mpex22）*//*产品：或*//*系统：全部*//*程序：OPTMODEL、PRINT、SORT*//*数据：*//* *//*支持：更新：*//*参考：*//*MISC：数学编程示例22*//*示例手册*//* *//***************************************************************/数据输入；输入输入$9。；数据线；工作人员陈列室流行音乐1流行音乐2字母_ enq贝塔恩克;数据输出；输入输出$11。；数据线；alpha_销售额β_销售额利润;数据仓库数据；输入车库名称$12。员工展示室pop1 pop2 alpha_enq beta_enqα_销售β_销售利润；数据线；温彻斯特7 8 10 12 8.5 4 2 0.6 1.5安多弗6 6 20 30 9 4.5 2.3 0.7 1.6贝辛斯托克2 3 40 40 2 1.5 0.8 0.25 0.5池14 9 20 25 10 6 2.6 0.86 1.9摇晃10 9 10 11 5 2.4 1 2纽伯里24 15 15 13 25 19 8 2.6 4.5朴茨茅斯6 7 50 40 8.5 3 2.5 0.9 1.6阿尔雷斯福德8 7.5 5 8 9 4 2.1 0.85 2索尔兹伯里5 5 10 10 5 2.5 2 0.65 0.9吉尔福德8 10 30 35 9.5 4.5 2.05 0.75 1.7阿尔顿7 8 7 8 3 2 1.9 0.7 0.5韦布里奇5 6.5 9 12 8 4.5 1.8 0.63 1.4多切斯特6 7.5 10 10 7.5 4 1.5 0.45 1.45新娘港11 8 8 10 6 2.2 0.65 2.2韦茅斯4 5 10 10 7.5 3.5 1.8 0.62 1.6波特兰3 3.5 3 2 1.5 0.9 0.35 0.5奇切斯特5 5.5 8 10 7 3.5 1.2 0.45 1.3彼得菲尔德21 12 6 8 15 8 6 0.25 2.9佩特沃思6 5.5 2 2 8 5 1.5 0.55 1.55米德赫斯特3 3.6 3 3 2.5 1.5 0.8 0.2 0.45阅读30 29 120 80 35 20 7 2.5 8南安普顿25 16 110 27 12 6.5 3.5 5.4伯恩茅斯19 10 90 12 25 13 5.5 3.1 4.5亨利7 6 5 7 8.5 4.5 1.2 0.48 2梅登黑德12 8 7 10 12 7 4.5 2 2.3法雷汉姆4 6 1 1 7.5 3.5 1.1 0.48 1.7罗姆西2 2.5 1 1 2.5 1 0.4 0.1 0.55林伍德2 3.5 2 2 1.9 1.2 0.3 0.09 0.4;proc选择模型；设置输入；将数据输入读入inputs=[input]；设置输出；将数据输出读入outputs=[output]；设置车库；str车库名称{车库}；num输入{INPUTS，GARAGES}；num输出{OUTPUTS，GARAGES}；将数据garage_data读入GARAGES=[_N_]garage_name{输入}中的i{输出中的i}<output[i，_N_]=col（i）>；数字k；num efficiency_number{GARAGES}；num weight_sol{车库，车库}；var权重{车库}>=0；var效率>=0；最大目标=效率低下；输入}中的con Input_con{i：GARAGES}中的和{j输入[i，j]*重量[j]<=input[i，k]；con Output_con｛i在OUTPUTS中｝：GARAGES}中的和{j输出[i，j]*权重[j]>=output[i，k]*效率低下；do k=车库；解决；efficiency_number[k]=1/效率低。sol；车库中的{jweight_sol[k，j]=（如果weight[j].sol>1e-6，则weight[j].sol为其他值）；结束；在GARAGES中设置EFFICIENT_GARAGES={j:efficiency_number[j]>=1}；set INEFICIENT_GARAGES=GARAGES diff EFFICIENT_GARAGE；打印车库名称效率编号；从[garage]garage_name efficiency_number创建数据efficience_data；从[efficient_garage]=inefficient_GARAGES创建数据weight_data_dense车库名称效率_编号{EFFICENT_GARAGES}中的efficient_garage=weight_sol[低效车库，高效车库]>；从创建数据weightdata_sparse[低效_车库效率_车库]={INEFICIENT_GARAGES中的g1，EFFICIENT_GARAGE中的g2:weight_sol[g1，g2]ne。}重量sol；退出；proc排序数据=效率数据；通过降低效率number；运行；程序打印；运行；proc排序数据=权重data_dense；通过降低效率number；运行；程序打印；运行；proc打印数据=weight_data_sparse；运行；