rfsts10.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

 % Phase 1: 0.00 seconds

%%BeginSetup

0 10000 0 10000 SetAxes

10 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

%%EndSetup

%%Page: 1 1
BeginSmallPlot
	Plot_Terminals
 % fs0: 0 9 4
	0 T	1875	2457	C
	1875	2457	9 T	S
	1875	2457	4 T	S
  (FST 0,  Length = 3168)
EndSmallPlot2

BeginSmallPlot
	Plot_Terminals
 % fs1: 0 9 6 4
	0 T	1875	2457	C
	1875	2457	9 T	S
	1875	2457	2983	2457	S
	2983	2457	6 T	S
	2983	2457	4 T	S
  (FST 1,  Length = 4756)
EndSmallPlot2

BeginSmallPlot
	Plot_Terminals
 % fs2: 0 6 4
	0 T	2983	2738	S
	2983	2738	6 T	S
	2983	2738	4 T	C
  (FST 2,  Length = 2952)
EndSmallPlot2

BeginSmallPlot
	Plot_Terminals
 % fs3: 1 6 7
	1 T	2983	5208	C
	2983	5208	6 T	S
	2983	5208	7 T	S
  (FST 3,  Length = 7320)
EndSmallPlot2

BeginSmallPlot
	Plot_Terminals
 % fs4: 1 7 3
	1 T	5486	8268	C
	5486	8268	7 T	S
	5486	8268	3 T	S
  (FST 4,  Length = 7576)
EndSmallPlot2

BeginSmallPlot
	Plot_Terminals
 % fs5: 2 0 6
	2 T	1857	4045	C
	1857	4045	0 T	S
	1857	4045	6 T	S
  (FST 5,  Length = 3965)
EndSmallPlot2

BeginSmallPlot
	Plot_Terminals
 % fs6: 2 1 7
	2 T	2894	5208	C
	2894	5208	1 T	S
	2894	5208	7 T	S
  (FST 6,  Length = 7613)
EndSmallPlot2

BeginSmallPlot
	Plot_Terminals
 % fs7: 2 1 6
	2 T	2894	5183	S
	2894	5183	1 T	S
	2894	5183	6 T	C
  (FST 7,  Length = 6248)
EndSmallPlot2

BeginSmallPlot
	Plot_Terminals
 % fs8: 2 1 6 7
	2 T	2894	5208	C
	2894	5208	1 T	S
	2894	5208	2983	5208	S
	2983	5208	6 T	S
	2983	5208	7 T	S
  (FST 8,  Length = 8776)
EndSmallPlot2

BeginSmallPlot
	Plot_Terminals
 % fs9: 2 6 7
	2 T	2983	5183	S
	2983	5183	6 T	S
	2983	5183	7 T	C
  (FST 9,  Length = 5186)
EndSmallPlot2

BeginSmallPlot
	Plot_Terminals
 % fs10: 6 4 7
	6 T	3221	4045	S
	3221	4045	4 T	S
	3221	4045	7 T	C
  (FST 10,  Length = 5254)
EndSmallPlot2

BeginSmallPlot
	Plot_Terminals
 % fs11: 8 2 1 3
	8 T	1463	6755	S
	1463	6755	2 T	S
	1463	6755	2894	8268	C
	2894	8268	1 T	S
	2894	8268	3 T	S
  (FST 11,  Length = 9680)
EndSmallPlot2

%%Page: 2 2
BeginSmallPlot
	Plot_Terminals
 % fs12: 8 2 1
	8 T	1463	6755	S
	1463	6755	2 T	S
	1463	6755	1 T	C
  (FST 12,  Length = 5669)
EndSmallPlot2

BeginSmallPlot
	Plot_Terminals
 % fs13: 8 2 1 7 3
	8 T	1463	6755	S
	1463	6755	2 T	S
	1463	6755	2894	8268	C
	2894	8268	1 T	S
	2894	8268	5486	8268	S
	5486	8268	7 T	S
	5486	8268	3 T	S
  (FST 13,  Length = 12740)
EndSmallPlot2

