rsmt70.ps

生成直角Steiner树的程序包

%!PS-Adobe-3.0
%%Creator: Steiner Tree Version 3.1
%%Copyright: Copyright (c) 1998, 2001 by David M. Warme
%%LanguageLevel: 1
%%DocumentNeededResources: font Times-Roman
%%DocumentSuppliedResources: procset SteinerTreeProcs 2.0 0
%%EndComments
%%BeginProlog
%%BeginProcSet: SteinerTreeProcs 2.0 0
/LabelTerminals	0		def	% set non-zero to label terminals
/inch { 72 mul } def
/PaperWidth	8.5 inch	def
/PaperHeight	11 inch		def
/BigBoxSize	7 inch		def
/SmallBoxSize	2 inch		def
/SmallBoxHeight	SmallBoxSize	def
/SmallBoxWidth	SmallBoxSize	def
/BoxHeight	BigBoxSize	def
/BoxWidth	BigBoxSize	def
/MinX		0		def
/MaxX		1		def
/MinY		0		def
/MaxY		1		def
/BoxMode	0		def	% (0 ==> big plot, 1 ==> small plots)
/SmallBoxCount	0		def
/TermRadius	1 32 div inch	def
/LineWidth	currentlinewidth	def

% Define the clipping region to be the inside edge of the box.

/ClipHeight	BigBoxSize LineWidth sub def
/ClipWidth	ClipHeight def

% Define the plotting region so that points plotted at the extremes will
% exactly meet the edge of the clipping region.  (Reduce by the terminal
% radius on each side.)

/PlotHeight	ClipHeight TermRadius 2 mul sub def
/PlotWidth	ClipWidth  TermRadius 2 mul sub	def
/XlateX { MinX sub MaxX MinX sub div PlotWidth mul } def
/XlateY { MinY sub MaxY MinY sub div PlotHeight mul } def
/XlateXY { exch XlateX exch XlateY } def
/Dup2 { dup 3 -1 roll dup 4 1 roll exch } def
/Swap2 { 4 2 roll } def
% define the two fonts we will use:
%	- one for numbering the terminals
%	- one for printing the plot's title
/TermNumPointsize	8	def
/TitlePointsize		15	def
/TermNumFont
	/Times-Roman findfont TermNumPointsize scalefont
def
/UseTermNumFont { TermNumFont setfont } def
/TitleFont
	/Times-Roman findfont TitlePointsize scalefont
def
/UseTitleFont { TitleFont setfont } def
/DefineTerminals {
	/NumTerms exch def
	/TermX NumTerms array def
	/TermY NumTerms array def
	/TermIndex 0 def
} def
/DT {
	TermY TermIndex 3 -1 roll put
	TermX TermIndex 3 -1 roll put
	/TermIndex TermIndex 1 add def
} def
/SetAxes {	% minx maxx miny maxy
	/MaxY exch def
	/MinY exch def
	/MaxX exch def
	/MinX exch def
} def
/PTString	12 string	def
/Plot_Terminals {
	LabelTerminals 0 eq {
		% Display terminals, no labels
		0 1 NumTerms 1 sub {			% i
			dup				% i i
			TermX exch get exch		% x i
			TermY exch get
			newpath
			XlateXY
			TermRadius 0 360 arc fill
		} for
	}
	{	% Display terminals, with labels
		0 1 NumTerms 1 sub {			% i
			dup				% i i
			PTString cvs exch dup		% str i i
			TermX exch get exch		% str x i
			TermY exch get			% str x y
			newpath
			XlateXY
			Dup2
			TermRadius 0 360 arc fill
			moveto TermRadius 3 mul dup neg rmoveto
			UseTermNumFont
			show
		} for
	} ifelse
} def
% n T ==> Xn Yn, get coordinates of terminal n.
/T {
	dup
	TermX exch get exch
	TermY exch get
} def
% Draw a line segment.
/S {
	newpath
	XlateXY
	moveto
	XlateXY
	lineto
	stroke
} def
% Draw a corner.  First point is incident to vertical segment.
% Second point is incident to horizontal segment.
/C {	% x1 y1 x2 y2
	newpath
	% x1 y1 x2 y2 -> x1 y1 x1 y2 x2 y2
	4 -1 roll dup 5 1 roll exch dup 4 -1 roll exch
	XlateXY
	moveto
	XlateXY
	lineto
	XlateXY
	lineto
	stroke
} def
/BeginPlot {
	FlushSmallPlot
	gsave
	PaperWidth BoxWidth sub 2 div
	 PaperHeight BoxHeight sub 2 div
	  translate
	newpath
	0 0 moveto
	BoxWidth 0 lineto
	BoxWidth BoxHeight lineto
	0 BoxHeight lineto
	closepath
	stroke
	gsave
	% establish a clipping region at the inside edge of the box
	LineWidth 2 div dup moveto
	ClipWidth 0 rlineto
	0 ClipHeight rlineto
	ClipWidth neg 0 rlineto
	closepath
	clip
	% establish the origin for the plotting region
	LineWidth 2 div TermRadius add
	 dup
	  translate
} def
/EndPlot {
	grestore
	newpath
	UseTitleFont
	0 0 moveto
		dup stringwidth pop BigBoxSize exch sub 2 div
		TitlePointsize -2 mul
	rmoveto
	show
	grestore
	showpage
} def
/BeginSmallPlot {
	gsave
	.75 inch SmallBoxCount 3 mod SmallBoxWidth .5 inch add mul add
	  .75 inch 3 SmallBoxCount 3 idiv sub SmallBoxHeight .5 inch add mul add
	    translate
	SmallBoxWidth BoxWidth div
	 SmallBoxHeight BoxHeight div
	  scale
	newpath
	0 0 moveto
	BoxWidth 0 lineto
	BoxWidth BoxHeight lineto
	0 BoxHeight lineto
	closepath
	stroke
	gsave
	% establish a clipping region at the inside edge of the box
	LineWidth 2 div dup moveto
	ClipWidth 0 rlineto
	0 ClipHeight rlineto
	ClipWidth neg 0 rlineto
	closepath
	clip
	% establish the origin for the plotting region
	LineWidth 2 div TermRadius add
	 dup
	  translate
} def
/EndSmallPlot2 {
	grestore
	newpath
	UseTitleFont
	0 0 moveto
		dup stringwidth pop BigBoxSize exch sub 2 div
		TitlePointsize -2 mul
	rmoveto
	show
	grestore
	/SmallBoxCount SmallBoxCount 1 add def
	SmallBoxCount 12 ge {
		FlushSmallPlot
	} if
} def
/FlushSmallPlot {
	SmallBoxCount 0 gt {
		showpage
		/SmallBoxCount	0 def
	} if
} def
/PT {
	dup				% i i
	TermX exch get exch		% x i
	TermY exch get
	newpath
	XlateXY
	TermRadius 0 360 arc fill
} def
%%EndProcSet
%%EndProlog

 % ./bb
 % Args:
 % Phase 1: 0.01 seconds

