revddfilt.ps

Kalman filter that can be simulated under windws

%!PS-Adobe-2.0
%%Creator: dvipsk 5.58f Copyright 1986, 1994 Radical Eye Software
%%Title: revddfilt.dvi
%%Pages: 33
%%PageOrder: Ascend
%%BoundingBox: 0 0 596 842
%%EndComments
%DVIPSCommandLine: dvips revddfilt.dvi
%DVIPSParameters: dpi=300, compressed, comments removed
%DVIPSSource:  TeX output 2000.04.07:1856
%%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 39158280 55380996 1000 300 300 (revddfilt.dvi)
@start /Fa 1 50 df<120C121C12EC120CAFEAFFC00A137D9211>49
D E /Fb 3 95 df<1380EA0100120212065AA25AA25AA35AA412E0AC1260A47EA37EA27E
A27E12027EEA0080092A7C9E10>40 D<7E12407E12307EA27EA27EA37EA41380AC1300A4
1206A35AA25AA25A12205A5A092A7E9E10>I<120C12121221EA4080EA80400A057B9B15>
94 D E /Fc 1 114 df<16021606A2160CA31618A31630A31660A316C0A3ED0180A3ED03
00A31506A35DA35DA35DA35DA21208001C5C123C127C00DC495A128E120E4AC7FC7EA214
06EA0380A25CA2EA01C05CA2EA00E05CA3EB7060A36D5AA3EB1D80A3011FC8FC7FA2130E
1306A2274B7C812A>113 D E /Fd 38 122 df<EA0404EA0808EA1010EA2020A2EA4040
A2EA8080EAE0E0EAF0F0A2EAE0E00E0C7A9C0F>16 D<EA1818EA3C3CA2EA3838EA0808A2
EA1010A2EA2020A2EA4040EA80800E0C7A9C0F>I<14FE90380301801306EB0C03EB1C01
91C7FC13181338A43803FFFE3800700EA35CA213E0A25CA3EA01C01472A4380380341418
91C7FC90C8FCA25A12C612E65A12781925819C17>28 D<9138FE0FF090390307380C0106
137090390E06601C90391C00E00CEDC0001401A21338A24A5A0003B612F03A0038038070
1370A291380700E0A313E0ED01C0A2140EA2D801C0EB0388A3021C139015010180EB00E0
000315005C13001430EAC73038E6386038CC30C0D8781FC8FC2625819C25>30
D<13031306130813181330136013C0A2EA0180EA0300A21206A25AA2121C1218A2123812
30A21270A21260A412E0A51260A51220123012107EA2102A7B9E11>40
D<1310A21308130C13041306A51307A51306A4130EA2130CA2131C1318A213381330A213
60A213C0A2EA0180EA0300A212065A5A121012605A102A809E11>I<1218123812781238
1208A21210A212201240A21280050C7D830D>44 D<EAFFC0A30A037D890F>I<12301278
12F0126005047C830D>I<133EEBE180380181C0EA03005A1206000E13E0120C001C13C0
A2EA18011238A338700380A43860070012E01306130EA2130C5BEA60385BEA30C0001FC7
FC131D7C9B15>48 D<133EEB4180EB80C0EA0100000213E0EA0440A21208A3381081C0A2
38110380000E1300EA00065B5B136013800003C7FC12044813404813805AEB0100EA7F07
EA43FEEA81FCEA8078131D7D9B15>50 D<EB80603801FFC01480EBFE0090C7FC1202A45A
13F8EA050CEA0606120C1208120013071306130EA21270130CEAE01CEA80181338EA4030
5BEA21C0001FC7FC131D7C9B15>53 D<1418A21438A21478A214B8EB0138A2EB023C141C
1304130C13081310A21320A2EB7FFCEBC01C1380EA0100141E0002130EA25A120C001C13
1EB4EBFFC01A1D7E9C1F>65 D<48B5FC39003C03C090383800E0A21570A24913781538A2
15785BA4484813F0A315E03803800115C0140315803907000700140E5C5C000E13E0B512
801D1C7E9B1F>68 D<D801FEEB01FED8003E14E0012EEB03C01505A21509014EEB0B8015
13152313470187EB4700A21587EC0107D80107130E14021404A20002495AEB0388149014
A000045C14C0A2000C1380001CEB007839FF8307FF271C7E9B25>77
D<3801FFFE39003C078090383801C015E01400A2EB7001A3EC03C001E01380EC0700141C
EBFFE03801C03080141CA2EA0380A43807003C1520A348144039FFE01E80C7EA0F001B1D
7E9B1E>82 D<EB0F84EB304CEB403CEB8018EA01005AA200061310A214001207A2EA03E0
13FC6CB4FC38007F80EB07C01301A21300A21220A238600180A2EB03001302EAF004EACC
18EA83E0161E7D9C17>I<EA01E3EA0717EA0C0F1218EA380E12301270A2EAE01CA41339
A3EA6079EA319AEA1E0C10127C9115>97 D<123F1207A2120EA45AA4EA39E0EA3A18EA3C
0C12381270130EA3EAE01CA31318133813301360EA60C0EA3180EA1E000F1D7C9C13>I<
13F8EA0304120EEA1C0EEA181CEA30001270A25AA51304EA60081310EA3060EA0F800F12
7C9113>I<EB07E01300A2EB01C0A4EB0380A43801E700EA0717EA0C0F1218EA380E1230
1270A2485AA41339A3EA6079EA319AEA1E0C131D7C9C15>I<13F8EA0704120CEA1802EA
38041230EA7008EA7FF0EAE000A5EA60041308EA30101360EA0F800F127C9113>I<EB03
C0EB0670130CEB1C601400A25BA53803FF8038007000A55BA5485AA5485AA390C7FCA25A
12C612E65A12781425819C0D>I<EB78C0EA01C5EA03031206000E1380120C121CA23838
0700A4130EA3EA181EEA0C7CEA079CEA001CA25BA2EAC030EAE070EAC1C0007FC7FC121A
7E9113>I<EA0FC01201A2485AA448C7FCA4EA0E3E13C3380F0380120E121E121CA33838
0700A3130E00701340A2131C1480EAE00C38600700121D7E9C15>I<EA01801203EA0100
C7FCA7121C12261247A2128EA2120E5AA35AA21271A31272A2123C091C7C9B0D>I<EA1F
801203A2EA0700A4120EA45AA45AA45AA412E2A312E412641238091D7D9C0B>108
D<391C1E078039266318C0394683A0E0384703C0008E1380A2120EA2391C0701C0A3EC03
80D8380E1388A2EC0708151039701C032039300C01C01D127C9122>I<EA383EEA4CC338
4D0380124E129E129C121CA238380700A3130E00701340A2131C1480EAE00C3860070012