hk.ps

介绍各种经典算法的代码。说明详细

%!PS-Adobe-2.0
%%Creator: dvipsk 5.58c Copyright 1986, 1994 Radical Eye Software
%%Title: hongkong.dvi
%%Pages: 14
%%PageOrder: Ascend
%%BoundingBox: 0 0 596 842
%%DocumentFonts: Times-Roman Times-Italic Times-Bold Symbol
%%EndComments
%DVIPSCommandLine: dvips hongkong
%DVIPSParameters: dpi=600, compressed, comments removed
%DVIPSSource:  TeX output 1995.04.29:0029
%%BeginProcSet: texc.pro
/TeXDict 250 dict def TeXDict begin /N{def}def /B{bind def}N /S{exch}N
/X{S N}B /TR{translate}N /isls false N /vsize 11 72 mul N /hsize 8.5 72
mul N /landplus90{false}def /@rigin{isls{[0 landplus90{1 -1}{-1 1}
ifelse 0 0 0]concat}if 72 Resolution div 72 VResolution div neg scale
isls{landplus90{VResolution 72 div vsize mul 0 exch}{Resolution -72 div
hsize mul 0}ifelse TR}if Resolution VResolution vsize -72 div 1 add mul
TR[matrix currentmatrix{dup dup round sub abs 0.00001 lt{round}if}
forall round exch round exch]setmatrix}N /@landscape{/isls true N}B
/@manualfeed{statusdict /manualfeed true put}B /@copies{/#copies X}B
/FMat[1 0 0 -1 0 0]N /FBB[0 0 0 0]N /nn 0 N /IE 0 N /ctr 0 N /df-tail{
/nn 8 dict N nn begin /FontType 3 N /FontMatrix fntrx N /FontBBox FBB N
string /base X array /BitMaps X /BuildChar{CharBuilder}N /Encoding IE N
end dup{/foo setfont}2 array copy cvx N load 0 nn put /ctr 0 N[}B /df{
/sf 1 N /fntrx FMat N df-tail}B /dfs{div /sf X /fntrx[sf 0 0 sf neg 0 0]
N df-tail}B /E{pop nn dup definefont setfont}B /ch-width{ch-data dup
length 5 sub get}B /ch-height{ch-data dup length 4 sub get}B /ch-xoff{
128 ch-data dup length 3 sub get sub}B /ch-yoff{ch-data dup length 2 sub
get 127 sub}B /ch-dx{ch-data dup length 1 sub get}B /ch-image{ch-data
dup type /stringtype ne{ctr get /ctr ctr 1 add N}if}B /id 0 N /rw 0 N
/rc 0 N /gp 0 N /cp 0 N /G 0 N /sf 0 N /CharBuilder{save 3 1 roll S dup
/base get 2 index get S /BitMaps get S get /ch-data X pop /ctr 0 N ch-dx
0 ch-xoff ch-yoff ch-height sub ch-xoff ch-width add ch-yoff
setcachedevice ch-width ch-height true[1 0 0 -1 -.1 ch-xoff sub ch-yoff
.1 sub]/id ch-image N /rw ch-width 7 add 8 idiv string N /rc 0 N /gp 0 N
/cp 0 N{rc 0 ne{rc 1 sub /rc X rw}{G}ifelse}imagemask restore}B /G{{id
gp get /gp gp 1 add N dup 18 mod S 18 idiv pl S get exec}loop}B /adv{cp
add /cp X}B /chg{rw cp id gp 4 index getinterval putinterval dup gp add
/gp X adv}B /nd{/cp 0 N rw exit}B /lsh{rw cp 2 copy get dup 0 eq{pop 1}{
dup 255 eq{pop 254}{dup dup add 255 and S 1 and or}ifelse}ifelse put 1
adv}B /rsh{rw cp 2 copy get dup 0 eq{pop 128}{dup 255 eq{pop 127}{dup 2
idiv S 128 and or}ifelse}ifelse put 1 adv}B /clr{rw cp 2 index string
putinterval adv}B /set{rw cp fillstr 0 4 index getinterval putinterval
adv}B /fillstr 18 string 0 1 17{2 copy 255 put pop}for N /pl[{adv 1 chg}
{adv 1 chg nd}{1 add chg}{1 add chg nd}{adv lsh}{adv lsh nd}{adv rsh}{
adv rsh nd}{1 add adv}{/rc X nd}{1 add set}{1 add clr}{adv 2 chg}{adv 2
chg nd}{pop nd}]dup{bind pop}forall N /D{/cc X dup type /stringtype ne{]
}if nn /base get cc ctr put nn /BitMaps get S ctr S sf 1 ne{dup dup
length 1 sub dup 2 index S get sf div put}if put /ctr ctr 1 add N}B /I{
cc 1 add D}B /bop{userdict /bop-hook known{bop-hook}if /SI save N @rigin
0 0 moveto /V matrix currentmatrix dup 1 get dup mul exch 0 get dup mul
add .99 lt{/QV}{/RV}ifelse load def pop pop}N /eop{SI restore userdict
/eop-hook known{eop-hook}if showpage}N /@start{userdict /start-hook
known{start-hook}if pop /VResolution X /Resolution X 1000 div /DVImag X
/IE 256 array N 0 1 255{IE S 1 string dup 0 3 index put cvn put}for
65781.76 div /vsize X 65781.76 div /hsize X}N /p{show}N /RMat[1 0 0 -1 0
0]N /BDot 260 string N /rulex 0 N /ruley 0 N /v{/ruley X /rulex X V}B /V
{}B /RV statusdict begin /product where{pop product dup length 7 ge{0 7
getinterval dup(Display)eq exch 0 4 getinterval(NeXT)eq or}{pop false}
ifelse}{false}ifelse end{{gsave TR -.1 .1 TR 1 1 scale rulex ruley false
RMat{BDot}imagemask grestore}}{{gsave TR -.1 .1 TR rulex ruley scale 1 1
false RMat{BDot}imagemask grestore}}ifelse B /QV{gsave newpath transform
round exch round exch itransform moveto rulex 0 rlineto 0 ruley neg
rlineto rulex neg 0 rlineto fill grestore}B /a{moveto}B /delta 0 N /tail
{dup /delta X 0 rmoveto}B /M{S p delta add tail}B /b{S p tail}B /c{-4 M}
B /d{-3 M}B /e{-2 M}B /f{-1 M}B /g{0 M}B /h{1 M}B /i{2 M}B /j{3 M}B /k{
4 M}B /w{0 rmoveto}B /l{p -4 w}B /m{p -3 w}B /n{p -2 w}B /o{p -1 w}B /q{
p 1 w}B /r{p 2 w}B /s{p 3 w}B /t{p 4 w}B /x{0 S rmoveto}B /y{3 2 roll p
a}B /bos{/SS save N}B /eos{SS restore}B end
%%EndProcSet
%%BeginProcSet: texps.pro
TeXDict begin /rf{findfont dup length 1 add dict begin{1 index /FID ne 2
index /UniqueID ne and{def}{pop pop}ifelse}forall[1 index 0 6 -1 roll
exec 0 exch 5 -1 roll VResolution Resolution div mul neg 0 0]/Metrics
exch def dict begin Encoding{exch dup type /integertype ne{pop pop 1 sub
dup 0 le{pop}{[}ifelse}{FontMatrix 0 get div Metrics 0 get div def}
ifelse}forall Metrics /Metrics currentdict end def[2 index currentdict
end definefont 3 -1 roll makefont /setfont load]cvx def}def
/ObliqueSlant{dup sin S cos div neg}B /SlantFont{4 index mul add}def
/ExtendFont{3 -1 roll mul exch}def /ReEncodeFont{/Encoding exch def}def
end
%%EndProcSet
%%BeginProcSet: special.pro
TeXDict begin /SDict 200 dict N SDict begin /@SpecialDefaults{/hs 612 N
/vs 792 N /ho 0 N /vo 0 N /hsc 1 N /vsc 1 N /ang 0 N /CLIP 0 N /rwiSeen
false N /rhiSeen false N /letter{}N /note{}N /a4{}N /legal{}N}B
/@scaleunit 100 N /@hscale{@scaleunit div /hsc X}B /@vscale{@scaleunit
div /vsc X}B /@hsize{/hs X /CLIP 1 N}B /@vsize{/vs X /CLIP 1 N}B /@clip{
/CLIP 2 N}B /@hoffset{/ho X}B /@voffset{/vo X}B /@angle{/ang X}B /@rwi{
10 div /rwi X /rwiSeen true N}B /@rhi{10 div /rhi X /rhiSeen true N}B
/@llx{/llx X}B /@lly{/lly X}B /@urx{/urx X}B /@ury{/ury X}B /magscale
true def end /@MacSetUp{userdict /md known{userdict /md get type
/dicttype eq{userdict begin md length 10 add md maxlength ge{/md md dup
length 20 add dict copy def}if end md begin /letter{}N /note{}N /legal{}
N /od{txpose 1 0 mtx defaultmatrix dtransform S atan/pa X newpath
clippath mark{transform{itransform moveto}}{transform{itransform lineto}
}{6 -2 roll transform 6 -2 roll transform 6 -2 roll transform{
itransform 6 2 roll itransform 6 2 roll itransform 6 2 roll curveto}}{{
closepath}}pathforall newpath counttomark array astore /gc xdf pop ct 39
0 put 10 fz 0 fs 2 F/|______Courier fnt invertflag{PaintBlack}if}N
/txpose{pxs pys scale ppr aload pop por{noflips{pop S neg S TR pop 1 -1
scale}if xflip yflip and{pop S neg S TR 180 rotate 1 -1 scale ppr 3 get
ppr 1 get neg sub neg ppr 2 get ppr 0 get neg sub neg TR}if xflip yflip
not and{pop S neg S TR pop 180 rotate ppr 3 get ppr 1 get neg sub neg 0
TR}if yflip xflip not and{ppr 1 get neg ppr 0 get neg TR}if}{noflips{TR
pop pop 270 rotate 1 -1 scale}if xflip yflip and{TR pop pop 90 rotate 1
-1 scale ppr 3 get ppr 1 get neg sub neg ppr 2 get ppr 0 get neg sub neg
TR}if xflip yflip not and{TR pop pop 90 rotate ppr 3 get ppr 1 get neg
sub neg 0 TR}if yflip xflip not and{TR pop pop 270 rotate ppr 2 get ppr
0 get neg sub neg 0 S TR}if}ifelse scaleby96{ppr aload pop 4 -1 roll add
2 div 3 1 roll add 2 div 2 copy TR .96 dup scale neg S neg S TR}if}N /cp
{pop pop showpage pm restore}N end}if}if}N /normalscale{Resolution 72
div VResolution 72 div neg scale magscale{DVImag dup scale}if 0 setgray}
N /psfts{S 65781.76 div N}N /startTexFig{/psf$SavedState save N userdict
maxlength dict begin /magscale true def normalscale currentpoint TR
/psf$ury psfts /psf$urx psfts /psf$lly psfts /psf$llx psfts /psf$y psfts
/psf$x psfts currentpoint /psf$cy X /psf$cx X /psf$sx psf$x psf$urx
psf$llx sub div N /psf$sy psf$y psf$ury psf$lly sub div N psf$sx psf$sy
scale psf$cx psf$sx div psf$llx sub psf$cy psf$sy div psf$ury sub TR
/showpage{}N /erasepage{}N /copypage{}N /p 3 def @MacSetUp}N /doclip{
psf$llx psf$lly psf$urx psf$ury currentpoint 6 2 roll newpath 4 copy 4 2
roll moveto 6 -1 roll S lineto S lineto S lineto closepath clip newpath
moveto}N /endTexFig{end psf$SavedState restore}N /@beginspecial{SDict
begin /SpecialSave save N gsave normalscale currentpoint TR
@SpecialDefaults count /ocount X /dcount countdictstack N}N /@setspecial
{CLIP 1 eq{newpath 0 0 moveto hs 0 rlineto 0 vs rlineto hs neg 0 rlineto
closepath clip}if ho vo TR hsc vsc scale ang rotate rwiSeen{rwi urx llx
sub div rhiSeen{rhi ury lly sub div}{dup}ifelse scale llx neg lly neg TR
}{rhiSeen{rhi ury lly sub div dup scale llx neg lly neg TR}if}ifelse
CLIP 2 eq{newpath llx lly moveto urx lly lineto urx ury lineto llx ury
lineto closepath clip}if /showpage{}N /erasepage{}N /copypage{}N newpath
}N /@endspecial{count ocount sub{pop}repeat countdictstack dcount sub{
end}repeat grestore SpecialSave restore end}N /@defspecial{SDict begin}
N /@fedspecial{end}B /li{lineto}B /rl{rlineto}B /rc{rcurveto}B /np{
/SaveX currentpoint /SaveY X N 1 setlinecap newpath}N /st{stroke SaveX
SaveY moveto}N /fil{fill SaveX SaveY moveto}N /ellipse{/endangle X
/startangle X /yrad X /xrad X /savematrix matrix currentmatrix N TR xrad
yrad scale 0 0 1 startangle endangle arc savematrix setmatrix}N end
%%EndProcSet
TeXDict begin 39158280 55380996 1000 600 600 (hongkong.dvi)
@start /Fa 138[46 28 32 37 1[46 42 46 1[23 2[23 46 42
28 37 46 37 1[42 10[60 60 55 46 4[60 78 55 6[55 60 2[60
12[42 42 42 42 2[21 3[42 42[{}32 83.333336 /Times-Bold
rf /Fb 3 64 df<007FB712FCB812FEA26C16FC2F047A943C>0 D<1630167816F8A2ED01
F0A2ED03E0A2ED07C0A2ED0F80A2ED1F00A2153EA25DA25DA24A5AA24A5AA24A5AA24A5A
A24AC7FCA2143EA25CA25CA2495AA2495AA2495AA2495AA249C8FCA2133EA25BA25BA248
5AA2485AA2485AA2485AA248C9FCA2123EA25AA25AA25A1260254675B500>54
D<156015F0B3B3AB007FB812E0B912F0A26C17E034347CB33D>63
D E /Fc 206[25 5[28 43[{}2 50.000000 /Times-Roman rf
/Fd 152[27 4[36 42 97[{.167 SlantFont}3 66.666664 /Symbol
rf /Fe 145[37 6[37 3[33 38[50 60[{}4 75.000000 /Times-Italic
rf /Ff 208[14 47[{}1 50.000000 /Symbol rf /Fg 155[29
100[{}1 58.333336 /Times-Italic rf /Fh 8 93 df<1506150F151FA2151E153EA2
153C157CA2157815F8A215F01401A215E01403A215C01407A21580140FA215005CA2141E
143EA2143C147CA2147814F8A25C1301A25C1303A25C1307A25C130FA291C7FC5BA2131E
133EA2133C137CA2137813F8A25B1201A25B1203A25B1207A25B120FA290C8FC5AA2121E
123EA2123C127CA2127812F8A25A1260205782D41C>2 D<19C0F001E01803180719C0F0
0F80181F1900183E187E187C601701604D5A1707604D5A171F95C7FC173E177E177C5F16
015F4C5A16075F4C5A161F94C8FC163E167E167C5E15015E4B5A15075E4B5A151F93C9FC
153EA25D15FC5D4A5A14035D4A5A140F5D4ACAFC5C143E5C14FC5C495A13035C495A130F
5C49CBFC5B133E5B13FC5B485A12035B485A120F5B48CCFC5A123E5A12FC5A5A12603B57
82D437>10 D<F10180F103C01907190FF11F801A00193E197E61614E5A18034E5A614E5A
181F4EC7FC183E6018FC4D5A604D5A17074D5A604DC8FC5F177E177C5F16014C5A5F4C5A
160F4C5A94C9FC163E167E5E5E4B5A15035E4B5A150F4B5A93CAFC153E157E5D5D4A5A14
034A5A5D4A5A141F4ACBFC143E5C14FC495A5C495A1307495A5C49CCFC5B137E137C5B12
01485A5B485A120F485A90CDFC123E127E5A5A5A1260425782D43E>19
D<1818183C187C18FC18F8EF01F0A2EF03E0170718C0EF0F80A2EF1F005F173E5FA25F16
015F4C5AA24C5A160F5F4CC7FCA2163E167E167C5EA24B5A15035E4B5AA24B5A151F93C8
FC153EA25D15FC5D4A5AA24A5A14075D4A5AA24AC9FC5C143E5CA25C13015C495AA2495A
130F5C49CAFCA2133E137E137C5BA2485A12035B485AA2485A121F90CBFC123EA25A12FC
5A5A1260365782D432>I<1A181A3C1A7C1AFCF101F8F103F01AE0F107C0190FF11F80F1
3F00193E6119FC4E5A4E5A614E5A180F4E5A4EC7FC183E6018FC4D5A604D5A17074D5A4D
5A95C8FC173E177E5F4C5A5F4C5A16074C5A4C5A94C9FC163E167E5E4B5A5E4B5A15074B
5A4B5A93CAFC153E157E5D4A5A5D4A5A14074A5A4A5A92CBFC143E147E5C5C495A130349
5A495A5C49CCFC5B137E5B5B485A1203485A485A5B48CDFC5A127E5A5A5A1260465782D4
42>28 D<126012F07EA21278127CA2123C123EA2121E121FA27E7FA212077FA212037FA2
12017FA212007FA21378137CA2133C133EA2131E131FA27F80A2130780A2130380A21301
80A2130080A21478147CA2143C143EA2141E141FA2801580A2140715C0A2140315E0A214
0115F0A2140015F8A21578157CA2153C153EA2151E151FA2150F1506205782D41C>66
D<126012F07E7E127E123E7E7F6C7E12076C7E7F6C7E1200137C137E7F7F6D7E806D7E13
036D7E806D7E147C80143F6E7E140F6E7E816E7E14016E7E81157E153E81826F7E15076F
7E8215016F7E82167E163E8283707E1607707E83707E1600177C177E8383717E84717E17
03717E84717E187C84183F727E180F727E85727E1801727E85197E193E851A80F10FC019
071903F10180425782D43E>83 D<126012F07E7E127E7E7E6C7E7F6C7E6C7E12016C7E7F
137E7F7F6D7E806D7E6D7E13016D7E80147E143E80816E7E6E7E14036E7E816E7E157E15
3E81826F7E6F7E15036F7E826F7E167E163E8283707E707E1603707E83707E177E173E83
84717E717E1703717E84717E187C84183F727E727E1807727E85727E727E197C85193FF1
1F80F10FC01907F103E01AF0F101F8F100FC1A7C1A3C1A18465782D442>92
D E /Fi 1 110 df<95380FFFF00503B612C0053F15FC4CB87E04079026F8001F13E0DC
3FFEC8EA7FFCDCFFE0ED07FF030390CA13C0DB07FCEF3FE0DB1FE0EF07F8DB3F80EF01FC
03FECC127F4A48737EDA03F0F10FC0DA0FE0F107F04A48737E4ACE7E027E1B7E4A874948
757E4948757E4948757E4A1B034948757E011F8949D07E013E1D7C498901FC1D3F498948
48F50F80A24848F507C0A24848F503E0A24848F501F0A290D2FC481FF8A2001E1F78003E
1F7CA2003C1F3CA2007C1F3EA200781F1EA300F81F1FA2481F0FAE6C1F1FA200781F1EA3
007C1F3EA2003C1F3CA2003E1F7CA2001E1F78001F1FF8A26C1FF06D1D01A26C6CF503E0
A26C6CF507C0A26C6CF50F80A26C6CF51F006D65017C1D3E6D65013F1DFC6D6C515A010F
656D6C515A6E1B076D6C515A6D6C515A6D6C51C7FC027E1B7E6E63DA1FC0F103F86E6C4F
5ADA03F0F10FC0DA01FCF13F806E6C4FC8FCDB3F80EF01FCDB1FE0EF07F8DB07FCEF3FE0
6FB4EFFFC0030001E0030790C9FCDC3FFEED7FFC932607FFF890381FFFE0040190B71280
DC003F03FCCAFC050315C0DD000F01F0CBFC7878BCBB74>109 D
E /Fj 5 102 df<B712FEA327037A8F34>0 D<126012E0B3B3B3EAFFFE13FFEA7FFE103B
75AB1E>98 D<13031307B3B3B3EA7FFFB5FC7E103B7EAB1E>I<EA7FFEB5FC13FEEAE000
B3B3B31260103B75AB1E>I<EA7FFFB5FC7EEA0007B3B3B31303103B7EAB1E>I
E /Fk 205[29 29 5[33 43[{}3 58.333336 /Times-Roman rf
/Fl 152[31 4[41 47 97[{.167 SlantFont}3 75.000000 /Symbol
rf /Fm 78[42 2[42 52[37 37 55 37 42 23 32 32 1[42 42
42 60 23 37 1[23 42 42 23 37 42 37 42 42 12[46 42 2[51
60 55 69 46 55 37 28 60 60 1[51 60 55 1[51 2[56 1[56
2[42 42 2[42 1[42 1[42 42 2[28 21 2[28 28 28 39[{}54
83.333336 /Times-Italic rf /Fn 3 106 df<007FB81280B912C0A26C178032047996
41>0 D<14C0EB01E01303A214C01307A21480130FA2EB1F00A2131E133EA25BA2137813
F8A2485AA25B1203A25B1207A2485AA290C7FC5AA2123EA2123C127CA2127812F8A41278
127CA2123C123EA27EA27E7FA26C7EA212037FA212017FA26C7EA21378137CA27FA2131E
131FA2EB0F80A2130714C0A2130314E0A21301EB00C0135278BD20>104
D<126012F07EA21278127CA2123C123EA27EA27E7FA26C7EA212037FA26C7EA212007FA2
1378137CA27FA2131E131FA2EB0F80A2130714C0A2130314E0A414C01307A21480130FA2
EB1F00A2131E133EA25BA2137813F8A25B1201A2485AA25B1207A2485AA290C7FC5AA212
3EA2123C127CA2127812F8A25A126013527CBD20>I E /Fo 134[50
50 72 1[55 33 39 44 1[55 50 55 83 28 2[28 55 50 33 44
55 44 1[50 9[100 72 72 1[55 72 2[78 72 94 66 6[66 72
2[72 12[50 50 50 50 2[25 3[50 42[{}38 100.000000 /Times-Bold
rf /Fp 134[33 33 48 33 33 18 26 22 1[33 33 33 52 18 33
1[18 33 33 22 29 33 29 33 29 3[22 1[22 3[63 2[41 37 5[59
8[48 2[48 14[33 3[17 22 17 2[22 22 40[{}37 66.666664
/Times-Roman rf /Fq 2 4 df<B712C0A322037A8D30>0 D<136013701360A200401320
00E0137038F861F0387E67E0381FFF803807FE00EA00F0EA07FE381FFF80387E67E038F8
61F038E060700040132000001300A21370136014157B9620>3 D
E /Fr 72[34 3[41 12[37 53 1[41 118[19 44[{}6 75.000000
/Symbol rf /Fs 47[83 13[28 7[37 8[42 1[46 46 3[37 47[37
42 42 60 42 42 23 32 28 42 42 42 42 65 23 42 23 23 42
42 28 37 42 37 42 37 3[28 1[28 1[60 1[78 60 60 51 46
55 1[46 60 60 74 51 60 32 28 60 60 46 51 60 55 55 60
1[37 1[47 1[23 23 42 42 42 42 42 42 42 42 42 42 23 21
28 21 47 42 28 28 28 1[69 37[{}82 83.333336 /Times-Roman
rf /Ft 134[60 1[86 1[66 40 47 53 2[60 66 100 33 66 1[33
66 60 40 53 66 53 1[60 9[120 2[80 66 86 1[73 1[86 113
3[47 5[86 1[86 6[40 4[60 60 60 60 60 49[{}35 119.999947
/Times-Bold rf /Fu 76[36 4[66 7[33 47 1[36 116[17 1[17
44[{}7 66.666664 /Symbol rf /Fv 136[54 1[42 25 29 33
1[42 37 42 1[21 2[21 42 1[25 33 42 33 42 37 31[54 65[{}18
75.000000 /Times-Bold rf /Fw 81[42 52[37 37 54 37 37
21 29 25 1[37 37 37 58 21 37 1[21 37 37 25 33 37 33 37
33 9[71 1[54 46 42 50 1[42 54 54 66 46 2[25 54 54 1[46
54 50 50 54 3[42 1[21 21 1[37 37 37 37 37 37 37 37 37
21 19 25 19 42 37 25 25 40[{}62 75.000000 /Times-Roman