$ od -c -N 50000 [qv]<IDL>DINDE>DINDESMRY.DCOM!1
0000000 ( F I L E C R E A T E D " 5
0000020 - M a y - 8 6 1 7 : 1 0 : 2 5
0000040 " ( " c o m p i l e d o n
0000060 " { D S K } < L I S P F I L E
0000100 S > D I N D E S M R Y . ; 2 )
0000120 " 1 2 - N o v - 8 5 1 4 : 5 9
0000140 : 2 3 " \r t c o m p l ' d i
0000160 n " L O O P S 1 8 - A p r -
0000200 8 6 . . . " d a t e d " 1
0000220 8 - A p r - 8 6 1 8 : 4 8 : 3
0000240 1 " ) \r ( F I L E C R E A T E D
0000260 " 3 0 - A p r - 8 6 2 0 : 1
0000300 0 : 4 5 " { D S K } < L I S P
0000320 F I L E S > D I N D E S M R Y .
0000340 ; 2 9 8 6 5 c h a n g e s
0000360 t o : ( M E T H O D S \r B o
0000400 o l e a n A r r a y . A L L B
0000420 o o l e a n A r r a y . A N Y
0000440 F l o a t A r r a y . M E A N
0000460 F l o a t A r r a y . M E D I A
0000500 N F l o a t A r r a y . S D E
0000520 V F l o a t A r r a y . S U M
0000540 ) ( \r F N S B o o l e a n A
0000560 r r a y . A L L B o o l e a n
0000600 A r r a y . A N Y F l o a t A
0000620 r r a y . M E A N F l o a t A
0000640 r r a y . M E D I A N F l o a
0000660 t A r r a y . S D E V F l o a
0000700 t A r r a y . S U M \r ) p r e
0000720 v i o u s d a t e : " 3 1 -
0000740 O c t - 8 5 1 0 : 2 0 : 3 4 "
0000760 { D S K } < L I S P F I L E S
0001000 > D I N D E S M R Y . ; 1 ) \r B
0001020 o o l e a n A r r a y . A L L
0001040 D 1 \r ( I 0 s e l f ) \0 200
0001060 \r \0 \0 001 g \0 \0 \t \0 \0 021 q \a H g \0
0001100 \0 \n \0 \0 271 H h @ [ g \0 \0 \n \0 \0 272
0001120 K k J 017 016 k 331 j @ ] g \0 \0 \n \0 \0
0001140 274 M k L 017 016 i @ _ 016 g \0 \0 \n \0 \0
0001160 276 O 016 k N 017 016 021 005 \f O 022 O 020 363 263
0001200 & O 024 O 030 O 022 \n \0 \0 \n \0 \0 264 \n O
0001220 022 k 324 _ 022 260 347 _ 026 277 O 030 O 022 \n \0
0001240 \0 263 356 h 206 O 026 222 O 024 200 i 022 l 003 I
0001260 017 016 020 \0 ( 1 5 4 Q \ A R E F .
0001300 1 1 3 0 Q E Q P 1 2 5 Q
0001320 \ A R E F . 1 7 3 Q F e t c
0001340 h M e t h o d O r H e l p 5 3
0001360 Q F e t c h M e t h o d O r H
0001400 e l p 3 2 Q F e t c h M e t
0001420 h o d O r H e l p 1 7 Q F e
0001440 t c h M e t h o d O r H e l p
0001460 5 G e t O b j e c t R e c ) \r
0001500 ( 7 0 Q A s L i n e a r l y A
0001520 d d r e s s a b l e A r r a y
0001540 5 0 Q N A R e p r e s e n t a
0001560 t i o n 2 7 Q A r r a y T o
0001600 t a l S i z e 1 4 Q N e w
0001620 2 B o o l e a n S c a l a r )
0001640 \r ( ) \r B o o l e a n A r r a y
0001660 . A N Y D 1 \r ( I 0 s e l
0001700 f ) \0 177 \r \0 \0 001 g \0 \0 \t \0 \0 021
0001720 q \a H g \0 \0 \n \0 \0 271 H h @ [ g \0
0001740 \0 \n \0 \0 272 K k J 017 016 k 331 j @ ] g
0001760 \0 \0 \n \0 \0 274 M k L 017 016 i @ _ 016 g
0002000 \0 \0 \n \0 \0 276 O 016 k N 017 016 021 005 \f O
0002020 022 O 020 363 263 & O 024 O 030 O 022 \n \0 \0 \n
0002040 \0 \0 264 \n O 022 k 324 _ 022 260 347 _ 026 277 O
0002060 030 O 022 \n \0 \0 262 356 i 205 O 026 264 004 O 024
0002100 022 l 003 I 017 016 020 \0 ( 1 5 4 Q \ A
0002120 R E F . 1 1 3 0 Q E Q P 1
0002140 2 5 Q \ A R E F . 1 7 3 Q
0002160 F e t c h M e t h o d O r H e l
0002200 p 5 3 Q F e t c h M e t h o
0002220 d O r H e l p 3 2 Q F e t c
0002240 h M e t h o d O r H e l p 1 7
0002260 Q F e t c h M e t h o d O r H
0002300 e l p 5 G e t O b j e c t R
0002320 e c ) \r ( 7 0 Q A s L i n e a
0002340 r l y A d d r e s s a b l e A r
0002360 r a y 5 0 Q N A R e p r e s
0002400 e n t a t i o n 2 7 Q A r r
0002420 a y T o t a l S i z e 1 4 Q
0002440 N e w 2 B o o l e a n S c a
0002460 l a r ) \r ( ) \r F l o a t A r r
0002500 a y . M A D D 1 \r ( I 0 s
0002520 e l f ) \0 D 004 \0 \0 001 @ 021 1 003 H
0002540 g \0 \0 \n \0 \0 273 H @ Z g \0 \0 \n \0 \0
0002560 271 J k I 017 016 l 002 K 017 016 022 021 021 001 H
0002600 g \0 \0 \n \0 \0 271 H k I 017 016 022 021 021 001
0002620 H g \0 \0 \n \0 \0 271 H k I 017 016 020 \0 (
0002640 7 3 Q F e t c h M e t h o d O
0002660 r H e l p 5 2 Q F e t c h M
0002700 e t h o d O r H e l p 2 4 Q
0002720 F e t c h M e t h o d O r H e l
0002740 p 1 2 Q F e t c h M e t h o
0002760 d O r H e l p ) \r ( 7 0 Q M E
0003000 D I A N 4 7 Q A B S 2 1 Q
0003020 M E D I A N 7 - ) \r ( ) \r
0003040 F l o a t A r r a y . M A X D
0003060 1 \r ( P 1 7 Q I M A X P
0003100 1 3 Q I P 1 1 Q l i n e
0003120 a r S e l f P 2 N A I
0003140 0 s e l f ) \0 241 020 \0 \0 001 @ 021
0003160 021 001 H g \0 \0 \n \0 \0 271 H k I 017 016 022
0003200 021 a \b @ \ g \0 \0 \n \0 \0 273 L k K 017
0003220 016 021 001 \t @ ^ g \0 \0 \n \0 \0 275 N k M
0003240 017 016 k 331 j 021 2 016 O 026 O 024 363 263 4 J
0003260 O 022 O 026 \n \0 \0 \n \0 \0 263 037 O 022 O 026
0003300 \n \0 \0 _ 034 277 O 032 225 O 034 O 032 363 231 O
0003320 034 _ 032 277 O 026 _ 030 201 O 026 k 324 _ 026 260
0003340 313 O 030 022 021 001 017 g \0 \0 \t \0 \0 _ 016 g
0003360 \0 \0 \n \0 \0 _ 020 277 O 016 h O 036 241 J 206
0003400 O 022 O 036 \n \0 \0 l 003 O 020 017 016 020 \0 (
0003420 2 3 0 Q \ A R E F . 1 2 0 6
0003440 Q F e t c h M e t h o d O r H
0003460 e l p 1 7 6 Q G e t O b j e
0003500 c t R e c 1 2 4 Q \ A R E F
0003520 . 1 1 1 3 Q F E Q P 1 1 0
0003540 Q \ A R E F . 1 5 5 Q F e
0003560 t c h M e t h o d O r H e l p
0003600 3 4 Q F e t c h M e t h o d O
0003620 r H e l p 1 2 Q F e t c h M
0003640 e t h o d O r H e l p ) \r ( 2 0
0003660 3 Q N e w 1 7 3 Q F l o a
0003700 t S c a l a r 5 2 Q A r r a
0003720 y T o t a l S i z e 3 1 Q A
0003740 s L i n e a r l y A d d r e s s
0003760 a b l e A r r a y 7 N A R e
0004000 p r e s e n t a t i o n ) \r ( )
0004020 \r F l o a t A r r a y . M E A N
0004040 D 1 \r ( I 0 s e l f ) \0
0004060 222 016 \0 \0 001 g \0 \0 \t \0 \0 021 q \a H g
0004100 \0 \0 \n \0 \0 271 H h @ [ g \0 \0 \n \0 \0
0004120 272 K k J 017 016 k 331 j @ ] g \0 \0 \n \0
0004140 \0 274 M k L 017 016 o \0 \0 \0 j @ _ 016 g
0004160 \0 \0 \n \0 \0 276 O 016 k N 017 016 021 006 \r O
0004200 022 O 020 363 263 , O 024 O 032 O 022 \n \0 \0 \n
0004220 \0 \0 263 026 O 026 O 032 O 022 \n \0 \0 350 _ 026
0004240 277 O 030 k 330 _ 030 277 O 022 k 324 _ 022 260 323
0004260 O 030 j \n \0 \0 222 O 024 204 O 026 O 030 353 022
0004300 l 003 I 017 016 020 \0 ( 2 0 0 Q E Q P
0004320 1 4 7 Q \ A R E F . 1 1 3
0004340 4 Q F E Q P 1 3 1 Q \ A R
0004360 E F . 1 7 7 Q F e t c h M e
0004400 t h o d O r H e l p 5 3 Q F
0004420 e t c h M e t h o d O r H e l p
0004440 3 2 Q F e t c h M e t h o d
0004460 O r H e l p 1 7 Q F e t c h
0004500 M e t h o d O r H e l p 5 G
0004520 e t O b j e c t R e c ) \r ( 7 4
0004540 Q A s L i n e a r l y A d d r
0004560 e s s a b l e A r r a y 5 0 Q
0004600 N A R e p r e s e n t a t i o
0004620 n 2 7 Q A r r a y T o t a l
0004640 S i z e 1 4 Q N e w 2 F
0004660 l o a t S c a l a r ) \r ( 6 5
0004700 Q 0 . 0 ) \r F l o a t A r r a
0004720 y . M E D I A N D 1 \r ( P 2
0004740 l i n e a r l y A d d r e s s
0004760 a b l e C l o n e I 0 s e
0005000 l f ) \0 A 005 \0 \0 001 @ 021 021 001 H g
0005020 \0 \0 \n \0 \0 271 H k I 017 016 022 021 021 001 H
0005040 g \0 \0 \n \0 \0 271 H k I 017 016 022 021 ! 004
0005060 g \0 \0 \t \0 \0 [ g \0 \0 \n \0 \0 274 K h
0005100 J \t \0 \0 l 003 L 017 016 020 \0 ( 7 1 Q
0005120 U F S e l e c t M e d i a n 6
0005140 2 Q F e t c h M e t h o d O r
0005160 H e l p 5 3 Q G e t O b j e
0005200 c t R e c 3 3 Q F e t c h M
0005220 e t h o d O r H e l p 1 2 Q
0005240 F e t c h M e t h o d O r H e l
0005260 p ) \r ( 5 7 Q N e w 5 0 Q
0005300 F l o a t S c a l a r 3 0 Q
0005320 A s L i n e a r l y A d d r e s
0005340 s a b l e A r r a y 7 C l o
0005360 n e ) \r ( ) \r F l o a t A r r a
0005400 y . M I N D 1 \r ( P 1 7 Q
0005420 I M I N P 1 3 Q I P 1
0005440 1 Q l i n e a r S e l f P
0005460 2 N A I 0 s e l f ) \0
0005500 241 020 \0 \0 001 @ 021 021 001 H g \0 \0 \n \0 \0
0005520 271 H k I 017 016 022 021 a \b @ \ g \0 \0 \n
0005540 \0 \0 273 L k K 017 016 021 001 \t @ ^ g \0 \0
0005560 \n \0 \0 275 N k M 017 016 k 331 j 021 2 016 O
0005600 026 O 024 363 263 4 J O 022 O 026 \n \0 \0 \n \0
0005620 \0 263 037 O 022 O 026 \n \0 \0 _ 034 277 O 032 225
0005640 O 032 O 034 363 231 O 034 _ 032 277 O 026 _ 030 201
0005660 O 026 k 324 _ 026 260 313 O 030 022 021 001 017 g \0
0005700 \0 \t \0 \0 _ 016 g \0 \0 \n \0 \0 _ 020 277 O
0005720 016 h O 036 241 J 206 O 022 O 036 \n \0 \0 l 003
0005740 O 020 017 016 020 \0 ( 2 3 0 Q \ A R E
0005760 F . 1 2 0 6 Q F e t c h M e
0006000 t h o d O r H e l p 1 7 6 Q
0006020 G e t O b j e c t R e c 1 2 4
0006040 Q \ A R E F . 1 1 1 3 Q F
0006060 E Q P 1 1 0 Q \ A R E F . 1
0006100 5 5 Q F e t c h M e t h o d
0006120 O r H e l p 3 4 Q F e t c h
0006140 M e t h o d O r H e l p 1 2 Q
0006160 F e t c h M e t h o d O r H e
0006200 l p ) \r ( 2 0 3 Q N e w 1 7
0006220 3 Q F l o a t S c a l a r 5
0006240 2 Q A r r a y T o t a l S i z
0006260 e 3 1 Q A s L i n e a r l y
0006300 A d d r e s s a b l e A r r a y
0006320 7 N A R e p r e s e n t a t
0006340 i o n ) \r ( ) \r F l o a t A r r
0006360 a y . S D E V D 1 \r ( I 0
0006400 s e l f ) \0 305 024 \0 \0 001 g \0 \0 \t
0006420 \0 \0 021 261 \v H g \0 \0 \n \0 \0 271 H h @
0006440 [ g \0 \0 \n \0 \0 272 K k J 017 016 k 331 j
0006460 @ ] g \0 \0 \n \0 \0 274 M k L 017 016 _ 016
0006500 g \0 \0 \n \0 \0 276 O 016 k N 017 016 @ _ 022
0006520 g \0 \0 \n \0 \0 _ 020 277 O 022 k O 020 017 016
0006540 o \0 \0 \0 j @ _ 026 g \0 \0 \n \0 \0 _ 024
0006560 277 O 026 k O 024 017 016 021 027 023 O 032 O 030 363
0006600 263 6 O 036 O $ O 032 \n \0 \0 \n \0 \0 263
0006620 O $ O 032 \n \0 \0 O 034 351 _ & 277 O O
0006640 & d 352 350 _ 277 O " k 330 _ " 277 O 032
0006660 k 324 _ 032 260 311 l 002 O " 361 222 O 036 211 O
0006700 O " k 331 353 \t \0 \0 022 l 003 I 017 016 020
0006720 \0 ( 2 7 4 Q S Q R T 2 1 2 Q
0006740 \ A R E F . 1 2 0 1 Q F E
0006760 Q P 1 7 6 Q \ A R E F . 1
0007000 1 4 1 Q F e t c h M e t h o d
0007020 O r H e l p 1 1 1 Q F e t c
0007040 h M e t h o d O r H e l p 7 1
0007060 Q F e t c h M e t h o d O r H
0007100 e l p 5 3 Q F e t c h M e t
0007120 h o d O r H e l p 3 2 Q F e
0007140 t c h M e t h o d O r H e l p
0007160 1 7 Q F e t c h M e t h o d O
0007200 r H e l p 5 G e t O b j e c
0007220 t R e c ) \r ( 1 3 6 Q A s L i
0007240 n e a r l y A d d r e s s a b l
0007260 e A r r a y 1 0 6 Q N A R e
0007300 p r e s e n t a t i o n 6 6 Q
0007320 A s N a t i v e O b j e c t
0007340 5 0 Q M E A N 2 7 Q A r r
0007360 a y T o t a l S i z e 1 4 Q
0007400 N e w 2 F l o a t S c a l a
0007420 r ) \r ( 1 2 7 Q 0 . 0 ) \r F
0007440 l o a t A r r a y . S U M D 1
0007460 \r ( I 0 s e l f ) \0 217 016 \0
0007500 \0 001 g \0 \0 \t \0 \0 021 q \a H g \0 \0 \n
0007520 \0 \0 271 H h @ [ g \0 \0 \n \0 \0 272 K k
0007540 J 017 016 k 331 j @ ] g \0 \0 \n \0 \0 274 M
0007560 k L 017 016 o \0 \0 \0 j @ _ 016 g \0 \0 \n
0007600 \0 \0 276 O 016 k N 017 016 021 006 \r O 022 O 020
0007620 363 263 , O 024 O 032 O 022 \n \0 \0 \n \0 \0 263
0007640 026 O 026 O 032 O 022 \n \0 \0 350 _ 026 277 O 030
0007660 k 330 _ 030 277 O 022 k 324 _ 022 260 323 O 030 j
0007700 \n \0 \0 222 O 024 201 O 026 022 l 003 I 017 016 020
0007720 \0 ( 2 0 0 Q E Q P 1 4 7 Q
0007740 \ A R E F . 1 1 3 4 Q F E Q
0007760 P 1 3 1 Q \ A R E F . 1 7
0010000 7 Q F e t c h M e t h o d O r
0010020 H e l p 5 3 Q F e t c h M e
0010040 t h o d O r H e l p 3 2 Q F
0010060 e t c h M e t h o d O r H e l p
0010100 1 7 Q F e t c h M e t h o d
0010120 O r H e l p 5 G e t O b j e
0010140 c t R e c ) \r ( 7 4 Q A s L i
0010160 n e a r l y A d d r e s s a b l
0010200 e A r r a y 5 0 Q N A R e p
0010220 r e s e n t a t i o n 2 7 Q
0010240 A r r a y T o t a l S i z e 1
0010260 4 Q N e w 2 F l o a t S c
0010300 a l a r ) \r ( 6 5 Q 0 . 0 )
0010320 \r ( P R E T T Y C O M P R I N T
0010340 D I N D E S M R Y C O M S ) \r
0010360 ( R P A Q Q D I N D E S M R Y
0010400 C O M S ( ( M E T H O D S B
0010420 o o l e a n A r r a y . A L L
0010440 B o o l e a n A r r a y . A N Y
0010460 F l o a t A r r a y . M A D
0010500 F l o a t A r r a y . M A X \r
0010520 F l o a t A r r a y . M E A N
0010540 F l o a t A r r a y . M E D I A
0010560 N F l o a t A r r a y . M I N
0010600 F l o a t A r r a y . S D E V
0010620 F l o a t A r r a y . S U M )
0010640 ) ) \r ( M E T H B o o l e a n
0010660 A r r a y A L L N I L ( *
0010700 R e t u r n , a s a B o
0010720 o l e a n S c a l a r T i f
0010740 a l l o f t h e e l e m
0010760 e n t s o f s e l f a r e
0011000 n o t N I L \r a n d s o
0011020 m e a r e n o t m i s s i
0011040 n g . I f a l l a r e m
0011060 i s s i n g , m i s s i n g .
0011100 O t h e r w i s e N I L . )
0011120 ( m e t h o d B o o l e a n
0011140 A r r a y . A L L \r M e t h o
0011160 d C l a s s i f i c a t i o n
0011200 S u m m a r y V a l u e ) ) \r (
0011220 M E T H B o o l e a n A r r a
0011240 y A N Y N I L ( * R e t
0011260 u r n , a s a B o o l e a
0011300 n S c a l a r T i f a n y
0011320 o f t h e e l e m e n t s
0011340 o f s e l f a r e n o t
0011360 N I L \r a n d s o m e a
0011400 r e n o t m i s s i n g .
0011420 I f a l l a r e m i s s i
0011440 n g , m i s s i n g . O t h
0011460 e r w i s e N I L . ) ( m e
0011500 t h o d B o o l e a n A r r a
0011520 y . A N Y \r M e t h o d C l a
0011540 s s i f i c a t i o n S u m m
0011560 a r y V a l u e ) ) \r ( M E T H
0011600 F l o a t A r r a y M A D
0011620 N I L ( * R e t u r n s a
0011640 F l o a t S c a l a r : t h
0011660 e M e d i a n A b s o l u t
0011700 e D e v i a t i o n o f s
0011720 e l f ( a b o u t i t s \r
0011740 m e d i a n ) % . ) ( m e t
0011760 h o d F l o a t A r r a y . M
0012000 A D M e t h o d C l a s s i f
0012020 i c a t i o n S u m m a r y S
0012040 t a t i s t i c ) ) \r ( M E T H
0012060 F l o a t A r r a y M A X
0012100 N I L ( * R e t u r n t h
0012120 e l a r g e s t n o n - m i
0012140 s s i n g e l e m e n t o f
0012160 s e l f a s a F l o a t
0012200 S c a l a r I f a l l \r e
0012220 l e m e n t s a r e m i s s
0012240 i n g t h e n r e t u r n
0012260 N o t A v a i l a b l e . )
0012300 ( m e t h o d F l o a t A r r
0012320 a y . M A X M e t h o d C l a
0012340 s s i f i c a t i o n \r S u m
0012360 m a r y S t a t i s t i c ) ) \r
0012400 ( M E T H F l o a t A r r a y
0012420 M E A N N I L N I L ( m
0012440 e t h o d F l o a t A r r a y
0012460 . M E A N M e t h o d C l a s
0012500 s i f i c a t i o n S u m m a
0012520 r y S t a t i s t i c ) ) \r ( M
0012540 E T H F l o a t A r r a y M
0012560 E D I A N N I L ( * R e t
0012600 u r n t h e m e d i a n o
0012620 f t h e n o n - m i s s i n
0012640 g e l e m e n t s o f s e
0012660 l f a s a F l o a t S c a
0012700 l a r \r I f a l l e l e m
0012720 e n t s a r e m i s s i n g
0012740 t h e n r e t u r n N o t
0012760 A v a i l a b l e . ) ( m e
0013000 t h o d F l o a t A r r a y .
0013020 M E D I A N M e t h o d C l a
0013040 s s i f i c a t i o n \r S u m
0013060 m a r y S t a t i s t i c ) ) \r
0013100 ( M E T H F l o a t A r r a y
0013120 M I N N I L ( * R e t u
0013140 r n t h e s m a l l e s t
0013160 n o n - m i s s i n g e l e m
0013200 e n t o f s e l f a s a
0013220 F l o a t S c a l a r I f
0013240 a l l \r e l e m e n t s a r
0013260 e m i s s i n g t h e n r
0013300 e t u r n N o t A v a i l a
0013320 b l e . ) ( m e t h o d F l
0013340 o a t A r r a y . M I N M e t
0013360 h o d C l a s s i f i c a t i o
0013400 n \r S u m m a r y S t a t i s
0013420 t i c ) ) \r ( M E T H F l o a
0013440 t A r r a y S D E V N I L
0013460 N I L ( m e t h o d F l o a
0013500 t A r r a y . S D E V M e t h
0013520 o d C l a s s i f i c a t i o n
0013540 S u m m a r y S t a t i s t i
0013560 c ) ) \r ( M E T H F l o a t A
0013600 r r a y S U M N I L N I L
0013620 ( m e t h o d F l o a t A r
0013640 r a y . S U M M e t h o d C l
0013660 a s s i f i c a t i o n S u m
0013700 m a r y S t a t i s t i c ) ) \r
0013720 ( P U T P R O P S D I N D E S
0013740 M R Y C O P Y R I G H T ( "
0013760 M a s s a c h u s e t t s I n
0014000 s t i t u t e o f T e c h n
0014020 o l o g y " 1 9 8 5 1 9 8 6
0014040 ) ) \r N I L \r
0014047