详细信息部分的示例（netsld01）
/***************************************************************//* *//*S A S S A M P L E L I B R A R Y*//* *//*名称：netsld01*//*标题：详细信息部分的示例（netsld01）*//*产品：或*//*系统：所有*//*关键字：或*//*程序：OPTMODEL、PRINT、SORT、TRANSPOSE*//*数据：*//* *//*支持：更新：*//*参考：*//*网络求解器文档*//*其他：*//* *//***************************************************************//*图形输入数据*//*链接输入数据*/数据链接设置；输入从$到$weight@@；数据线；A B 1 A C 2 A D 4 B C 1 B E 2B F 5 C E 1 D E 1 E D 1 E F 2公司F G 6 G H 1 G I 1 H G 2 H I 3楼;过程操作模型；设置链接；在LINKS}{ni，nj}中设置NODES=union{<ni，ny>；num权重{LINKS}；将数据LinkSetIn读入LINKS=[from to]weight；印刷重量；put节点=；/*由OPTMODEL自动计算*/退出；过程操作模型；设置节点=1..5；在NODES中设置LINKS={vi，在NODES:vi<vj}中设置vj；链接}中的num距离{<vi，vj>=10*vi+vj；设置<num，num>TOUR；/*仅使用节点1..4个节点构建链接集*/设置LINKS_BETWEEN_1234={1..3中的vi，（vi+1）..4}中的vj；/*构建由节点3..5组成的节点子集*/设置NODES_345=3..5；/*隐式网络1：在节点1..5上求解——原始网络*/使用NETWORK解决/链接=（重量=距离）out=（tour=巡回赛）茶匙;put TOUR=；put _ROPTMODEL_NUM_[“目标”]；/*链接过滤器：在节点1..4上求解*/使用NETWORK解决/链接=（重量=距离）子图=（链接=links_BETWEEN_1234）out=（tour=巡回赛）茶匙;put TOUR=；/*节点过滤：在节点3..5上求解*/使用NETWORK解决/链接=（重量=距离）子图=（节点=nodes_345）out=（tour=巡回赛）茶匙;put TOUR=；/*显式节点和链接：节点1..5上的语义错误*链接<u，5>未定义，且不存在记录的默认值*/使用NETWORK解决/链接=（重量=距离）子图=（节点=nodes_345链接=links_BETWEEN_1234）out=（tour=巡回赛）茶匙;/*为尾巴、头和重量腾出空间*/设置LINKS_OUT；使用NETWORK解决/链接=（重量=距离）子图=（节点=nodes_345链接=links_BETWEEN_1234）out=（旅游=旅游链接=links_out）茶匙;将LINKS_OUT=；退出；/*双向连接组件和连接点*/数据链接SetInBiCC；从$输入到$@@；数据线；A B A F A G B C B DB E C D E F G I G H公司H I公司;过程操作模型；设置链接；将数据LinkSetInBiCC读取到LINKS=[从到]；在LINKS}{i，j}中设置NODES=union{<i，j>；num双成分{LINKS}；设置ARTPOINTS；使用NETWORK解决/loglevel=中等链接=（包含=链接）双缩管out=（biconcomp=双组件artpoints=artpoints）;打印双分量；放置ARTPOINTS；从[from to]biconcomp=bicomponent创建数据LinkSetOut；从[node]=ARTPOINTS artpoint=1创建数据NodeSetOut；退出；proc打印数据=LinkSetOut noobs标签；运行；proc打印数据=NodeSetOut noobs标签；运行；/*CLIQUE（点击）*/数据链接设置；从输入到@@；数据线；0 1 0 2 0 3 0 4 0 50 6 1 2 1 3 1 4 2 32 4 2 5 2 6 2 7 2 83 4 5 6 7 8 8 9;过程操作模型；设置链接；将数据LinkSetIn读入LINKS=[from to]；设置<num，num>CLIQUES；使用NETWORK解决/链接=（包含=链接）集团out=（cliques=cliques）;放置CLIQUES；从[clique node]创建数据Cliques=Cliques；num num_cliques=卡（cliques}cid中的{cid，node>集合）；设置CLIQUE_IDS=1..num_cliques；num size{CLIQUE_IDS}中的cid=卡（切片（<cid，*>，CLIQUES））；从[clique]大小创建数据CliqueSizes；退出；proc打印数据=Cliques noobs标签；运行；proc打印数据=CliqueSizes noobs标签；运行；/*连接的组件*//*简单无向图的连通分量*/数据链接设置；从$输入到$@@；数据线；A B A C B C C H D E D F D G F E G I K L;过程操作模型；设置链接；将数据LinkSetIn读入LINKS=[from to]；在LINKS}{i，j}中设置NODES=union{<i，j>；num组件{NODES}；使用NETWORK解决/链接=（包括=链接）混合物输出=（concomp=组件）;打印组件；从[node]concomp=component创建数据NodeSetOut；退出；proc打印数据=NodeSetOut noobs标签；运行；数据NodeSetIn；输入节点$@@；数据线；A B C D E F G H I J K L公司;过程操作模型；设置链接；将数据LinkSetIn读入LINKS=[from to]；设置节点；将数据NodeSetIn读入NODES=[node]；num组件{NODES}；使用NETWORK解决/链接=（包括=链接）节点=（包括=节点）混合物输出=（concomp=组件）;打印组件；从[node]concomp=component创建数据NodeSetOut；退出；proc打印数据=NodeSetOut noobs标签；运行；/*简单有向图的连通分量*/数据链接设置；从$输入到$@@；数据线；A、B、B、C、E、B、F、C、GC D D C D H E A E F公司F G G F H G H D公司;过程操作模型；设置链接；将数据LinkSetIn读入LINKS=[from to]；在LINKS}{i，j}中设置NODES=union{<i，j>；num组件{NODES}；使用NETWORK解决/graph_direction=定向链接=（包含=链接）混合物输出=（concomp=组件）;打印组件；从[node]concomp=component创建数据NodeSetOut；退出；proc打印数据=NodeSetOut noobs标签；运行；/*CYCLE（循环）*/数据链接设置；从$输入到$@@；数据线；A、B、A、E、B、C、A、C、DD E D F E B E C F E;过程操作模型；设置链接；将数据LinkSetIn读入LINKS=[from to]；设置<num，num，str>CYCLES；使用NETWORK解决/graph_direction=定向链接=（包含=链接）循环=（模式=第一个循环）;退出；过程操作模型；设置链接；将数据LinkSetIn读入LINKS=[from to]；设置<num，num，str>CYCLES；使用NETWORK解决/graph_direction=定向链接=（包含=链接）循环=（模式=所有循环）;退出；过程操作模型；设置链接；将数据LinkSetIn读入LINKS=[from to]；设置<num，num，str>CYCLES；使用NETWORK解决/graph_direction=定向链接=（包含=链接）循环=（模式=第一个循环）输出=（周期=周期）;放置循环；从[cycle order node]=Cycles创建数据Cycles；退出；proc print data=Cycles noobs标签；运行；过程操作模型；设置链接；将数据LinkSetIn读入LINKS=[from to]；设置<num，num，str>CYCLES；使用NETWORK解决/graph_direction=定向链接=（包含=链接）循环=（模式=所有循环）输出=（周期=周期）;放置循环；从[cycle order node]=Cycles创建数据Cycles；退出；proc print data=Cycles noobs标签；运行；/*最低成本网络流量*/数据链接设置；从输入到重量上限；数据线；1 4 2 152 1 1 102 3 0 102 6 6 103 4 1 53 5 4 104 7 5 105 6 2 205 7 7 156 8 8 107 8 9 15;数据NodeSetIn；输入节点权重；数据线；1 102 204 -57 -158 -10;过程操作模型；设置链接；num成本{LINKS}；num上部{LINKS}；将数据LinkSetIn读入LINKS=[from to]cost=weight upper；在LINKS}{i，j}中设置NODES=union{<i，j>；num电源{NODES}初始化0；将数据NodeSetIn读入[节点]供应=重量；num流{LINKS}；用网络解决/loglevel=中等logfreq=1graph_direction=定向链接=（上部=上部权重=成本）节点=（重量=供应）最大持续流量输出=（流量=流量）;印刷流程；从[从到]较高成本流创建数据LinkSetOut；退出；proc打印数据=LinkSetOut标签；运行；数据NodeSetIn；输入节点权重2；数据线；1 10 .我2 20 204 .M-5月7 -15 -158 -10 -6;过程操作模型；设置链接；num成本{LINKS}；num上部{LINKS}；将数据LinkSetIn读入LINKS=[from to]cost=weight upper；设置节点；num电源{节点}；num supplyUB{NODES}；/*如果为负，也要求下限*/将数据NodeSetIn读取到NODES=[node]supply=weight supply UB=weight2；num流{LINKS}；使用NETWORK解决/方向=定向链接=（上部=上部权重=成本）节点=（权重=供应权重2=供应UB）最大持续流量输出=（流量=流量）;印刷流程；从[从到]较高成本流创建数据LinkSetOut；退出；proc打印数据=LinkSetOut标签；运行；/*最小切割*/数据链接设置；输入从到权重@@；数据线；1 2 2 1 5 3 2 3 3 2 5 2 2 6 23 4 4 3 7 2 4 7 2 4 8 2 5 6 36 7 1 7 8 3;过程操作模型；设置链接；num权重{LINKS}；将数据LinkSetIn读入LINKS=[from to]weight；在LINKS}{i，j}中设置节点=union；设置<num，num>PARTITIONS；集合<num，num，num>CUTSETS；使用NETWORK解决/loglevel=中等链接=（重量=重量）最小值=（最大值=3）out=（分区=partitions割集=割集）;集合CUTS=CUTSETS}切割中的集合{<切割，i，j>；num minCutWeight{切割中的切割}=切割集}中的总和{<（切割），i，j>重量[i，j]；打印minCutWeight；用于{cut-in CUTS}将“剪切ID:”剪切“分区：”（slice（<cut，*>，PARTITIONS））“和”（节点差异切片（<cut，*>，PARTITIONS））“切割：”（切片（<切割，*，*>，CUTSETS））“重量：”minCutWeight[cut]；创建数据MinCut from[MinCut from to]=切割集重量[from，to]；num mincut{cut in CUTS，node in NODES}中的节点=如果PARTITIONS中的＜cut，node＞，则0 else为1；印花薄纱；从[node]=NODES创建数据NodeSetOut{切入CUTS}<col（'mincut_'||cut）=mincut[cut，node]>；退出；proc打印数据=NodeSetOut noobs标签；运行；proc打印数据=MinCut noobs标签；运行；proc打印数据=MinCut noobs标签；总权重；通过mincut；运行；/*最小跨度树*/数据链接设置；输入从$到$weight@@；数据线；A、B、7、A、D、5、B、C、8、B、D、9、B、E、7东经5东经15东经6东经8东经9F G 11 H I 1 I J 3 H J 2楼;过程操作模型；设置链接；num权重{LINKS}；将数据LinkSetIn读入LINKS=[from to]weight；设置<str，str>FOREST；使用NETWORK解决/链接=（重量=重量）吟游诗人out=（森林=森林）;放置森林；创建数据MinSpanForest from[from to]=森林重量；退出；proc打印数据=MinSpanForest noobs标签；总权重；运行；/*最短路径*//*所有对的最短路径*/数据链接设置；输入从$到$weight@@；数据线；A、B、3、A、C、2、A、D、6、A、E、4、B、D、5B、F、5、C、E、1、D、E、2、D、F、1、E、F、4;过程操作模型；设置链接；num权重{LINKS}；将数据LinkSetIn读入LINKS=[from to]weight；设置路径；/*源、接收器、顺序、从、到*/在LINKS}{i，j}中设置NODES=union{<i，j>；num path_length{节点，节点}；使用NETWORK解决/链接=（重量=重量）捷径输出=（sppath=PATHS spweights=path_length）;放置路径；打印路径长度；从[source sink order from to]=PATHS创建数据ShortPathP重量[从，到]；从[source-sink]创建数据ShortPathW路径权重=路径长度；退出；标题“ShortPathP”；proc打印数据=ShortPathP noobs标签；运行；标题“ShortPathW”；proc print data=ShortPathW noobs标签；运行；过程操作模型；设置链接；num权重{LINKS}；将数据LinkSetIn读入LINKS=[from to]weight；设置路径；/*源、接收器、顺序、从、到*/使用NETWORK解决/链接=（重量=重量）shortpath=（路径=最长）输出=（sppath=路径）;放置路径；从[source sink order from to]=PATHS创建数据ShortPathLong重量[从，到]；退出；标题“ShortPathLong”；proc print data=ShortPathLong noobs标签；运行；/*源-链对子集的最短路径*/过程操作模型；设置链接；num权重{LINKS}；将数据LinkSetIn读入LINKS=[from to]weight；设置路径；/*源、接收器、顺序、从、到*/设置SOURCES=/A C/；设置SINKS=/B F/；使用NETWORK解决/链接=（重量=重量）shortpath=（源=源=汇=汇）输出=（sppath=路径）;放置路径；创建数据ShortPath from[source sink order from to]=PATHS weight[from，to]；退出；标题“ShortPath”；proc print data=ShortPath noobs标签；运行；/*源对或汇对子集的最短路径*/过程操作模型；设置链接；num权重{LINKS}；将数据LinkSetIn读入LINKS=[from to]weight；设置路径；/*源、接收器、顺序、从、到*/设置SOURCES=/B E/；使用NETWORK解决/链接=（重量=重量）shortpath=（源=源）输出=（sppath=路径）;放置路径；创建数据ShortPath from[source sink order from to]=PATHS weight[from，to]；退出；标题“ShortPath”；proc print data=ShortPath noobs标签；运行；过程操作模型；设置链接；num权重{LINKS}；将数据LinkSetIn读入LINKS=[from to]weight；设置路径；/*源、接收器、顺序、从、到*/设置SINKS=/B E/；使用NETWORK解决/链接=（重量=重量）shortpath=（sink=SINKS）输出=（sppath=路径）;放置路径；创建数据ShortPath from[source sink order from to]=PATHS weight[from，to]；退出；标题“ShortPath”；proc print data=ShortPath noobs标签；运行；/*一个源链路对的最短路径*/过程操作模型；设置链接；num权重{LINKS}；将数据LinkSetIn读入LINKS=[from to]weight；设置路径；/*源、接收器、顺序、从、到*/设置SOURCES=/C/；设置SINKS=/F/；使用NETWORK解决/链接=（重量=重量）shortpath=（源=源=汇=汇）输出=（sppath=路径）;放置路径；创建数据ShortPath from[source sink order from to]=PATHS weight[from，to]；退出；标题“ShortPath”；proc print data=ShortPath noobs标签；运行；数据链接设置；输入从$到$weight count@@；数据线；A B 3 1 A C 2 1 A D 6 1 A E 4 1 B D 5 1B F 5 1 C E 1 1 D E 2 1 D F 1 1 E F 4 1公司;过程操作模型；设置链接；num权重{LINKS}；数字计数{LINKS}；将数据LinkSetIn读入LINKS=[from to]weight count；设置路径；/*源、接收器、顺序、从、到*/在LINKS}{i，j}中设置NODES=union{<i，j>；节点中的num path_length{i，节点中的j：i~=j}；使用NETWORK解决/链接=（重量=重量）捷径输出=（sppath=PATHS spweights=path_length）;放置路径；num path_weight2{源在节点中，汇在节点中：源~=汇}=PATHS}中的和{<（源），（汇），顺序，from，to>计数[from，to]；打印路径长度路径权重2；从[source-sink]创建数据ShortPathW路径权重=路径长度路径权重2；退出；标题“ShortPathW”；proc print data=ShortPathW noobs标签；运行；过程操作模型；设置LINKS=/<A B><A C><B C>>B D><B E><D B><D C><E D>/；num权重{LINKS}初始化[-1 4 3 2 2 1 5-3]；在LINKS}{i，j}中设置NODES=union{<i，j>；/*使用节点的类型（在本例中为STRING），但将路径留空*/设置PATHS init{节点，节点，/0/，节点，节点：0}；设置SOURCE=/E/，SINK=/B/；使用NETWORK解决/链接=（重量=重量）方向=定向shortpath=（源=源-汇=汇）输出=（sppath=路径）;放置“路径和权重：”（路径}中的{s，t，i，u，v>集合）；退出；/*过渡关闭*/数据链接设置；从$输入到$@@；数据线；B C B D C B D A D C;过程操作模型；设置链接；将数据LinkSetIn读入LINKS=[from to]；设置<str，str>CAN_REACH；使用NETWORK解决/graph_direction=定向链接=（包含=链接）收发信机输出=（闭合=CAN_REACH）;放置CAN_REACH；从[from to]=CAN_REACH创建数据TransClosure；退出；标题“传递闭包”；proc打印数据=TransClosure noobs标签；运行；/*旅行销售人员问题*/数据链接设置；输入从$到$weight@@；数据线；甲B 1.0甲C 1.0甲D 1.5乙C 2.0乙D 4.0B E 3.0 C D 3.0 C F 3.0 C H 4.0 D E 1.5英国教育部东风3.0东风4.0东风1.0东风1.0西风2.0F H 4.0 H I 3.0 I J 1.0 C J 5.0 F J 3.0F I 1.0高J 1.0;过程操作模型；设置<str，str>EDGES；在EDGES}{i，j}中设置NODES=union{i，j>；num权重{EDGES}；将数据LinkSetIn读入EDGES=[从至]权重；num tsp_order｛节点｝；设置<str，str>TOUR；使用NETWORK解决/loglevel=中等链接=（重量=重量）茶匙out=（订单=tsp_order tour=tour）;put TOUR；以TOUR}重量打印{i，j>；打印tsp_order；从[node]tsp_order创建数据NodeSetOut；创建数据TSPTour from[from to]=TOUR weight；退出；标题“旅行推销员问题”；proc排序数据=NodeSetOut；按tsp顺序；运行；proc打印数据=NodeSetOut noobs标签；运行；proc打印数据=TSP您的noobs标签；总权重；运行；/*旅行销售人员问题*/数据链接设置；输入从$到$weight@@；数据线；A B 2.0 A C 1.0 A E 4.0B A 1.0 B C 2.0 B D 1.0 B E 1.0成本加成2.0成本加成3.0东非1.0东非1.0东经2.0东经1.0;过程操作模型；设置<str，str>EDGES；在EDGES}{i，j}中设置NODES=union{i，j>；num权重{EDGES}；将数据LinkSetIn读入EDGES=[从至]权重；num tsp_order｛节点｝；设置<str，str>TOUR；使用NETWORK解决/loglevel=中等链接=（重量=重量）方向=定向茶匙out=（订单=tsp_order tour=tour）;put TOUR；以TOUR}重量打印{i，j>；打印tsp_order；从[node]tsp_order创建数据NodeSetOut；创建数据TSPTour from[from to]=TOUR weight；退出；proc排序数据=NodeSetOut；按tsp顺序；运行；proc打印数据=NodeSetOut noobs标签；运行；proc打印数据=TSP您的noobs标签；总权重；运行；