BeginSmallPlot
	Plot_Terminals
 % fs14: 8 1 3
	8 T	2894	8268	C
	2894	8268	1 T	S
	2894	8268	3 T	S
  (FST 14,  Length = 8108)
EndSmallPlot2

BeginSmallPlot
	Plot_Terminals
 % fs15: 8 1 6 7
	8 T	2894	6755	S
	2894	6755	1 T	S
	2894	6755	2983	5208	C
	2983	5208	6 T	S
	2983	5208	7 T	S
  (FST 15,  Length = 9399)
EndSmallPlot2

BeginSmallPlot
	Plot_Terminals
 % fs16: 8 1 7 3
	8 T	2894	8268	C
	2894	8268	1 T	S
	2894	8268	5486	8268	S
	5486	8268	7 T	S
	5486	8268	3 T	S
  (FST 16,  Length = 11168)
EndSmallPlot2

BeginSmallPlot
	Plot_Terminals
 % fs17: 9 4 5
	9 T	3221	934	S
	3221	934	4 T	S
	3221	934	5 T	C
  (FST 17,  Length = 3325)
EndSmallPlot2

BeginSmallPlot
	Plot_Terminals
 % fs18: 6 7 8 3 1
	6 T	2983	5208	S
	2983	5208	7 T	S
	2894	6755	2983	5208	C
	2894	6755	8 T	S
	2894	6755	2894	8268	S
	2894	8268	3 T	S
	2894	8268	1 T	S
  (FST 18,  Length = 13410)
EndSmallPlot2

BeginSmallPlot
	Plot_Terminals
 % fs19: 0 4
	0 T	4 T	C
  (FST 19,  Length = 1645)
EndSmallPlot2

BeginSmallPlot
	Plot_Terminals
 % fs20: 5 9
	9 T	5 T	C
  (FST 20,  Length = 1802)
EndSmallPlot2

BeginSmallPlot
	Plot_Terminals
 % fs21: 0 9
	0 T	9 T	C
  (FST 21,  Length = 1822)
EndSmallPlot2

BeginSmallPlot
	Plot_Terminals
 % fs22: 4 6
	6 T	4 T	C
  (FST 22,  Length = 1826)
EndSmallPlot2

BeginSmallPlot
	Plot_Terminals
 % fs23: 2 8
	8 T	2 T	C
  (FST 23,  Length = 2220)
EndSmallPlot2

%%Page: 3 3
BeginSmallPlot
	Plot_Terminals
 % fs24: 2 6
	2 T	6 T	C
  (FST 24,  Length = 2658)
EndSmallPlot2

BeginSmallPlot
	Plot_Terminals
 % fs25: 6 7
	6 T	7 T	C
  (FST 25,  Length = 3666)
EndSmallPlot2

BeginSmallPlot
	Plot_Terminals
 % fs26: 1 8
	8 T	1 T	C
  (FST 26,  Length = 4097)
EndSmallPlot2

BeginSmallPlot
	Plot_Terminals
 % fs27: 3 7
	7 T	3 T	C
  (FST 27,  Length = 4479)
EndSmallPlot2

FlushSmallPlot
%%Page: 4 4
BeginSmallPlot
 % fs27: 3 7
	7 T	3 T	C
 % fs26: 1 8
	8 T	1 T	C
 % fs24: 2 6
	2 T	6 T	C
 % fs21: 0 9
	0 T	9 T	C
	Plot_Terminals
  (FSTs 21, 24, 26, 27.)
EndSmallPlot2

BeginSmallPlot
 % fs25: 6 7
	6 T	7 T	C
 % fs23: 2 8
	8 T	2 T	C
 % fs20: 5 9
	9 T	5 T	C
 % fs19: 0 4
	0 T	4 T	C
	Plot_Terminals
  (FSTs 19, 20, 23, 25.)
EndSmallPlot2

BeginSmallPlot
 % fs22: 4 6
	6 T	4 T	C
 % fs16: 8 1 7 3
	8 T	2894	8268	C
	2894	8268	1 T	S
	2894	8268	5486	8268	S
	5486	8268	7 T	S
	5486	8268	3 T	S
	Plot_Terminals
  (FSTs 16, 22.)
