art3.ps

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

%!PS-Adobe-2.0
%%Creator: dvipsk 5.58b Copyright 1986, 1994 Radical Eye Software
%%Title: art2.dvi
%%Pages: 24
%%PageOrder: Ascend
%%BoundingBox: 0 0 612 792
%%EndComments
%DVIPSCommandLine: dvips art2
%DVIPSParameters: dpi=300, compressed, comments removed
%DVIPSSource:  TeX output 2000.06.01:1157
%%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: 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 40258431 52099146 1000 300 300 (art2.dvi)
@start /Fa 1 84 df<EB3E10EBC1A0380100E0000213601206481340A2000E1300120F
EA07E013FCEA01FEEA003FEB07801303A2EA200138400300A2EA60061304EAD818EA87E0
14177E9615>83 D E /Fb 5 116 df<EA0720EA08E01218EA306013C01260A3EAC18013
88A21243EA6590EA38E00D0E7C8D12>97 D<EA03C0EA0C60EA18E0123013005AA3124012
C0EA4020EA6040EA2180EA1E000B0E7C8D10>99 D<1203120712061200A61238124CA312
8C1218A3123012321262A21224123808177D960B>105 D<123E120CA41218A41230A412
60A412C012D0A4126007177C9609>108 D<EA0780EA0C40EA18E0A2EA3800121EEA1F80
EA07C01200126012E0EAC180EAC300123E0B0E7D8D0F>115 D E
/Fc 1 110 df<EA73C7389C6880389830C0383861801230A2EB63103860C320EBC1C014
097D8819>109 D E /Fd 1 58 df<121FEA3180EA60C0EAC0401360A3EA40E01221EA1E
6012001340EA60C01380EA4300123E0B107F8F0F>57 D E /Fe 2
27 df<001F1304EA3FC0EA7FE038E0F00C38C03C1C38801FF8EB0FF0EB03E0C8FC001F13
04EA3FC0EA7FE038E0F00C38C03C1C38801FF8EB0FF0EB03E016117E901B>25
D<3801FFF01207000EC7FC12185A5AA35AA61260A37E7E120E3807FFF0120114167D921B
>I E /Ff 9 103 df<1304130EA213161326A2134613871383EA010348B4FCEA02031204
1208EB0180121038FC0FE013117E9017>65 D<380FFFC0EA030014401206A21304140048
5AEA0FF8EA0C081440381810801300EB01005B485AEAFFFE12117D9016>69
D<EBFC2038038360380C00E04813405A1220006013005AA2EB1FE0EB0180EB0300A21260
1220EA180EEA07F213117D9018>71 D<EA0720EA18E0EA30601260A2EAC0C0A213C81241
EA62D0EA3C600D0B7E8A11>97 D<12781218A25AA31237EA78C0EA60401360A2EAC0C0A3
EA4180EA6300123C0B117E900E>I<EA0780EA1840EA30C0EA6000A25AA3EA4020EA60C0
EA1F000B0B7E8A0E>I<13781318A21330A31207EA18E0EA30601260A2EAC0C0A213C812
41EA62D0EA3C600D117E9010>I<EA0780EA184012301260EA7F80EAC000A3EA4020EA20
C0EA1F000B0B7E8A0F>I<13E0EA01B013A0EA0300A3EA1FE0EA03001206A65AA4120812
5812D012600C167D900F>I E /Fg 18 118 df<124012E012601220A31240A212800309
7D820A>59 D<5B5B5B1480130B131B13131323A21343138314C0EA0101EA03FFEA020112
04120C1208001813E038FE07F815147F9319>65 D<3807FFFC3800E01C3801C00CA31408
EA03811400138313FFEA0702A21408EB0010120EA214201460381C01E0B512C016147F93
18>69 D<EB3F84EBE04C38038038380600185A5A00381310481300A35AEB0FF8EB00E0A2
386001C0A21230EA1803380C0580EA03F816147E931A>71 D<3807FFE03800E0703801C0
18141CA338038038A21470EB81C03807FF0090C7FCA3120EA45AB47E16147F9315>80
D<EA07B0EA0C701210EA30601260A3EAC0C013C8A21241EA62D0EA3C700D0D7E8C12>97
D<123C120C5AA45AEA3380EA3C60EA3020EA6030A4EAC060A2EA40C0EA6080EA2300121E
0C147F930F>I<EA03C0EA0C20EA1870EA30E0EA6000A35AA2EA4010EA6020EA30C0EA1F
000C0D7F8C0F>I<133C130C1318A41330EA07B0EA0C701210EA30601260A3EAC0C013C8
A21241EA62D0EA3C700E147E9311>I<EA0780EA1840EA3020EA604012C0EAFF80EAC000
5AA2EAC0201340EA6180EA3E000B0D7E8C10>I<1318136C137C136C13C0A3EA07F8EA00
C0EA0180A5EA0300A512021206A2126612E45A12700E1A7F9310>I<1206120712061200
A41238124CA2128C12981218A212301232A21264A2123808147F930C>105
D<1330133813301300A4EA01C0EA0260EA0430136012081200A213C0A4EA0180A4EA6300
12E312C612780D1A81930E>I<3830F87C38590C86384E0D06EA9C0EEA980C1218A24848
5A15801418A23960301900140E190D7F8C1D>109 D<EA30F8EA590C124E129C12981218
A2EA301813191331A2EA6032131C100D7F8C15>I<EA0C78EA168CEA1304EA2606A21206
A2EA0C0CA213081310EA1A20EA19C0EA1800A25AA312FC0F13818C11>112
D<1204120CA35AEAFF80EA1800A25AA45A1261A212621264123809127F910D>116
D<EA380C124CA2EA8C1812981218A2EA30301332A21372EA18B4EA0F1C0F0D7F8C14>I
E /Fh 18 107 df<B61280A219027D8A20>0 D<0040132000C01360006013C038300180
38180300EA0C066C5A6C5AEA01B0EA00E0A2EA01B0EA0318EA060C487E487E3830018038
6000C04813600040132013147A9320>2 D<EA03C0EA0FF0EA1FF8EA3FFCEA7FFEA2B5FC
A4EA7FFEA2EA3FFCEA1FF8EA0FF0EA03C010107E9115>15 D<D807C01320EA1FE0EA3FF8
D8783C1360D8E01F13E039C00783C0398003FF8001001300147CC9FCD807C01320EA1FE0
EA3FF8D8783C1360D8E01F13E039C00783C0398003FF8001001300147C1B137E9320>25
D<7E7EA21260A37E7E120E6C7EEA01E0EA007F90381FFF80A2017FC7FCEA01E0EA078000
0EC8FC12185A5AA25AA319197D9520>31 D<12025AA25A5A5AB712F0A20020C9FC7E7E7E
A27E240E7D902A>I<150481A281ED00801640B712F8A2C912401680ED01001502A25D25
0E7E902A>I<1403A26E7EA26E7E1560007FB512F0B67EC8120E81ED01E0ED0078ED01E0
ED0380ED0600151CB612F86C5CC812605D4A5AA24AC7FCA225187E952A>41
D<EB7FF8EA01FF38078000000EC7FC12185AA25AA25AA3B512F8A200C0C7FCA31260A27E
A27E120E6C7E3801FFF8EA007F151A7D961C>50 D<1460A214C0A2EB0180A3EB0300A213
06A25BA25BA35BA25BA25BA2485AA248C7FCA31206A25AA25AA25AA35AA25A124013287A
9D00>54 D<49B5FC130F903838E00E0141130CD801C11300380381C01301EA060312005C
A2130791C7FCA290380FFFC01500010EC7FC5BA2133C1338A25BA2EA30E0EA70C0EAFD80
B4C8FC123C201D7F9B1E>70 D<EB01FCEB07FF9038083F80EB300FEB700713E0EC060000
01130491C7FC7F7F6C7E137E6D7EEB1FE0EB07F0EB01F86D7E0008137C0038133C5AA200
F01338A26C5B1460007C1380D87F03C7FCEA3FFCEA0FF0191E7F9C19>83