$ od -c -N 50000 [qv]<IDL>koto>MEDIANSMOOTHER.DCOM!1
0000000 ( F I L E C R E A T E D " 1 6
0000020 - J u n - 8 6 2 1 : 5 2 : 0 4
0000040 " ( " c o m p i l e d o n
0000060 " { Q V } < P E D E R S E N >
0000100 L I S P > M E D I A N S M O O T
0000120 H E R . ; 2 ) \r " 1 2 - N o v
0000140 - 8 5 1 4 : 5 9 : 2 3 " r e
0000160 c o m p i l e d c h a n g e s
0000200 : S 3 R S S H S P L I T S
0000220 3 R E N D P T S S 3 H A N
0000240 N M E D I A N S M O O T H i
0000260 n \r " I N T E R L I S P - D
0000300 1 1 - M a y - 8 6 . . . " d
0000320 a t e d " 1 1 - M a y - 8 6
0000340 1 5 : 1 9 : 0 8 " ) \r ( F I L E
0000360 C R E A T E D " 1 6 - J u n -
0000400 8 6 2 1 : 5 1 : 3 2 " { Q V
0000420 } < P E D E R S E N > L I S P >
0000440 M E D I A N S M O O T H E R . ;
0000460 2 9 0 9 2 c h a n g e s t
0000500 o : ( F N S \r M E D I A N S
0000520 M O O T H E N D P T S H A N
0000540 N M E D O F 3 S 3 S 3 R
0000560 S 3 R S S H S P L I T ) ( V
0000600 A R S M E D I A N S M O O T H
0000620 E R C O M S ) ( M A C R O S
0000640 M E D O F 3 ) \r p r e v i o u
0000660 s d a t e : " 1 6 - J u n -
0000700 8 6 2 1 : 3 8 : 0 2 " { Q V
0000720 } < P E D E R S E N > L I S P >
0000740 M E D I A N S M O O T H E R . ;
0000760 1 ) \r S 3 R S S H D 1 \r ( I
0001000 0 V E C T O R ) \0 036 \0 \0 \0 001
0001020 @ \t \0 \0 @ \t \0 \0 236 @ \t \0 \0 277 @ \t
0001040 \0 \0 224 @ \t \0 \0 277 @ \t \0 \0 020 \0 ( 3
0001060 3 Q H A N N 2 6 Q S 3 R
0001100 2 1 Q S P L I T 1 4 Q S 3
0001120 R 7 S P L I T 3 S 3 R )
0001140 \r N I L \r ( ) \r S P L I T D 1
0001160 \r ( P 0 V E C T O R B A S E
0001200 I 0 V E C T O R ) 001 | 016
0001220 \0 \0 001 @ \t \0 \0 021 001 \0 @ \t \0 \0 l 002
0001240 331 j h H d 310 004 375 310 005 321 H d 310 \0 375
0001260 310 001 321 H d 310 002 375 310 003 321 H d 310 004 375
0001300 310 005 321 H d 310 006 375 310 \a 321 @ \t \0 \0 k
0001320 331 @ \t \0 \0 l 003 331 h d 021 034 \r J I 363
0001340 222 261 001 * M N 354 001 222 261 \0 360 M d L 375
0001360 354 005 231 277 N O 016 375 354 005 263 023 M L 354 005
0001400 242 261 \0 330 N O 016 354 005 242 261 \0 317 l 002 J
0001420 361 263 ^ n @ @ j 321 L 354 003 n @ \0 j 321
0001440 K 354 003 354 001 _ 026 277 M O 026 354 005 262 025 L
0001460 d M 354 005 223 277 M 260 037 O 026 354 005 262 027 L
0001500 260 026 L d M 375 354 005 222 277 M 211 O 026 375 354
0001520 005 221 L 201 O 026 _ 030 277 H J d 320 320 O 030
0001540 316 \0 277 O 030 M 354 001 h 360 h 360 _ 032 277 O
0001560 024 J 361 262 f n @ @ j 321 O 016 354 003 n @
0001600 \0 j 321 O 020 354 003 354 001 _ 026 277 N O 026 354
0001620 005 262 027 O 016 d N 354 005 223 277 N 260 " O 026
0001640 354 005 262 032 O 016 260 030 O 016 d N 375 354 005 222
0001660 277 N 212 O 026 375 354 005 222 O 016 201 O 026 _ 030
0001700 277 H J k 330 d 320 320 O 030 316 \0 277 O 030 N
0001720 354 001 h 360 h 360 _ 032 277 L 273 M 274 N 275 O
0001740 016 276 O 020 _ 016 277 J O 022 l 003 331 375 361 237
0001760 H J l 004 330 d 320 320 d 310 \0 375 310 001 321 200
0002000 M _ 020 277 J k 324 Z 261 376 326 O 032 020 \0 (
0002020 1 0 1 Q A R R A Y - T O T A L
0002040 - S I Z E 7 3 Q A R R A Y -
0002060 T O T A L - S I Z E 1 2 Q A
0002100 R R A Y - T O T A L - S I Z E
0002120 3 A R R A Y B A S E ) \r N I L
0002140 \r ( ) \r S 3 R D 1 \r ( I 0
0002160 Y ) \0 \f \0 \0 \0 001 @ \t \0 \0 263 374 @
0002200 \t \0 \0 020 \0 ( 1 1 Q E N D P T S
0002220 3 S 3 ) \r N I L \r ( ) \r E N
0002240 D P T S D 1 \r ( I 0 V E C
0002260 T O R ) \0 376 \b \0 \0 001 @ \t \0 \0 @
0002300 \t \0 \0 h d d 021 005 004 n @ @ j 321 H d
0002320 310 001 375 310 002 321 354 003 n @ \0 j 321 H d 310
0002340 004 375 310 005 321 354 003 354 001 Z H d 310 \0 375 310
0002360 001 321 [ H d 310 002 375 310 003 321 \ H K J 354
0002400 005 262 024 L d K 354 005 223 277 K 260 034 J 354 005
0002420 262 026 L 260 024 L d K 375 354 005 222 277 K 207 J
0002440 375 354 005 221 L 200 J 316 \0 n @ @ j 321 H I
0002460 l 002 331 d 320 320 d 310 \0 375 310 001 321 354 003 n
0002500 @ \0 j 321 H I l 003 331 d 320 320 d 310 \0 375
0002520 310 001 321 354 003 354 001 Z H I k 331 d 320 320 d
0002540 310 \0 375 310 001 321 [ H I l 002 331 d 320 320 d
0002560 310 \0 375 310 001 321 \ H I k 331 d 320 K J 354
0002600 005 262 024 L d K 354 005 223 277 K 260 034 J 354 005
0002620 262 026 L 260 024 L d K 375 354 005 222 277 K 207 J
0002640 375 354 005 221 L 200 J 021 003 \a M N 320 O 016 316
0002660 \0 277 O 016 022 355 \0 020 \0 ( 7 A R R A
0002700 Y - T O T A L - S I Z E 3 A
0002720 R R A Y B A S E ) \r N I L \r ( )
0002740 \r S 3 D 1 \r ( P 0 V E C T
0002760 O R B A S E I 0 V E C T O
0003000 R ) \0 202 \b \0 \0 001 @ \t \0 \0 021 001 \0
0003020 @ \t \0 \0 l 002 331 k H d 310 \0 375 310 001 321
0003040 H d 310 002 375 310 003 321 h d 021 026 \a J I 363
0003060 263 W K 276 L 273 H J k 330 d 320 320 d 310 \0
0003100 375 310 001 321 274 K N 354 005 262 024 L d K 354 005
0003120 223 277 K 260 034 N 354 005 262 026 L 260 024 L d K
0003140 375 354 005 222 277 K 207 N 375 354 005 221 L 200 N ]
0003160 K 354 001 234 i _ 016 277 H J d 320 320 M 316 \0
0003200 277 J k 324 Z 260 251 O 016 020 \0 ( 1 2 Q
0003220 A R R A Y - T O T A L - S I Z E
0003240 3 A R R A Y B A S E ) \r N I
0003260 L \r ( ) \r H A N N D 1 \r ( P
0003300 0 V E C T O R B A S E I 0
0003320 V E C T O R ) \0 ] 006 \0 \0 001 @
0003340 \t \0 \0 021 001 \0 @ \t \0 \0 l 002 331 k h H
0003360 d 310 \0 375 310 001 321 H d 310 002 375 310 003 321 021
0003400 005 005 J I 363 263 4 L 273 M 274 H J k 330 d
0003420 320 320 d 310 \0 375 310 001 321 275 H J d 320 320 K
0003440 L d M 354 \0 354 \0 354 \0 n > 200 j 321 354 003
0003460 316 \0 277 J k 324 Z 260 314 h 020 \0 ( 1 2 Q
0003500 A R R A Y - T O T A L - S I Z
0003520 E 3 A R R A Y B A S E ) \r N
0003540 I L \r ( ) \r M E D I A N S M O O
0003560 T H D 1 \r ( P 1 R O U G H
0003600 V E C T O R P 0 N I 3
0003620 T W I C E F L G I 2 S M
0003640 O O T H E R I 1 S M O O T
0003660 H E D V E C T O R I 0 V E
0003700 C T O R ) \0 236 002 \0 \0 004 B 265 005 g
0003720 \0 \0 b 004 @ \t \0 \0 021 001 \0 @ \t \0 \0 k
0003740 360 250 o \0 \0 \0 @ \n \0 \0 277 @ \t \0 \0 g
0003760 \0 \0 360 250 o \0 \0 \0 @ \n \0 \0 277 H l 006
0004000 361 250 o \0 \0 \0 @ \n \0 \0 277 A 265 025 H g
0004020 \0 \0 g \0 \0 g \0 \0 @ \r 005 \0 \0 b 002 260
0004040 031 \t \0 \0 k 360 230 A \t \0 \0 g \0 \0 360 250
0004060 o \0 \0 \0 A \n \0 \0 277 @ h A \v \0 \0 A
0004100 k B 017 016 C 262 " H g \0 \0 g \0 \0 \v \0
0004120 \0 021 001 001 @ A I \v \0 \0 277 I k B 017 016
0004140 277 A I A \v \0 \0 A 020 \0 ( 2 3 2 Q
0004160 E A R R A Y - P L U S 2 1 5 Q
0004200 E A R R A Y - D I F F E R E N
0004220 C E 2 0 4 Q M A K E - A R R
0004240 A Y 1 6 2 Q E A R R A Y - B
0004260 L T 1 5 3 Q E R R O R 1 3
0004300 6 Q A R R A Y - E L E M E N T
0004320 - T Y P E 1 2 7 Q A R R A Y
0004340 - R A N K 1 2 0 Q M A K E -
0004360 A R R A Y 7 5 Q E R R O R
0004400 5 7 Q E R R O R 4 2 Q A R
0004420 R A Y - E L E M E N T - T Y P E
0004440 3 5 Q E R R O R 2 2 Q A
0004460 R R A Y - R A N K 1 3 Q A R
0004500 R A Y - T O T A L - S I Z E ) \r
0004520 ( 2 0 1 Q F L O A T 1 7 6 Q
0004540 : E L E M E N T - T Y P E 1
0004560 4 1 Q S I N G L E - F L O A T
0004600 1 1 3 Q : I N I T I A L - C
0004620 O N T E N T S 1 1 0 Q F L O
0004640 A T 1 0 5 Q : E L E M E N T
0004660 - T Y P E 4 5 Q S I N G L E
0004700 - F L O A T 5 S 3 R S S H )
0004720 \r ( 1 4 7 Q " I n v a l i d
0004740 s m o o t h e d v e c t o r "
0004760 7 1 Q " T o t a l s i z e
0005000 m u s t b e > 6 " 5 3
0005020 Q " A r r a y n o t F L O
0005040 N U M : " 3 1 Q " A r r a y
0005060 n o t 1 - D i m e n s i o n
0005100 a l : " ) \r ( P R E T T Y C O M
0005120 P R I N T M E D I A N S M O O
0005140 T H E R C O M S ) \r ( R P A Q Q
0005160 M E D I A N S M O O T H E R C
0005200 O M S ( ( F N S S 3 R S S H
0005220 S P L I T S 3 R E N D P T
0005240 S S 3 H A N N M E D I A N
0005260 S M O O T H ) ( M A C R O S
0005300 M E D O F 3 ) ) ) \r ( P U T P R
0005320 O P S M E D O F 3 D M A C R
0005340 O ( ( X 1 X 2 X 3 ) ( i
0005360 f ( U F G R E A T E R P X 2
0005400 X 1 ) t h e n ( i f ( U
0005420 F G R E A T E R P X 3 X 2 )
0005440 t h e n X 2 e l s e i f
0005460 \r ( U F G R E A T E R P X 3
0005500 X 1 ) t h e n X 3 e l s e
0005520 X 1 ) e l s e i f ( U F L
0005540 E S S P X 3 X 2 ) t h e n
0005560 X 2 e l s e i f ( U F L E
0005600 S S P X 3 X 1 ) t h e n
0005620 X 3 e l s e \r X 1 ) ) ) \r (
0005640 P U T P R O P S M E D I A N S
0005660 M O O T H E R C O P Y R I G H
0005700 T ( " X e r o x C o r p o r
0005720 a t i o n " 1 9 8 6 ) ) \r N I
0005740 L \r
0005742