EndSmallPlot2

BeginSmallPlot
 % fs18: 6 7 8 3 1
	6 T	2983	5208	S
	2983	5208	7 T	S
	2894	6755	2983	5208	C
	2894	6755	8 T	S
	2894	6755	2894	8268	S
	2894	8268	3 T	S
	2894	8268	1 T	S
 % fs17: 9 4 5
	9 T	3221	934	S
	3221	934	4 T	S
	3221	934	5 T	C
	Plot_Terminals
  (FSTs 17, 18.)
EndSmallPlot2

BeginSmallPlot
 % fs15: 8 1 6 7
	8 T	2894	6755	S
	2894	6755	1 T	S
	2894	6755	2983	5208	C
	2983	5208	6 T	S
	2983	5208	7 T	S
 % fs0: 0 9 4
	0 T	1875	2457	C
	1875	2457	9 T	S
	1875	2457	4 T	S
	Plot_Terminals
  (FSTs 0, 15.)
EndSmallPlot2

BeginSmallPlot
 % fs14: 8 1 3
	8 T	2894	8268	C
	2894	8268	1 T	S
	2894	8268	3 T	S
 % fs10: 6 4 7
	6 T	3221	4045	S
	3221	4045	4 T	S
	3221	4045	7 T	C
	Plot_Terminals
  (FSTs 10, 14.)
EndSmallPlot2

BeginSmallPlot
 % fs13: 8 2 1 7 3
	8 T	1463	6755	S
	1463	6755	2 T	S
	1463	6755	2894	8268	C
	2894	8268	1 T	S
	2894	8268	5486	8268	S
	5486	8268	7 T	S
	5486	8268	3 T	S
 % fs2: 0 6 4
	0 T	2983	2738	S
	2983	2738	6 T	S
	2983	2738	4 T	C
	Plot_Terminals
  (FSTs 2, 13.)
EndSmallPlot2

BeginSmallPlot
 % fs12: 8 2 1
	8 T	1463	6755	S
	1463	6755	2 T	S
	1463	6755	1 T	C
 % fs1: 0 9 6 4
	0 T	1875	2457	C
	1875	2457	9 T	S
	1875	2457	2983	2457	S
	2983	2457	6 T	S
	2983	2457	4 T	S
	Plot_Terminals
  (FSTs 1, 12.)
EndSmallPlot2

BeginSmallPlot
 % fs11: 8 2 1 3
	8 T	1463	6755	S
	1463	6755	2 T	S
	1463	6755	2894	8268	C
	2894	8268	1 T	S
	2894	8268	3 T	S
	Plot_Terminals
  (FST 11.)
EndSmallPlot2

BeginSmallPlot
 % fs9: 2 6 7
	2 T	2983	5183	S
	2983	5183	6 T	S
	2983	5183	7 T	C
	Plot_Terminals
  (FST 9.)
EndSmallPlot2

BeginSmallPlot
 % fs8: 2 1 6 7
	2 T	2894	5208	C
	2894	5208	1 T	S
	2894	5208	2983	5208	S
	2983	5208	6 T	S
	2983	5208	7 T	S
	Plot_Terminals
  (FST 8.)
EndSmallPlot2

BeginSmallPlot
 % fs7: 2 1 6
	2 T	2894	5183	S
	2894	5183	1 T	S
	2894	5183	6 T	C
	Plot_Terminals
  (FST 7.)
EndSmallPlot2

%%Page: 5 5
BeginSmallPlot
 % fs6: 2 1 7
	2 T	2894	5208	C
	2894	5208	1 T	S
	2894	5208	7 T	S
	Plot_Terminals
  (FST 6.)
EndSmallPlot2

BeginSmallPlot
 % fs5: 2 0 6
	2 T	1857	4045	C
	1857	4045	0 T	S
	1857	4045	6 T	S
 % fs4: 1 7 3
	1 T	5486	8268	C
	5486	8268	7 T	S
	5486	8268	3 T	S
	Plot_Terminals
  (FSTs 4, 5.)
