?? fig2.eps
字號:
dup/Outline1000 62 div4 -1 rollUID/outlineFontSize 5 index defmakeoutlinefont/Outline findfont exch scalefont setfont} def/CopyEncoding {findfont/Encoding getdup length array/tarrayz exch deftarrayz 03 -1 rollputintervaltarrayz} bind def/Re-encode {dup length array copy/eap 0 defexch {dup type /integertype eq {/eap exch def} {1 indexexcheap exchput/eap eap 1 add def} ifelse} forall} bind def/EncodeFont {findfont duplength dictbegin{ 1 index /FID ne{ def }{ pop pop } ifelse} forall/FontName exch def/Encoding exch defFontName currentdictenddefinefont pop} bind def%%EndProcSet%%BeginProcSet : clip2pathbbox/clip2pathbbox { /magicNum linewidth 2 div 1 2 sqrt div mul def pathbbox /urymn exch magicNum add def /urxmn exch magicNum add def /llymn exch magicNum sub def /llxmn exch magicNum sub def newpath llxmn llymn moveto llxmn urymn lineto urxmn urymn lineto urxmn llymn lineto closepath clip newpath} bind def%%EndProcSet %% Line takes the following arguments:%% linewidth xEnd yEnd xStart yStart%%BeginProcSet : Line/Line {MAV /LC get length 0 ne{ gsave newpath MAV /ArrowType get length 0 eq MAV /SD get length 0 eq and {2 setlinecap /UseClip {clip2pathbbox} def } {0 setlinecap /UseClip {} def } ifelse 0 792 translate 1 -1 scale CTM currentmatrix pop /yStart exch def /xStart exch def /yEnd exch def /xEnd exch def /linewidth exch def MAV /ArrowType get length 0 eq xStart xEnd ne yStart yEnd ne and and {xStart yStart moveto xEnd yEnd lineto UseClip xStart yStart moveto xEnd yEnd lineto} {xStart yStart moveto xEnd yEnd lineto} ifelse linewidth setlinewidth SD strokepath CheckPath {LC PF ArrowType} if grestore}{pop pop pop pop pop} ifelse} bind def%% Line takes the following arguments:%% linewidth xEnd yEnd xStart yStart%%BeginProcSet : ZeroLine/ZeroLine { gsave newpath MAV /ArrowType get length 0 ne { /UseClip {} def 0 792 translate 1 -1 scale pop pop pop pop pop CTM currentmatrix pop ArrowType } if grestore} bind def/CompensateForStroke { sin currentlinewidth mul exch cos currentlinewidth mul dup 0 translate 4 -1 roll exch 2.0 mul sub 3 1 roll 2.0 mul sub} bind def/arrowdict 10 dict defarrowdict begin /SwallowTail { newpath 0.0 0.0 moveto 1.0 -.5 lineto .666 0.0 lineto 1.0 .5 lineto closepath } bind def /Triangular { newpath 0.0 0.0 moveto 1.0 -.5 lineto 1.0 .5 lineto closepath } bind def /OpenTri { newpath 1.0 0.5 moveto 0.0 0.0 lineto 1.0 -0.5 lineto } bind def /ClosedTri { newpath 1.0 0.5 moveto 0.0 0.0 lineto 1.0 -0.5 lineto closepath } bind def /SlashBar { newpath 0.5 -.5 moveto -.5 0.5 lineto } bind def /Dot { newpath 0.5 0.0 moveto 0 0 1 0 360 arc closepath } bind def /ExtSlashBar { newpath 1.0 -.5 moveto 0.0 0.5 lineto } bind defend/ScaleArrowHead { 0 0 4 -2 roll 0 0 1 1 8 -4 roll GetBoxesRatio scale} bind def/DrawArrowHead { gsave [] 0 setdash currentpoint translate rotate { 4 copy gsave initmatrix 100 200 translate msave ScaleArrowHead pop arrowdict exch get exec mrestore strokepath 0 0 3 index 3 index pathbbox 8 4 roll GetBoxesRatio 4 2 roll grestore 3 index 1.0 exch sub 6 -1 roll { 2 index mul 0 translate }{ pop } ifelse msave ScaleArrowHead scale arrowdict exch get exec mrestore strokepath } { msave ScaleArrowHead arrowdict exch get exec mrestore } ifelse CheckPath { LC PF } if grestore} bind def%%EndProcSet %%BeginProcSet : SR /SR { pbox left get pbox top get moveto pbox right get pbox top get lineto pbox right get pbox bottom get lineto pbox left get pbox bottom get lineto closepath} bind def %%EndProcSet %%BeginProcSet : E/E {1.415 setmiterlimitCM currentmatrix poppbox right get pbox left get sub abs duppbox bottom get pbox top get sub abs dup 3 -1 rolllt {exch dup 3 -1 roll exch div 1 exch}{dup 3 -1 roll exch div 1} ifelse scale 0 0 3 -1 roll 2 div 0 360 arc closepathCM setmatrix} bind def%%EndProcSet/StripFromFront { dup length2 index sub3 1 rollexch 3 -1 rollgetinterval} bind def/MakePathArray { /k 0 def {/k k 1 add def pop pop}{/k k 1 add def pop pop}{/k k 1 add def pop pop pop pop pop pop}{/k k 1 add def }pathforall k array /k 0 def {{moveto} 3 array astore 1 index k 3 -1 roll put /k k 1 add def} {{lineto} 3 array astore 1 index k 3 -1 roll put /k k 1 add def} {{curveto} 7 array astore 1 index k 3 -1 roll put /k k 1 add def} {{closepath} 1 array astore 1 index k 3 -1 roll put /k k 1 add def} pathforall }bind def /MakeFlatPathArray { /k 0 def {/k k 1 add def pop pop}{/k k 1 add def pop pop}{pop pop pop pop pop pop}{}pathforall k array/k 0 def {{moveto} 3 array astore 1 index k 3 -1 roll put /k k 1 add def} {{lineto} 3 array astore 1 index k 3 -1 roll put /k k 1 add def} { pop pop pop pop pop pop} {} pathforall }bind def /FractionalLine {2 index sub.00001 mulexch3 index sub.00001 mul4 -1 roll add3 1 rolladd} bind def/calcLineLength { exch 4 -1 roll sub dup mul 3 1 roll exch sub dup mul add sqrt} bind def/InitTotalLineLength { /oldY exch def /oldX exch def theDash aload pop currentLineLength add setdash} bind def/AccumeLineLength { 3 copy pop 2 copy oldX oldY 4 2 roll calcLineLength /segmentLength exch def /currentLineLength currentLineLength segmentLength add def /oldY exch def /oldX exch def} bind def/DecumeLastLineLength { /currentLineLength currentLineLength segmentLength sub def} bind def/DrawFlattendSegment { /pointCount 2 def dup 0 lt { pop 0 } if fpc 3 1 roll 2 index 1 index gt { 2 copy get dup length dup 3 eq { pop dup 0 get exch 1 get 2 copy InitTotalLineLength m } { } ifelse } { pop 1 index } ifelse dup 1 add 3 index exch sub dup 10 gt { pop 10} if { 1 add 2 copy get aload pop AccumeLineLength exec } repeat 3 1 roll pop pop DecumeLastLineLength} bind def/IncFPC { fpc add /fpc exch def} bind def/DrawFlatPathArray { fpc 0 { dup 2 index 1 sub lt { flatPathArray exch newpath 1 sub DrawFlattendSegment gsave pathSegProc grestore newpath } { pop pop exit } ifelse } loop} bind def/RecordFirstSubSegment { closepathArray 0 pathArray 0 get put closepathArray 1 pathArray 0 get aload pop pop pathArray 1 get dup length 3 eq { aload pop pop } { newpath 0 0 moveto aload pop exec /segmentArray flattenpath MakeFlatPathArray def segmentArray 1 get aload pop pop } ifelse FractionalLine {lineto} 3 array astore put} bind def/AppendClosePath { closepathArray 0 get 2 {lineto} put flatPathArray fpc closepathArray 0 get put 1 IncFPC flatPathArray fpc closepathArray 1 get put 1 IncFPC} bind def/RecordCurrentDash { /theDash currentdash 2 array astore def /currentLineLength 0 def} bind def/PatternStroke { 0 setlinecap RecordCurrentDash /saveFlat currentflat def .5 setflat /pathArray MakePathArray def /closepathArray 2 array def /pathLength pathArray length def /flatPathArray 513 array def /currentLineLength 0 def /fpc 0 def pathArray pathLength 1 sub get length 1 eq { /usingClosepath true def RecordFirstSubSegment /pathLength pathLength 1 sub def } { /usingClosepath false def } ifelse 0 1 pathLength 1 sub { pathArray exch get dup length 3 eq { fpc 1 add 512 ge { DrawFlatPathArray fpc 2 ge { flatPathArray flatPathArray fpc 2 sub get 0 put flatPathArray flatPathArray fpc 1 sub get 1 put /fpc 2 def }{ /fpc 0 def } ifelse } if flatPathArray exch fpc exch put 1 IncFPC } { dup length 7 eq { newpath /nToStrip 0 def fpc 1 gt { flatPathArray fpc 2 sub get aload pop pop m flatPathArray fpc 1 sub get aload pop exec /nToStrip 2 def } { fpc 1 eq { flatPathArray fpc 1 sub get aload pop exec /nToStrip 2 def } if } ifelse aload pop exec /segmentArray flattenpath MakeFlatPathArray def /segmentArray nToStrip segmentArray StripFromFront def segmentArray length fpc add 512 lt { flatPathArray fpc segmentArray putinterval segmentArray length IncFPC } { DrawFlatPathArray fpc 1 gt { flatPathArray flatPathArray fpc 2 sub get 0 exch put flatPathArray flatPathArray fpc 1 sub get 1 exch put /fpc 2 def }{ /fpc 0 def } ifelse segmentArray length 512 lt { flatPathArray fpc segmentArray putinterval segmentArray length IncFPC } { segmentArray length /exitLoop false def 0 { 2 copy sub dup 500 gt { pop 500 } { /exitLoop true def } ifelse segmentArray 2 index 2 index getinterval flatPathArray fpc 3 -1 roll putinterval dup IncFPC add exitLoop { exit } { DrawFlatPathArray fpc 1 gt { flatPathArray flatPathArray fpc 2 sub get 0 exch put flatPathArray flatPathArray fpc 1 sub get 1 exch put /fpc 2 def }{ /fpc 0 def } ifelse } ifelse } loop } ifelse } ifelse } if } ifelse } for fpc 0 gt { usingClosepath { AppendClosePath } if DrawFlatPathArray } if saveFlat setflat} bind def%%EndProloginitmsaverestore/tctm matrix currentmatrix deftctm RoundMatrix setmatrix/patternMatrix mstore def10 setmiterlimit2 setlinecapnewpath%%tLayer%%@BeginTextsave%%IncludeFont: Times-Roman[ 39/quotesingle 96/grave 128/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/.notdef/AE/Oslash/.notdef/plusminus/.notdef/.notdef/yen/mu/.notdef/.notdef/.notdef/.notdef/.notdef/ordfeminine/ordmasculine/.notdef/ae/oslash/questiondown/exclamdown/logicalnot/.notdef/florin/.notdef/.notdef/guillemotleft/guillemotright/ellipsis/.notdef/Agrave/Atilde/Otilde/OE/oe/endash/emdash/quotedblleft/quotedblright/quoteleft/quoteright/divide/.notdef/ydieresis/Ydieresis/fraction/currency/guilsinglleft/guilsinglright/fi/fl/daggerdbl/periodcentered/quotesinglbase/quotedblbase/perthousand/Acircumflex/Ecircumflex/Aacute/Edieresis/Egrave/Iacute/Icircumflex/Idieresis/Igrave/Oacute/Ocircumflex/.notdef/Ograve/Uacute/Ucircumflex/Ugrave/dotlessi/circumflex/tilde/macron/breve/dotaccent/ring/cedilla/hungarumlaut/ogonek/caron]StandardEncoding Re-encode /_Times-Roman /Times-Roman EncodeFont%@BeginRect/RT {SR} def/LC {} def/SS {pop} def/PF {} def/PC {} def0.000 0 171.000 30.000 0.000 0.000 40.000 42.708 rect%@EndRectgsave51.354 191.000 T translate
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -