intro-simple-gp.ps

其中提到遺傳學的程式碼與應用提供給次淚相向的研究者參考下載

%!PS-Adobe-2.0
%%Creator: dvips 5.479 Copyright 1986-92 Radical Eye Software
%%Title: intro-simple-gp.dvi
%%Pages: 14 1
%%BoundingBox: 0 0 596 842
%%EndComments
%DVIPSCommandLine: dvips intro-simple-gp
%%BeginProcSet: tex.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 /@rigin{isls{[0 -1 1 0 0 0]
concat}if 72 Resolution div 72 VResolution div neg scale isls{Resolution hsize
-72 div mul 0 TR}if Resolution VResolution vsize -72 div 1 add mul TR matrix
currentmatrix dup dup 4 get round 4 exch put dup dup 5 get round 5 exch put
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 add]{ch-image}imagemask restore}B /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}N /eop{SI restore showpage userdict /eop-hook known{eop-hook}if}N
/@start{userdict /start-hook known{start-hook}if /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
statusdict begin /product where{pop product dup length 7 ge{0 7 getinterval
(Display)eq}{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 /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: 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 false 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 300 300 @start /Fa 1 121
df<3EF867B8E738C7380F000E000E00EE18FE38DE70F7E00D0B7E8A11>120
D E /Fb 2 121 df<07FFF807FFFE00F01F00F00F01F00701F00701E00F01E00F03E01E03E07C
03FFF003FFF807C07C07C03C07801E07801E0F801E0F803C0F003C0F00781F01F0FFFFE0FFFF80
18177F961B>66 D<1F9E003FFF0071F78061EF80E1CF8001C70001C00003C00073C000F38300F3
8700E78E00FFFE007CF800110E7F8D14>120 D E /Fc 41 122 df<00003FE00000FFF80001E0
380003C0780007807800078070000F8000000F0000000F0000000F0000000F0000001F000001FF
FFE001FFFFE0001E03C0001E03C0003E03C0003C07C0003C0780003C0780003C0780007C0F8000
780F0000780F0000780F0000781F3800F81E3000F01E3000F01E7000F01E6000F00FE001F007C0
01E0000001E0000001E0000001C0000073C000007B800000FF8000007F0000007E0000001D2982
9F1A>12 D<00003FC0FF800001FFE7FFE00003E1EF80E0000381FE01E0000781FE01E00007803C
01C0000F003C0000000F003C0000000F007C0000000F00780000001F00780000001E0078000001
FFFFFFFF8003FFFFFFFF80001E00F80F00003E00F00F00003C00F00F00003C00F01F00003C00F0
1E00003C01F01E00003C01E01E00007C01E03E00007801E03C00007801E03C00007803E03C0000
7803C07CE000F803C078C000F003C078C000F003C079C000F007C0798000F007803F8001E00780
1F0001E00780000001E00700000001E00F00000001C00F00000073CE0E0000007B8F1E000000FF
9F3C0000007F0FF80000007E07E00000002B29829F28>14 D<000180000380000F00001E00001C
0000380000700000F00000E00001E00003C00003C0000780000780000F00000F00000E00001E00
001E00001C00003C00003C00003C0000380000780000780000780000700000700000700000F000
00F00000F00000F00000F00000F00000F000007000007000007000007000003800003800003800
001C00000C0000112E7AA113>40 D<001C00000C00000E00000700000700000700000380000380
000380000380000380000380000380000380000380000380000780000780000780000780000700
000F00000F00000F00000E00001E00001E00001E00003C00003C0000380000780000780000F000
00F00001E00001E00003C0000380000780000F00001E00001C0000380000700000E00000112E80
A113>I<7FF0FFF0FFF0FFE00C047D8B10>45 D<0F0F1F1F0E0000000000000000000070F8F8F0
F008147B930E>58 D<0000060000000E0000000E0000001F0000001F0000003F0000003F000000
6F000000CF000000CF0000018F0000018F0000030F0000030F0000060F00000C0F00000C0F0000
180F0000180F8000300780003FFF80007FFF8000E0078000C00780018007800180078003000780
070007800F800FC07FE07FF8FFC07FF81D1F7E9E22>65 D<0001FE06000FFF8C003F83DC007E00
FC00F8007C03F0007803E0003807C000380F8000381F0000301F0000303E0000303E0000007E00
00007C0000007C0000007C000000FC000000F8000000F8000000F80001C0F8000180780001807C
0003807C0007003C000E003E001E001F0038000FC0F00003FFC00000FF00001F1F7A9E21>67
D<01FFFF8001FFFFE0001E01F0001E0078001E003C003E003C003C001E003C001E003C001E007C
001E0078001E0078001E0078001E00F8003E00F0003E00F0003E00F0003E01F0007C01E0007C01
E0007C01E0007803E000F003C000F003C001E003C003C007C007C007800F8007801E000F807C00
FFFFF000FFFFC0001F1F7D9E22>I<01FFFFFC01FFFFFC001E00F8001E0038001E0038003E0018
003C0018003C0038003C0030007C0C3000780C3000780C0000781C0000F8380000FFF80000FFF8
0000F0780001F0300001E0300001E0300001E0300003E0000003C0000003C0000003C0000007C0
000007800000078000000F800000FFFC0000FFFC00001E1F7D9E1E>70 D<0001FC0C000FFF1800
3F87B8007C01F801F800F803F000F007C0007007C000700F8000701F0000601F0000603E000060
3E0000007E0000007C0000007C0000007C000000FC000000F800FFF0F800FFF0F8000F80F8000F
8078000F0078000F007C001F003C001F003E001E001F003E000FC0FE0007FFCC0000FF04001E1F
7A9E23>I<01FFF001FFF0001F00001E00001E00003E00003C00003C00003C00007C0000780000
780000780000F80000F00000F00000F00001F00001E00001E00001E00003E00003C00003C00003
C00007C0000780000780000F8000FFF800FFF800141F7D9E12>73 D<01FFF80001FFF800001F00
00001E0000001E0000003E0000003C0000003C0000003C0000007C000000780000007800000078
000000F8000000F0000000F0000000F0000001F0000001E0000001E0018001E0038003E0030003
C0030003C0070003C0060007C00E0007801E0007803C000F80FC00FFFFFC00FFFFF800191F7D9E
1D>76 D<01FF0000FFC001FF0000FFC0001F0001FC00001F0001F800001F0003F800003F0003F8
0000370006F0000037000CF0000037000DF00000770019F00000638019E00000638031E0000063
8033E00000E38063E00000C380C3C00000C380C3C00000C38187C00001C38187C0000183830780
000183830780000183860F800003838C0F800003038C0F00000303980F00000301D81F00000701
F01F00000601F01E00000E01E01E00001F01C03E0000FFE1C3FFE000FFE183FFE0002A1F7D9E29
>I<01FF00FFE001FF00FFE0001F001F00001F800C00001F801C00003F801C000037C018000033
C018000033C038000073E038000061E030000061E030000061F0700000E0F0700000C0F0600000
C0F8600000C078E00001C078E000018078C00001807CC00001803DC00003803DC00003003F8000
03001F800003001F800007001F800006000F00000E000F00001F000F0000FFE0070000FFE00600
00231F7D9E22>I<0001FC00000FFF00001E07C0007803E000F001E001E000F003C000F0078000
780F8000781F0000781F0000783E0000783E0000783C0000F87C0000F87C0000F87C0000F8F800
01F0F80001F0F80001E0F80003E0F80003C0780007C078000F807C000F003C001E003E003C001F
00F8000F83E00007FF800000FE00001D1F7A9E23>I<01FFFF8001FFFFE0001E01F0001E007800
3E0078003E007C003C007C003C007C007C007C007C00F8007800F8007800F000F801E000F803E0
00F00F8000FFFF0001FFF80001F0000001E0000001E0000003E0000003E0000003C0000003C000
0007C0000007C0000007800000078000000F800000FFF80000FFF800001E1F7D9E1F>I<01FFFF
0001FFFFC0001E03E0001E00F0001E00F8003E00F8003C00F8003C00F8003C00F8007C01F00078
01F0007803E0007807C000F81F0000FFFE0000FFF80000F0780001F03C0001E01C0001E01C0001
E03C0003E03C0003C03C0003C03C0003C07C0007C07C0007807C1807807E380F803E78FFF83FF0
FFF80FC01D1F7D9E21>82 D<0007F0C0003FFD80007C3F8000F00F8001E0078001C00700038003
0003800300038003000780000007C0000003E0000003FC000003FF800001FFE00000FFF000001F
F8000003F8000000F8000000780000003800000038003000380030003800700078007000700078