结合MPS和FCMP功能定义（lsoe04）
/**********************************************************************//* *//*S A S A M P L E L I B R A R Y公司*//* *//*姓名：lsoe04*//*标题：结合MPS和FCMP功能定义（lsoe04）*//*产品：或*//*系统：所有*//*关键字：或*//*项目：OPTLSO、OPTMODEL、FCMP*//*数据：*//* *//*支持：更新：*//*参考：*//*MISC:OPTLSO章节中的示例4*//*本地搜索优化书籍*//* *//**********************************************************************/%宏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；min-linobj=5*sum{iin1..4}x[i]-sum{iin5..13}x[i；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）；proc fcmp outlib=sasuser.myfuncs.mypkg；功能quadobj（x1、x2、x3、x4、f1）；返回（f1-5*（x1**2+x2**2+x3**2+x4**2））；endsub；运行；数据对象；输入_id_$_function_$_sense_$；数据线；f1亚麻布。f quadobj最小值;选项cmplib=sauser.myfuncs；程序optlsoprimalout=溶液mpsdata=lindata目标=objdata；性能nthreads=2；运行；proc打印数据=解决方案；运行；