Minimum Spanning Tree for Computer Network
/***************************************************************/
/* */
/* S A S S A M P L E L I B R A R Y */
/* */
/* NAME: onete05 */
/* TITLE: Minimum Spanning Tree for Computer Network */
/* Topology */
/* PRODUCT: OR */
/* SYSTEM: ALL */
/* KEYS: OR */
/* PROCS: OPTNET, PRINT */
/* DATA: */
/* */
/* SUPPORT: UPDATE: */
/* REF: */
/* MISC: Example 5 from the OPTNET documentation. */
/* */
/***************************************************************/
data LinkSetInCompNet;
input from $ to $ weight @@;
datalines;
A B 1.0 A C 1.0 A D 1.5 B C 2.0 B D 4.0
B E 3.0 C D 3.0 C F 3.0 C H 4.0 D E 1.5
D F 3.0 D G 4.0 E F 1.0 E G 1.0 F G 2.0
F H 4.0 H I 1.0 I J 1.0
;
proc optnet
data_links = LinkSetInCompNet;
minspantree
out = MinSpanTree;
run;
proc print data=MinSpanTree noobs label;
sum weight;
run;