%%BeginSetup

0 10000 0 10000 SetAxes

70 DefineTerminals
	1857	2738	DT
	2894	8773	DT
	1463	5183	DT
	6905	8268	DT
	3221	2457	DT
	3473	730	DT
	2983	4045	DT
	5486	5208	DT
	815	6755	DT
	1875	934	DT
	606	7576	DT
	6045	4078	DT
	9323	8669	DT
	7952	2547	DT
	303	8201	DT
	6131	4811	DT
	7871	9452	DT
	854	1630	DT
	5468	655	DT
	7539	7194	DT
	2588	3671	DT
	5319	3872	DT
	4004	3636	DT
	8823	9370	DT
	2183	4813	DT
	4853	437	DT
	8935	5346	DT
	8461	2389	DT
	2920	9868	DT
	4339	473	DT
	8222	1895	DT
	9336	5659	DT
	5826	447	DT
	8995	3322	DT
	3337	1432	DT
	7140	4825	DT
	7970	3168	DT
	1959	6377	DT
	8240	6048	DT
	953	5905	DT
	5779	7114	DT
	7741	883	DT
	5927	7473	DT
	3088	4641	DT
	8609	9286	DT
	4558	9381	DT
	7577	1956	DT
	8888	4529	DT
	3717	7332	DT
	7074	9300	DT
	1880	753	DT
	8823	4604	DT
	255	6767	DT
	3610	8398	DT
	9728	2393	DT
	2860	8228	DT
	2032	5977	DT
	9534	3627	DT
	8144	172	DT
	1896	1532	DT
	6615	4909	DT
	3587	126	DT
	2628	2673	DT
	9761	9724	DT
	1941	1952	DT
	5552	6945	DT
	3436	3149	DT
	4392	4101	DT
	6746	2567	DT
	9328	6317	DT

%%EndSetup

 % initialize_constraint_pool: 0.00 seconds.
 % Constraint pool initialized with:
 %	1	Total degree rows	200	coeffs.
 %	70	Cutset rows		628	coeffs.
 %	0	Incompatibility rows	0	coeffs.
 %	171	2-terminal SEC rows	749	coeffs.
 %	231	Total rows in pool	71	in LP
 % @PMEM 231 rows, 1 blocks, 4523 nzfree, 0 nzwasted, 6308 nztotal
 % build_initial_formulation: 0.00 seconds.
