#N canvas 690 2 496 196 12;
#N canvas 690 260 509 601 sub-slide~ 1;
#X obj 58 30 block~ 1 1 1;
#X obj 57 87 inlet~;
#X obj 57 54 table \$0-n 1;
#X obj 115 89 tabreceive~ \$0-n;
#X obj 89 525 tabsend~ \$0-n;
#X obj 59 567 outlet~;
#X obj 250 290 sig~;
#X obj 317 291 sig~;
#X obj 56 347 -~;
#X text 149 112 y(n-1);
#X obj 57 426 /~;
#X obj 58 485 +~, f 5;
#X obj 250 90 inlet slide-up;
#X obj 364 90 inlet slide-down;
#X text 114 487 y(n-1) + ((x(n) - y(n-1)) / slide);
#X obj 118 348 expr~ if ($v1<=$v2 \, $v3 \, $v4);
#X obj 272 124 loadbang;
#X obj 250 169 f \$1;
#X msg 250 239 1;
#X floatatom 250 264 5 0 0 0 - - - 0;
#X msg 317 242 1;
#X floatatom 317 267 5 0 0 0 - - - 0;
#X obj 317 169 f \$2;
#X obj 250 195 moses 0;
#X obj 317 194 moses 0;
#X obj 250 221 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc
#000000 #000000;
#X obj 317 221 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc
#000000 #000000;
#X text 14 111 x(n);
#X connect 1 0 15 0;
#X connect 1 0 8 0;
#X connect 3 0 15 1;
#X connect 3 0 8 1;
#X connect 3 0 11 1;
#X connect 6 0 15 2;
#X connect 7 0 15 3;
#X connect 8 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 4 0;
#X connect 11 0 5 0;
#X connect 12 0 17 0;
#X connect 13 0 22 0;
#X connect 15 0 10 1;
#X connect 16 0 17 0;
#X connect 16 0 22 0;
#X connect 17 0 23 0;
#X connect 18 0 19 0;
#X connect 19 0 6 0;
#X connect 20 0 21 0;
#X connect 21 0 7 0;
#X connect 22 0 24 0;
#X connect 23 0 25 0;
#X connect 23 1 19 0;
#X connect 24 0 26 0;
#X connect 24 1 21 0;
#X connect 25 0 18 0;
#X connect 26 0 20 0;
#X restore 62 90 pd sub-slide~;
#X obj 63 36 inlet~;
#X obj 63 143 outlet~;
#X obj 113 36 inlet slide-up;
#X obj 226 36 inlet slide-down;
#X connect 0 0 2 0;
#X connect 1 0 0 0;
#X connect 3 0 0 1;
#X connect 4 0 0 2;