EndSmallPlot2

BeginSmallPlot
 % fs3: 1 6 7
	1 T	2983	5208	C
	2983	5208	6 T	S
	2983	5208	7 T	S
	Plot_Terminals
  (FST 3.)
EndSmallPlot2

FlushSmallPlot
%%Page: 6 6
BeginPlot
	Plot_Terminals
 % fs0: 0 9 4
	0 T	1875	2457	C
	1875	2457	9 T	S
	1875	2457	4 T	S
 % fs1: 0 9 6 4
	0 T	1875	2457	C
	1875	2457	9 T	S
	1875	2457	2983	2457	S
	2983	2457	6 T	S
	2983	2457	4 T	S
 % fs2: 0 6 4
	0 T	2983	2738	S
	2983	2738	6 T	S
	2983	2738	4 T	C
 % fs3: 1 6 7
	1 T	2983	5208	C
	2983	5208	6 T	S
	2983	5208	7 T	S
 % fs4: 1 7 3
	1 T	5486	8268	C
	5486	8268	7 T	S
	5486	8268	3 T	S
 % fs5: 2 0 6
	2 T	1857	4045	C
	1857	4045	0 T	S
	1857	4045	6 T	S
 % fs6: 2 1 7
	2 T	2894	5208	C
	2894	5208	1 T	S
	2894	5208	7 T	S
 % fs7: 2 1 6
	2 T	2894	5183	S
	2894	5183	1 T	S
	2894	5183	6 T	C
 % fs8: 2 1 6 7
	2 T	2894	5208	C
	2894	5208	1 T	S
	2894	5208	2983	5208	S
	2983	5208	6 T	S
	2983	5208	7 T	S
 % fs9: 2 6 7
	2 T	2983	5183	S
	2983	5183	6 T	S
	2983	5183	7 T	C
 % fs10: 6 4 7
	6 T	3221	4045	S
	3221	4045	4 T	S
	3221	4045	7 T	C
 % fs11: 8 2 1 3
	8 T	1463	6755	S
	1463	6755	2 T	S
	1463	6755	2894	8268	C
	2894	8268	1 T	S
	2894	8268	3 T	S
 % fs12: 8 2 1
	8 T	1463	6755	S
	1463	6755	2 T	S
	1463	6755	1 T	C
 % fs13: 8 2 1 7 3
	8 T	1463	6755	S
	1463	6755	2 T	S
	1463	6755	2894	8268	C
	2894	8268	1 T	S
	2894	8268	5486	8268	S
	5486	8268	7 T	S
	5486	8268	3 T	S
 % fs14: 8 1 3
	8 T	2894	8268	C
	2894	8268	1 T	S
	2894	8268	3 T	S
 % fs15: 8 1 6 7
	8 T	2894	6755	S
	2894	6755	1 T	S
	2894	6755	2983	5208	C
	2983	5208	6 T	S
	2983	5208	7 T	S
 % fs16: 8 1 7 3
	8 T	2894	8268	C
	2894	8268	1 T	S
	2894	8268	5486	8268	S
	5486	8268	7 T	S
	5486	8268	3 T	S
 % fs17: 9 4 5
	9 T	3221	934	S
	3221	934	4 T	S
	3221	934	5 T	C
 % fs18: 6 7 8 3 1
	6 T	2983	5208	S
	2983	5208	7 T	S
	2894	6755	2983	5208	C
	2894	6755	8 T	S
	2894	6755	2894	8268	S
	2894	8268	3 T	S
	2894	8268	1 T	S
 % fs19: 0 4
	0 T	4 T	C
 % fs20: 5 9
	9 T	5 T	C
 % fs21: 0 9
	0 T	9 T	C
 % fs22: 4 6
	6 T	4 T	C
 % fs23: 2 8
	8 T	2 T	C
 % fs24: 2 6
	2 T	6 T	C
 % fs25: 6 7
	6 T	7 T	C
 % fs26: 1 8
	8 T	1 T	C
 % fs27: 3 7
	7 T	3 T	C
  (All FSTs:  10 points,  0.00 seconds)
EndPlot