% Resuming node 0
  % @PAP adding 71 rows, 828 nz to LP
  % @PL 71 rows, 200 cols, 1028 nonzeros, 26 slack, 45 tight.
  % @PAP adding 21 rows, 111 nz to LP
  % @PL 92 rows, 200 cols, 1139 nonzeros, 29 slack, 63 tight.
  % @PAP adding 14 rows, 68 nz to LP
  % @PL 106 rows, 200 cols, 1207 nonzeros, 25 slack, 81 tight.
  % @PAP adding 10 rows, 69 nz to LP
  % @PL 116 rows, 200 cols, 1276 nonzeros, 29 slack, 87 tight.
  % @PAP adding 10 rows, 49 nz to LP
  % @PL 126 rows, 200 cols, 1325 nonzeros, 34 slack, 92 tight.
  % @PAP adding 4 rows, 11 nz to LP
  % @PL 130 rows, 200 cols, 1336 nonzeros, 35 slack, 95 tight.
  % @PAP adding 2 rows, 9 nz to LP
  % @PL 132 rows, 200 cols, 1345 nonzeros, 34 slack, 98 tight.
  % @PAP adding 1 rows, 2 nz to LP
  % @PL 133 rows, 200 cols, 1347 nonzeros, 34 slack, 99 tight.
  % @PAP adding 1 rows, 4 nz to LP
  % @PL 134 rows, 200 cols, 1351 nonzeros, 36 slack, 98 tight.
  % @PAP adding 1 rows, 3 nz to LP
  % @PL 135 rows, 200 cols, 1354 nonzeros, 36 slack, 99 tight.
  % @PAP adding 1 rows, 2 nz to LP
  % @PL 136 rows, 200 cols, 1356 nonzeros, 35 slack, 101 tight.
  % Node 0 LP 1 Solution, length = 56199.000000, 0.01 0
 % 0 fractional variables
 % @LO 0.01 56199.00000000000000000000 99.9000000000
 % @LN 0.01 56199.00000000000000000000 99.9000000000
 % @UO 0.01 60393.00000000000000000000 6.9445134370
 % @UN 0.01 60393.00000000000000000000 6.9445134370
 % @cutset: 7 connected components.
 % initially 19 congested vertices:
 % find_congested_components found 6 components:
 %	component 0:	3 verts,	3 edges
 %	component 1:	3 verts,	3 edges
 %	component 2:	3 verts,	3 edges
 %	component 3:	3 verts,	3 edges
 %	component 4:	3 verts,	3 edges
 %	component 5:	3 verts,	3 edges
 % @D deleting 35 slack rows
  % @PAP adding 13 rows, 138 nz to LP
 % @PMEM 244 rows, 1 blocks, 4372 nzfree, 0 nzwasted, 6308 nztotal
  % @PL 114 rows, 200 cols, 1130 nonzeros, 14 slack, 100 tight.
  % @PAP adding 1 rows, 2 nz to LP
  % @PL 115 rows, 200 cols, 1132 nonzeros, 15 slack, 100 tight.
  % @PAP adding 2 rows, 14 nz to LP
  % @PL 117 rows, 200 cols, 1146 nonzeros, 15 slack, 102 tight.
  % @PAP adding 1 rows, 3 nz to LP
  % @PL 118 rows, 200 cols, 1149 nonzeros, 16 slack, 102 tight.
  % Node 0 LP 2 Solution, length = 58685.500000, 0.00/0.00/0.00/0.00/0.00/0.00/0.00 13
 % 17 fractional variables
 % @LO 0.01 56199.00000000000000000000 6.9445134370
 % @LN 0.01 58685.50000000000000000000 2.8273144239
 % @UO 0.02 60393.00000000000000000000 2.8273144239
 % @UN 0.02 59685.00000000000000000000 1.6746251152
 % @cutset: 2 connected components.
 % initially 25 congested vertices:
 % find_congested_components found 4 components:
 %	component 0:	4 verts,	5 edges
 %	component 1:	3 verts,	3 edges
 %	component 2:	3 verts,	4 edges
 %	component 3:	3 verts,	3 edges
 % @D deleting 16 slack rows
  % @PAP adding 5 rows, 67 nz to LP
 % @PMEM 249 rows, 1 blocks, 4300 nzfree, 0 nzwasted, 6308 nztotal
  % @PL 107 rows, 200 cols, 1099 nonzeros, 5 slack, 102 tight.
  % @PAP adding 1 rows, 2 nz to LP
  % @PL 108 rows, 200 cols, 1101 nonzeros, 3 slack, 105 tight.
  % @PAP adding 3 rows, 13 nz to LP
  % @PL 111 rows, 200 cols, 1114 nonzeros, 3 slack, 108 tight.
  % @PAP adding 1 rows, 2 nz to LP
  % @PL 112 rows, 200 cols, 1116 nonzeros, 4 slack, 108 tight.
  % @PAP adding 1 rows, 5 nz to LP
  % @PL 113 rows, 200 cols, 1121 nonzeros, 5 slack, 108 tight.
  % @PAP adding 1 rows, 4 nz to LP
  % @PL 114 rows, 200 cols, 1125 nonzeros, 3 slack, 111 tight.