使用密集格式(lsoe01)
/**********************************************************************//* *//*S A S S A M P L E L I B R A R Y*//* *//*名称:lsoe01*//*标题:使用密集格式(lsoe01)*//*产品:或*//*系统:所有*//*关键字:或*//*程序:OPTLSO、FCMP、PRINT*//*数据:*//* *//*支持:更新:*//*参考:*//*MISC:OPTLSO章节中的示例1*//*本地搜索优化书籍*//* *//**********************************************************************/数据变量数据;输入_ id$_ lb_ ub_;数据线;x1 0 1个x2 0 1个x3 0 1个x4 0 1x5 0 1x6 0 1x7 0 1x8 0 1x9 0 1x10 0 100x11 0 100个x12 0 100x13 0 1;proc fcmp outlib=sasuser.myfuncs.mypkg;功能quadobj(x1、x2、x3、x4、x5、x6、x7、x8、x9、x10、x11、x12、x13);总和1=5*(x1+x2+x3+x4);总和2=5*(x1**2+x2**2+x3**2+x4**2);总和3=(x5+x6+x7+x8+x9+x10+x11+x12+x13);返回(sum1-sum2-sum3);endsub;运行;数据对象;输入_ id _$函数_$传感器_$;数据线;f quadobj最小值;数据lindata;输入_ id _$_ lb_ x1-x13 _ ub_;数据线;a1。2 2 0 0 0 0 0 0 0 1 1 0 0 10答2。2 0 2 0 0 0 0 0 0 1 0 1 0 10a3。2 0 2 0 0 0 0 0 0 0 1 1 0 10a4-8 0 0 0 0 0 0 0 0 1 0 0 0 0a5。0 -8 0 0 0 0 0 0 0 0 1 0 0 0a6。0 0 -8 0 0 0 0 0 0 0 0 1 0 0a7。0 0 0 -2 -1 0 0 0 0 1 0 0 0 0a8。0 0 0 0 0 -2 -1 0 0 0 1 0 0 0a9。0 0 0 0 0 0 0 -2 -1 0 0 1 0 0;选项cmplib=sauser.myfuncs;程序optlsoprimalout=溶液目标=objdata变量=vardatalincon=lindata;性能nthreads=2;运行;proc打印数据=解决方案;运行;