
Kalman filter training 449
Listing B.4: Excerpt from the object class FFNKAL.
1 PRO FFNKAL :: train , key = key
2 IF n_el ements ( key ) EQ 0 THEN key =0
3 ; defin e up date ma trices for Wh and Wo
4 dWh = dblarr ( self .LL , self . NN +1)
5 dWo = dblarr ( self .KK , self . LL +1)
6 iter = 0L
7 it er100 = 0 L
8 progressbar = Obj_New ( ’ cgprogre ssbar ’ , $
9 Col or = ’ blue ’, Text =’0 ’,$
10 title =’ Tr aining : example nu mber ... ’, $
11 xsize =250 , ysize =20)
12 prog ressba r -> start
13 window ,12 , xsize =600 , ysi ze =400 , $
14 title =’ FFN ( Kalman filter ) ’
15 wset ,12
16 REPE AT B EGIN
17 IF pro gressb ar - > Check Cancel () THEN BEG IN
18