wnet.ps

新的神经网络算法源程序

%!PS-Adobe-2.0
%%Creator: dvips 5.46 Copyright 1986-91 Radical Eye Software
%%Title: w-n.dvi
%%Pages: 32 1
%%BoundingBox: 0 0 596 843
%%EndComments
%%BeginProcSet: texc.pro
/TeXDict 200 dict def TeXDict begin /N /def load def /B{bind def}N /S /exch
load def /X{S N}B /TR /translate load N /isls false N /vsize 10 N /@rigin{
isls{[0 1 -1 0 0 0]concat}if 72 Resolution div 72 VResolution div neg scale
Resolution VResolution vsize neg mul TR matrix currentmatrix dup dup 4 get
round 4 exch put dup dup 5 get round 5 exch put setmatrix}N /@letter{/vsize 10
N}B /@landscape{/isls true N /vsize -1 N}B /@a4{/vsize 10.6929133858 N}B /@a3{
/vsize 15.5531 N}B /@ledger{/vsize 16 N}B /@legal{/vsize 13 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]/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}bind{adv 1 chg nd}bind{1 add chg}bind{1 add chg nd}bind{adv lsh}bind{
adv lsh nd}bind{adv rsh}bind{adv rsh nd}bind{1 add adv}bind{/rc X nd}bind{1
add set}bind{1 add clr}bind{adv 2 chg}bind{adv 2 chg nd}bind{pop nd}bind]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}N /eop{clear 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}N /p /show load 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 0 7 getinterval(Display)eq}{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{clear 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 false N /BBcalc false N
/p 3 def}B /@scaleunit 100 N /@hscale{@scaleunit div /hsc X}B /@vscale{
@scaleunit div /vsc X}B /@hsize{/hs X /CLIP true N}B /@vsize{/vs X /CLIP true
N}B /@hoffset{/ho X}B /@voffset{/vo X}B /@angle{/ang X}B /@rwi{10 div /rwi X}
B /@llx{/llx X}B /@lly{/lly X}B /@urx{/urx X}B /@ury{/ury X /BBcalc true N}B
/magscale true def end /@MacSetUp{userdict /md known{userdict /md get type
/dicttype eq{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 true def 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}N /psfts{S 65536 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}N
/@setspecial{CLIP{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 BBcalc{rwi urx llx
sub div dup scale llx neg lly neg TR}if /showpage{}N /erasepage{}N /copypage{}
N newpath}N /@endspecial{grestore clear 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 1000 300 300 @start /Fa 5 117 df<B46CEB3FE0000FEC3E00A2D80BC013
5EA2D809E0139EA33908F0011EA2EB7802A3EB3C04A2EB1E08A3EB0F10A2EB07A0A3EB03C0A2EB
0180121C3AFF8181FFE0231C7D9B29>77 D<13201370A313B8A3EA011CA3EA020EA2487EA2EA07
FF38080380A3381801C0EA380338FE0FF815157F9419>97 D<EAFFFCEA1C07EB038014C0A41480
1307381FFF00A2381C038014C0EB01E0A414C01303EB078038FFFE0013157F9418>I<EAFFC000
1CC7FCAC1480A3130114005B5BB5FC11157F9415>108 D<387FFFF03860703000401310A20080
1308A300001300ADEA07FF15157F9419>116 D E /Fb 1 1 df<B612C0A21A027C8B23>0
D E /Fc 1 50 df<12035AB4FC1207B1EA7FF00C157E9412>49 D E /Fd
1 116 df<EA07C0EA0C20EA1870A2EA3800121EEA0FC0EA03E0EA0060126012E0EAC0C0EAC180
EA3F000C0E7E8D10>115 D E /Fe 6 122 df<380FFFFC5A5A38608200EAC08412801201130413
0C1203A212021206A2120EEA0C0E121CA2EA380FEA180616147E931A>25
D<EB1FFFEB00F814F0A3EB01E0A4EB03C0A4EB0780A4EB0F00A4131EA212301278EAF83CA2485A
EA4070EA61E0001FC7FC181F7D9E19>74 D<9039FF803FF0010FEB0780ED0200EB0BC0A201135B
EB11E0A3903820F008A214F8147801405B143CA3496C5AA3140FD801005BA2EC07C0A200025C14
03A21206000F6DC7FCEAFFE0241F7E9E25>78 D<000FB512FC391E03C038001814180010140812
20EB078012601240A239800F001000001400A3131EA45BA45BA45BA41201387FFFC01E1F7F9E1B
>84 D<13C013E0EA01C0A4EA0380A2EAFFF8EA0380EA0700A4120EA45AA31310EA3820A31340EA
1880EA0F000D1C7F9B10>116 D<000F136038118070002113E013C01241EA4380388381C0EA07
01A3380E0380A4EB0700120CA2EA0E0FEA061EEA03EEEA000EA25BEA78181338EA7070EA6060EA
21C0001FC7FC141D7E9316>121 D E /Ff 1 46 df<7E12E012FCB4FC13C013F813FF14E014FE
A214E0140013F813C090C7FC12FC12E0128017126F8800>45 D E /Fg 4
4 df<12F812FE7E13C0120FEA03E0A2EA01F0A21200A30C0C888300>0 D<132013F0A31201A2EA
03E0A2EA0FC0EAFF8013005A12F80C0D888C00>I<122012F0A37EA2127C127E7EEA1FF0EA0FF8
1207EA01F00D0D808C00>I<EA01F0EA07F8120FEA1FF0EA3F00127E127C5AA25AA30D0C808300>
I E /Fh 1 51 df<387FFFFCB512FE38C00006B3B512FEA217177C991F>50
D E /Fi 1 88 df<B53B03FFF803FFC013FE270FE0003FC7EA7C006C48013E1438033F14306F14
2060A24B5CA2035F49C7FC1702159F6D5D0003EB011F02025CA202046D5A030F5B14085F141002
205C1681024091C8FC1682EBF080D801F11484140001F2148816D001F4130716E013F8495CA249
5C93C9FC5B000014065B3A297DA838>87 D E /Fj 3 51 df<13C0A8B51280A23800C000A81112
7E8D15>43 D<121812F81218AA12FF080D7D8C0E>49 D<123EEA4180EA80C012C01200A2EA0180
EA03001204EA08401230EA7F8012FF0A0D7E8C0E>I E /Fk 9 121 df<EA0380EA0C6012181210
1230A213C0EA7180EA6F001260A25AA20B0D7F880F>26 D<EA1FC0EA0600A35AA45A1304130C13
08EA3038EAFFF00E0E7E8D14>76 D<001FEB0F800007EB1C003805802C144C0009135814983808
C11813C200105B13C41368137000305B38F861F8190E7E8D1B>I<EA03C01200A3EA0180121D12
331261EAC300A31320EA4740EA3B800B0E7E8D0F>100 D<1208A21200A41270129812B01230A2
1260126412681270060F7D8E0B>105 D<12781218A35A13C0EA3360EA3440EA7800127E126313
20EAC340EAC1800B0E7E8D10>107 D<12F01230A31260A412C0A312D0A212E0040E7E8D0A>I<EA
39C0EA4E60124C1218A313C0EA3880EA37001230A25A12F80B0D7E880F>112
D<EA1CF0EA23181310EA0600A3EA4610EACE20EA73C00D097F8810>120
D E /Fl 2 108 df<EAFFFEA20F027D8516>0 D<12C3B3A408167D8F0F>107
D E /Fm 6 88 df<B512C0A212027D871A>0 D<EAC003EAE007EA700EEA381CEA1C38EA0E70EA
07E0EA03C0A2EA07E0EA0E70EA1C38EA381CEA700EEAE007EAC00310107C8E1A>2
D<14C01303EB0F00131C1378EA01E0EA0780000EC7FC123C12F0A2123C120E6C7EEA01E0EA0078
131C130FEB03C013001400A5B512C0A2121B7D931A>20 D<000F131E393BC06180396060804038
403100D8801A1320130EA3130B3940118040903820C0C03930C07B80390F001E001B0D7E8C21>
49 D<EA03FC120FEA1C005A5A126012E05AA2EAFFFCA2EAC000A27E126012707E7EEA0FFC1203
0E147D9016>I<0070EB600C00F8EBE00EEA7C01003CEBF006D81C031302381E02780106130639
0E0C3804150C9038183C0801301318EC1C30136001C01360000FEB1EC0EB801F9038000F80000E
1400140E000C130C000813081F157F9321>87 D E /Fn 32 123 df<1238127C12FEA3127C1238
07077C8610>46 D<13181378EA01F812FFA21201B3A7387FFFE0A213207C9F1C>49
D<EA03FCEA0FFF383C1FC0387007E0007C13F0EAFE0314F8A21301127CEA3803120014F0A2EB07
E014C0EB0F80EB1F00133E13385BEBE018EA01C0EA0380EA0700000E1338380FFFF05A5A5AB5FC
A215207D9F1C>I<13FE3807FFC0380F07E0381E03F0123FEB81F8A3EA1F0314F0120014E0EB07
C0EB1F803801FE007F380007C0EB01F014F8EB00FCA2003C13FE127EB4FCA314FCEA7E01007813
F8381E07F0380FFFC03801FE0017207E9F1C>I<13FE3803FFC0380703E0380E00F05A1478123C
123E123F1380EBE0F0381FF9E0EBFFC06C13806C13C06C13E04813F0381E7FF8383C1FFCEA7807
EB01FEEAF000143E141EA2141C7E007813387E381F01F0380FFFC00001130017207E9F1C>56
D<1470A214F8A3497EA2497EA3EB06FF80010E7FEB0C3FA201187F141F01387FEB300FA201607F
140701E07F90B5FCA239018001FCA200038090C7FCA20006147FA23AFFE00FFFF8A225227EA12A
>65 D<EB07FC90383FFF809038FC07E03903F001F848486C7E4848137E48487FA248C7EA1F80A2
4815C0007E140FA200FE15E0A9007E15C0007F141FA26C15806D133F001F15006C6C137E6C6C5B
6C6C485A3900FC07E090383FFF80D907FCC7FC23227DA12A>79 D<007FB61280A2397E03F80F00
781407007014030060140100E015C0A200C01400A400001500B3A20003B512F8A222227EA127>
84 D<B53A0FFFF01FFEA2260FF00090C712E000076E14C0A26C6C9138800180153F6D15030001
03C01300A26C6C90387FE006156F7F6D9038C7F00CA20280EBF81C90263F81831318A2D91FC36D
5A150114E3903A0FE600FE60A202F6EBFFE0D907FC6D5AA201035D4A133FA26D486DC7FCA20100