使用MPS格式（lsoe02）
/**********************************************************************//* *//*S A S A M P L E L I B R A R Y公司*//* *//*姓名：lsoe02*//*标题：使用MPS格式（lsoe02）*//*产品：或*//*系统：所有*//*关键字：或*//*项目：OPTLSO、FCMP、OPTMODEL*//*数据：*//* *//*支持：更新：*//*参考：*//*MISC:OPTLSO章节中的示例2*//*本地搜索优化书籍*//* *//**********************************************************************/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_$_function_$_sense_$；数据线；f quadobj最小值;选项cmplib=sauser.myfuncs；%宏lsompsmod（setold，setnew）；data&setnew（drop=i）；设置&setold；数组FC{*}_CHARACTER_；do i=1至dim（FC）；FC[i]=压缩（FC[i]，“[]”）；结束；运行；%修补；过程操作模型；变量x{1..13}>=0<=1；对于{i在10..12}x[i].ub=100；最小z=0；cona1:2*x[1]+2*x[2]+x[10]+x[11]<=10；cona2:2*x[1]+2*x[3]+x[10]+x[12]<=10；cona3:2*x[1]+2*x[3]+x[11]+x[12]<=10；cona4:-8*x[1]+x[10]<=0；cona5:-8*x[2]+x[11]<=0；cona6:-8*x[3]+x[12]<=0；con a7:-2*x[4]-x[5]+x[10]<=0；cona8:-2*x[6]-x[7]+x[11]<=0；con a9:-2*x[8]-x[9]+x[12]<=0；保存mps lindataOld；退出；%lsompsmod（lindataOld，lindata）；程序optlsoprimalout=溶液mpsdata=lindata目标=objdata；性能nthreads=2；运行；proc打印数据=解决方案；运行；