A Distribution Network (netdr14)
/****************************************************************/
/* S A S S A M P L E L I B R A R Y */
/* */
/* NAME: NETDR14 */
/* TITLE: A Distribution Network (netdr14) */
/* PRODUCT: OR */
/* SYSTEM: ALL */
/* KEYS: NETDRAW */
/* PROCS: PRINT, NETDRAW */
/* DATA: */
/* */
/* SUPPORT: UPDATE: */
/* REF: Example 14 from the NETDRAW Chapter(PM User's Guide)*/
/* MISC: */
/* */
/****************************************************************/
data arcs;
input from $ to $ _x_ _y_ _pattern;
datalines;
PLANT_1 CUST_1 1 5 1
PLANT_1 DEPOT1_1 1 5 1
PLANT_1 DEPOT2_1 1 5 1
DEPOT1_1 CUST_1 2 6 1
DEPOT2_1 CUST_1 2 4 1
PLANT_1 PLANT_2 1 5 1
DEPOT1_1 DEPOT1_2 2 6 1
DEPOT2_1 DEPOT2_2 2 4 1
PLANT_2 CUST_2 4 2 2
PLANT_2 DEPOT1_2 4 2 2
PLANT_2 DEPOT2_2 4 2 2
DEPOT1_2 CUST_2 5 3 2
DEPOT2_2 CUST_2 5 1 2
CUST_1 . 3 5 1
CUST_2 . 6 2 2
;
title c=blue 'Distribution Network';
pattern1 v=s c=green;
pattern2 v=s c=red;
proc netdraw data=arcs graphics out=netout;
actnet / act=from succ=to separatearcs
ybetween = 4
centerid
ctext = white
carcs=blue
htext=2
pcompress;
run;