tr9417.ps

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

FFFFFFFFFFFFFFFE003FFFFFFFF001FFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFC0000000000007FFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFC00000000FFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFE0000FFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
MySave restore
% ---- Object #3:7 Obj Type: 2
save
0 setgray
mark /|___Times-Bold /Times-Bold T cvRecFont
24 fts /|___Times-Bold findfont exch scalefont setfont
0 setgray
190 344 moveto
(University of Alberta)
F F 217.2422 2 21 0 0 fittext
restore
origmtx setmatrix
systemdict /setpacking known {origpack setpacking} if end

%%EndDocument

 endTexFig
 1323 1073 a FI(SSS*)35 b(=)h FH(a)9 b FI(-)p FH(b)46
b FI(+)35 b(TT)1777 1789 y FG(by)535 2025 y(Ask)o(e)25
b(Plaat,)f(J)o(onathan)h(Schaeffer)-9 b(,)27 b(W)n(im)d(Pijls)g(and)i
(Arie)f(de)g(Bruin)1247 3942 y(T)-9 b(echnical)25 b(Report)h(TR)f
(94\26117)1502 4058 y(December)i(1994)638 4666 y
 18813584 3223306 8025374 21313290 26838958 24536596 startTexFig
 638
4666 a
%%BeginDocument: bot.ps
/CanvasDict where not{/CanvasDict 250 dict def}{pop}ifelse
CanvasDict begin
systemdict/setpacking known{/origpack currentpacking def true setpacking}if
/bdf{bind def}bind def
/xdf{exch bind def}bdf
/min{2 copy gt{exch}if pop}bdf
/edf{exch def}bdf
/max{2 copy lt{exch}if pop}bdf
/cvmtx matrix def
/tpmx matrix def
/currot 0 def
/rotmtx matrix def
/origmtx matrix def
/cvangle{360 exch sub 90 add 360 mod}bdf
/setrot{/currot edf rotmtx currentmatrix pop 2 copy translate currot rotate neg exch neg exch translate}bdf
/endrot{rotmtx setmatrix}bdf
/i systemdict/image get def/T true def/F false def/dbg F def
/ncolors 0 def/st0 ()def/st1 ()def/proc0 {}def
/penh 1 def/penv 1 def/penv2 0 def/penh2 0 def/samplesize 0 def/width 0 def/height 0 def
/setcmykcolor where not{/setcmykcolor{/b edf 3{b add 1.0 exch sub 0.0 max 1.0 min 3 1 roll}repeat systemdict begin setrgbcolor end}bdf}{pop}ifelse
/doeoclip{closepath{eoclip}stopped{currentflat dup 2 mul setflat eoclip setflat}if}bdf
/SpaceExtra 0 def/LetterSpace 0 def/StringLength 0 def/NumSpaces 0 def/JustOffset 0 def
/f0/fill load def
/s0{1 setlinewidth cvmtx currentmatrix pop penh penv scale stroke cvmtx setmatrix}bdf
/f1{_bp _fp impat}def
/s1{cvmtx currentmatrix pop 1 setlinewidth penh penv scale
{strokepath}stopped{currentflat dup 2 mul setflat strokepath setflat}if 
_bp
cvmtx setmatrix _fp impat}def
/filltype 0 def
/stroketype 0 def
/f{filltype 0 eq{f0}{f1}ifelse}bdf
/s{stroketype 0 eq{s0}{s1}ifelse}bdf
/_fp{}def
/_bp{}def
/_fg 1 def
/_pg 0 def
/_bkg 1 def
/_frg 0 def
/_frgb 3 array def
/_frrgb [0 0 0] def
/_fcmyk 4 array def
/_frcmyk [0 0 0 1] def
/_prgb 3 array def
/_pcmyk 4 array def
/_bkrgb [1 1 1] def
/_bkcmyk [0 0 0 0] def
/fg{/_fg exch def /filltype 0 def/fills{_fg setgray}def}def
/frgb{_frgb astore pop /filltype 0 def/fills{_frgb aload pop setrgbcolor}def}def
/fcmyk{_fcmyk astore pop /filltype 0 def/fills{_fcmyk aload pop setcmykcolor}def}def
/pg{/_pg exch def /stroketype 0 def/pens{_pg setgray}def}def
/prgb{_prgb astore pop /stroketype 0 def/pens{_prgb aload pop setrgbcolor}def}def
/pcmyk{_pcmyk astore pop /stroketype 0 def/pens{_pcmyk aload pop setcmykcolor}def}def
/fpat{/fstr edf/filltype 1 def/fills{/patstr fstr def}bdf}bdf
/ppat{/sstr edf/stroketype 1 def/pens{/patstr sstr def}bdf}bdf
/bkg{ /_bkg exch def /_bp{gsave _bkg setgray fill grestore}def}def
/bkrgb{_bkrgb astore pop/_bp{gsave _bkrgb aload pop setrgbcolor fill grestore}def}def
/bkcmyk{_bkcmyk astore pop/_bp{gsave _bkcmyk aload pop setcmykcolor fill grestore}def}def
/frg{ /_frg exch def /_fp{_frg setgray}def}def
/frrgb{_frrgb astore pop/_fp{_frrgb aload pop setrgbcolor}def}def
/frcmyk{_frcmyk astore pop/_fp{_frcmyk aload pop setcmykcolor}def}def
/icomp{/ncolors edf
ncolors 1 gt{/proc0 edf
dup dup 0 get ncolors div cvi exch 0 3 -1 roll put
4 -1 roll ncolors div cvi 4 1 roll{proc0 dup/st0 edf
0 exch ncolors exch length
dup ncolors sub exch ncolors div cvi string/st1 edf
{dup 0 exch dup 1 exch
2 add{st0 exch get add}bind for
3 div ncolors 4 eq{exch dup 3 1 roll 3 add st0 exch get add 255 exch sub dup 0 lt{pop 0}if}if cvi
dup 255 gt{pop 255}if
exch ncolors div cvi exch
st1 3 1 roll put}bind for
st1}}if i}bdf
/ci
{/colorimage where
{pop false exch colorimage}
{icomp}
ifelse}bdf
/impat
{/cnt 0 def
/MySave save def
currot 0 ne{currot neg rotate}if
clip
flattenpath
pathbbox
3 -1 roll
8 div floor 8 mul dup/starty edf
sub abs 8 div ceiling 8 mul cvi/height edf
exch 8 div floor 8 mul dup/startx edf
sub abs 8 div ceiling 8 mul cvi/width edf
startx starty translate
width height scale
/height height 8 mul def
/st0 width string def
width height T [width 0 0 height neg 0 height]
{patstr
cnt 8 mod
get/st1 edf
0 1
st0 length 1 sub dup 0 le{pop 1}if
{st0 exch
st1
put}bind for/cnt cnt 1 add def
st0}bind
imagemask
MySave restore
newpath}bdf
/cm{/ncolors edf
translate
scale/height edf/colorimage where
{pop}
{ncolors mul}ifelse/width edf
/tbitstr width string def
width height 8 [width 0 0 height neg 0 height]
{currentfile tbitstr readhexstring pop}bind
ncolors
dup 3 eq {ci}{icomp}ifelse}bdf
/im{translate
scale
/height edf
/width edf
/tbitstr width 7 add 8 div cvi string def
width height 1 [width 0 0 height neg 0 height]
{currentfile tbitstr readhexstring pop}bind
i}bdf
/imk{/invFlag edf
translate
scale
/height edf
/width edf
/tbitstr width 7 add 8 div cvi string def
width height invFlag [width 0 0 height neg 0 height]
{currentfile tbitstr readhexstring pop}bind
imagemask}bdf
/BeginEPSF
{/MySave save def
/dict_count countdictstack def
/op_count count 1 sub def
userdict begin
/showpage {} def
0 setgray 0 setlinecap
1 setlinewidth 0 setlinejoin
10 setmiterlimit [] 0 setdash newpath
/languagelevel where
{pop languagelevel 1 ne{false setstrokeadjust false setoverprint}if}if
}bdf
/EndEPSF
{count op_count sub {pop}repeat
countdictstack dict_count sub {end}repeat
MySave restore}bdf
/rectpath {/cv_r edf/cv_b edf/cv_l edf/cv_t edf
cv_l cv_t moveto cv_r cv_t lineto cv_r cv_b lineto cv_l cv_b lineto cv_l cv_t lineto closepath}bdf
/setpen{/penh edf/penv edf/penv2 penv 2 div def/penh2 penh 2 div def}bdf
/dostroke{not pens 1.0 currentgray ne or {s}{newpath}ifelse}bdf
/dodashfill{not fills 1.0 currentgray ne or
{gsave f grestore gsave [] 0 setdash 
stroketype/stroketype filltype def
s/stroketype edf grestore}{newpath}ifelse}bdf
/dofill{not fills 1.0 currentgray ne or {f}{newpath}ifelse}bdf
/dofillsave{not fills 1.0 currentgray ne or {gsave f grestore}if}bdf
/doline{not pens 1.0 currentgray ne or {filltype/filltype stroketype def f/filltype edf}{newpath}ifelse}bdf
/spx{SpaceExtra 0 32 4 -1 roll widthshow}bdf
/lsx{SpaceExtra 0 32 LetterSpace 0 6 -1 roll awidthshow}bdf
/Rjust{stringwidth pop JustOffset exch sub /JustOffset edf}bdf
/Cjust{stringwidth pop 2 div JustOffset exch sub /JustOffset edf}bdf
/adjfit{stringwidth pop LetterSpace StringLength 1 sub mul add SpaceExtra NumSpaces mul add dup /pw edf JustOffset exch 
sub dup /wdif edf StringLength div dup abs 1.0 gt{pop 0}if LetterSpace add /LetterSpace edf}bdf
/ulb{currentpoint pop /underlinpt edf}bdf
/ule{gsave currentpoint newpath moveto currentfont dup /ft1 known{dup /ft1 get begin /FontMatrix get FontMatrix tpmx concatmatrix pop}
{begin FontMatrix tpmx copy pop}ifelse FontInfo begin UnderlinePosition UnderlineThickness end end dup tpmx
dtransform pop setlinewidth dup tpmx dtransform pop 0 exch rmoveto underlinpt currentpoint pop sub 0 rlineto stroke grestore}bdf
/fittext{ /SpaceExtra edf /LetterSpace edf /StringLength edf /NumSpaces edf /JustOffset edf not 1 currentgray ne or
{dup {ulb}if exch
dup adjfit
lsx {ule}if}{pop pop}ifelse}bdf
/cvRecFont{/encod edf FontDirectory 2 index known{cleartomark}{findfont dup length 1 add dict begin
{1 index/FID ne{def}{pop pop}ifelse}forall encod{/Encoding CVvec def}if
currentdict end definefont cleartomark}ifelse}bdf
/wrk1 ( ) def/wdict 16 dict def
/Work75 75 string def /Nmk{Work75 cvs dup}bdf /Npt{put cvn}bdf /dhOdh{Nmk 2 79 Npt}bdf /dhodh{Nmk 2 111 Npt}bdf	/dhSdh{Nmk 2 83 Npt}bdf
/sfWidth{gsave 0 0 moveto 0 0 lineto 0 0 lineto 0 0 lineto closepath clip stringwidth grestore}bdf
/MakOF{dup dhodh FontDirectory 1 index known{exch pop}{exch findfont dup length 1 add dict begin
{1 index/FID ne 2 index /UniqueID ne and{def}{pop pop}ifelse}forall
/PaintType 2 def
/StrokeWidth .24 1000 mul ftSize div dup 12 lt{pop 12}if def
dup currentdict end definefont pop}ifelse}bdf
/fts{dup/ftSize edf}def
/mkFT{/tempFT 11 dict def tempFT begin
/FontMatrix [1 0 0 1 0 0] def/FontType 3 def
FontDirectory 3 index get /Encoding get/Encoding exch def
/proc2 edf/ft2 exch findfont def/ft1 exch findfont def/FontBBox [0 0 1 1] def
/BuildChar{wdict begin/chr edf/ftdt edf/chrst wrk1 dup 0 chr put def ftdt/proc2 get exec end}def
end tempFT definefont pop}bdf
/OLFt{dup dhOdh FontDirectory 1 index known{exch pop}
{dup 3 -1 roll dup MakOF {outproc} mkFT}ifelse}bdf
/mshw{moveto show}bdf
/outproc{ftdt/ft1 get setfont gsave chrst sfWidth grestore setcharwidth dblsh}bdf
/dblsh{currentgray 1 setgray chrst 0 0 mshw setgray ftdt/ft2 get setfont chrst 0 0 mshw}bdf
/ShadChar{ftdt/ft1 get setfont gsave chrst sfWidth 1 index 0 ne{exch .05 add exch}if grestore setcharwidth
chrst .06 0 mshw 0 .05 translate dblsh}bdf
/ShFt{dup dhSdh FontDirectory 1 index known{exch pop}
{dup 3 -1 roll dup MakOF {ShadChar} mkFT}ifelse}bdf
/LswUnits{72 75 div dup scale}bdf
/erasefill{_bp}def
/CVvec 256 array def
/NUL/SOH/STX/ETX/EOT/ENQ/ACK/BEL/BS/HT/LF/VT/FF/CR/SO/SI/DLE/DC1/DC2/DC3/DC4/NAK/SYN/ETB/CAN/EM/SUB/ESC/FS/GS/RS/US
CVvec 0 32 getinterval astore pop
CVvec 32/Times-Roman findfont/Encoding get
32 96 getinterval putinterval CVvec dup 39/quotesingle put 96/grave put
/Adieresis/Aring/Ccedilla/Eacute/Ntilde/Odieresis/Udieresis/aacute
/agrave/acircumflex/adieresis/atilde/aring/ccedilla/eacute/egrave
/ecircumflex/edieresis/iacute/igrave/icircumflex/idieresis/ntilde/oacute
/ograve/ocircumflex/odieresis/otilde/uacute/ugrave/ucircumflex/udieresis
/dagger/degree/cent/sterling/section/bullet/paragraph/germandbls
/registered/copyright/trademark/acute/dieresis/notequal/AE/Oslash
/infinity/plusminus/lessequal/greaterequal/yen/mu/partialdiff/summation
/product/pi/integral/ordfeminine/ordmasculine/Omega/ae/oslash
/questiondown/exclamdown/logicalnot/radical/florin/approxequal/Delta/guillemotleft
/guillemotright/ellipsis/blank/Agrave/Atilde/Otilde/OE/oe
/endash/emdash/quotedblleft/quotedblright/quoteleft/quoteright/divide/lozenge
/ydieresis/Ydieresis/fraction/currency/guilsinglleft/guilsinglright/fi/fl
/daggerdbl/periodcentered/quotesinglbase/quotedblbase/perthousand/Acircumflex/Ecircumflex/Aacute