$ od -c -N 50000 [qv]<IDL>DINDE>DINDEMISC.DCOM!1
0000000 ( F I L E C R E A T E D " 3 1
0000020 - J u l - 8 6 1 5 : 1 7 : 3 4
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 > D I N D E M I S
0000120 C . ; 3 ) \r " 1 2 - N o v - 8
0000140 5 1 4 : 5 9 : 2 3 " b c o m
0000160 p l ' d i n " L O O P S w
0000200 i t h T E D I T 2 - J u n
0000220 - 8 6 . . . " d a t e d "
0000240 2 - J u n - 8 6 1 6 : 5 8 :
0000260 1 5 " ) \r ( F I L E C R E A T E
0000300 D " 3 1 - J u l - 8 6 1 5 :
0000320 1 6 : 0 2 " { D S K } < L I S
0000340 P F I L E S > D I N D E > D I N
0000360 D E M I S C . ; 3 1 7 3 6 2
0000400 c h a n g e s t o : ( M E T
0000420 H O D S \r F l o a t V e c t o
0000440 r . B o x P l o t ) ( F N S
0000460 F l o a t V e c t o r . B o x P
0000500 l o t ) p r e v i o u s d a
0000520 t e : " 2 6 - J u l - 8 6 1
0000540 7 : 0 0 : 0 4 " \r { D S K } <
0000560 L I S P F I L E S > D I N D E >
0000600 D I N D E M I S C . ; 2 ) \r A r
0000620 r a y . A R R A Y D 1 \r ( P
0000640 2 7 Q l i n e a r R e s u l t
0000660 P 2 6 Q l i n e a r S e l
0000700 f P 2 5 Q s e l f S i z e
0000720 P 2 4 Q I P 2 2 Q r
0000740 e s u l t P 2 1 Q r e s u
0000760 l t C l a s s P 2 r e s u
0001000 l t S h a p e I 1 d i m s
0001020 I 0 s e l f ) 001 G 030 \0 \0
0001040 002 A 265 026 @ 021 021 001 H g \0 \0 \n \0 \0 271
0001060 H k I 017 016 022 260 = 005 003 224 A j 330 260 5
0001100 A d 3 263 / d 003 263 + d 004 ` \0 \0 360
0001120 247 004 ` \0 \0 360 262 025 A 021 021 001 H g \0 \0
0001140 \n \0 \0 271 H k I 017 016 022 207 o \0 \0 \0 A
0001160 \n \0 \0 021 341 020 @ h J d 3 225 277 g \0
0001200 \0 260 \t \0 \0 k \n \0 \0 224 g \0 \0 260 023
0001220 J \t \0 \0 l 002 \n \0 \0 223 g \0 \0 202 g \0
0001240 \0 \v \0 \0 021 001 021 O " \ g \0 \0 \n \0 \0
0001260 273 L J l 002 K 017 016 021 001 022 O $ ^ g \0
0001300 \0 \n \0 \0 275 N k M 017 016 k 331 j @ _ 020
0001320 g \0 \0 \n \0 \0 _ 016 277 O 020 k O 016 017 016
0001340 @ _ 024 g \0 \0 \n \0 \0 _ 022 277 O 024 k O
0001360 022 017 016 O $ _ 030 g \0 \0 \n \0 \0 _ 026 277
0001400 O 030 k O 026 017 016 021 005 027 O ( O & 363 263
0001420 036 O , O ( O * \n \0 \0 \n \0 \0 O . O
0001440 ( \v \0 \0 277 O ( k 324 _ ( 260 341 023 O $
0001460 _ 034 g \0 \0 \n \0 \0 _ 032 277 O 034 k O 032
0001500 017 016 @ _ g \0 \0 \n \0 \0 _ 036 277 O
0001520 k O 036 017 016 \n \0 \0 j \n \0 \0 246 o \0 \0
0001540 \0 \t \0 \0 O $ 020 \0 ( 5 0 2 Q H E
0001560 L P C H E C K 4 7 2 Q E Q P
0001600 4 6 6 Q I M O D 4 5 1 Q
0001620 F e t c h M e t h o d O r H e l
0001640 p 4 2 6 Q F e t c h M e t h
0001660 o d O r H e l p 4 0 2 Q \ A
0001700 S E T . 1 3 7 3 Q \ A R E F
0001720 . 1 3 7 0 Q I M O D 3 3 3
0001740 Q F e t c h M e t h o d O r H
0001760 e l p 3 0 7 Q F e t c h M e
0002000 t h o d O r H e l p 2 6 4 Q
0002020 F e t c h M e t h o d O r H e l
0002040 p 2 4 2 Q F e t c h M e t h
0002060 o d O r H e l p 2 1 6 Q F e
0002100 t c h M e t h o d O r H e l p
0002120 2 0 2 Q C l a s s F r o m M o
0002140 d e T y p e 1 6 7 Q E Q P
0002160 1 6 2 Q L E N G T H 1 5 0 Q
0002200 E Q P 1 4 4 Q L E N G T H
0002220 1 2 1 Q H E L P C H E C K
0002240 1 0 1 Q F e t c h M e t h o d
0002260 O r H e l p 1 5 Q F e t c h
0002300 M e t h o d O r H e l p ) \r ( 4
0002320 4 6 Q A r r a y T o t a l S i
0002340 z e 4 2 3 Q A r r a y T o t
0002360 a l S i z e 3 3 0 Q A s L i
0002400 n e a r l y A d d r e s s a b l
0002420 e A r r a y 3 0 4 Q A s L i
0002440 n e a r l y A d d r e s s a b l
0002460 e A r r a y 2 6 1 Q A r r a
0002500 y T o t a l S i z e 2 3 7 Q
0002520 A r r a y T o t a l S i z e 2
0002540 1 3 Q N e w 1 7 7 Q A r r
0002560 a y 1 7 3 Q M a t r i x 1
0002600 5 4 Q V e c t o r 1 3 7 Q
0002620 V e c t o r 7 6 Q A s L i s
0002640 t O f I n t e g e r s 6 3 Q
0002660 004 003 c l a s s T Y P E # 5 5 Q
0002700 004 003 i n s t a n c e T Y P E #
0002720 1 2 Q A r r a y T o t a l S
0002740 i z e ) \r ( 4 7 7 Q " I n
0002760 A R R A Y , t h e r e s u l
0003000 t a n t a r r a y c o n t a
0003020 i n s a n o n - i n t e g r
0003040 a l r e p l i c a t i o n o
0003060 f s e l f . T y p e O K
0003100 t o c o n t i n u e . " 1 1
0003120 5 Q " B a d < d i m s > a
0003140 r g u m e n t t o A R R A Y
0003160 : " ) \r A r r a y . D I M S O F
0003200 D 1 \r ( I 0 s e l f ) \0
0003220 V \t \0 \0 001 g \0 \0 \t \0 \0 021 Q 005 H g
0003240 \0 \0 \n \0 \0 271 H @ [ g \0 \0 \n \0 \0 272
0003260 K k J 017 016 021 0 \b @ ] g \0 \0 \n \0 \0
0003300 274 M k L 017 016 260 030 d 001 006 \0 \0 276 O 016
0003320 265 \b N h 032 _ 020 201 N & _ 016 277 002 003 265
0003340 351 O 020 022 l 003 I 017 016 020 \0 ( 5 2 Q
0003360 F e t c h M e t h o d O r H e l
0003400 p 3 1 Q F e t c h M e t h o
0003420 d O r H e l p 1 7 Q F e t c
0003440 h M e t h o d O r H e l p 5
0003460 G e t O b j e c t R e c ) \r ( 6
0003500 7 Q F L O A T P 4 7 Q A r
0003520 r a y D i m e n s i o n s 2 6
0003540 Q A r r a y R a n k 1 4 Q
0003560 N e w 2 F l o a t V e c t o
0003600 r ) \r ( ) \r A r r a y . M A T R
0003620 I X D 1 \r ( P 2 1 Q l i n
0003640 e a r R e s u l t P 2 0 Q
0003660 l i n e a r S e l f P 1 7 Q
0003700 I P 7 r e s u l t P
0003720 6 s e l f S i z e I 3 b
0003740 y r o w I 2 n c o l I
0003760 1 n r o w I 0 s e l f )
0004000 \0 326 022 \0 \0 004 A 251 B 247 o \0 \0 \0 \t
0004020 \0 \0 277 @ 021 021 001 H g \0 \0 \n \0 \0 271 H
0004040 k I 017 016 022 @ d 004 ` \0 \0 360 246 d 004 `
0004060 \0 \0 360 222 311 \0 202 \t \0 \0 021 Q 005 H g \0
0004100 \0 \n \0 \0 275 H A Z g \0 \0 \n \0 \0 271 J
0004120 g \0 \0 l 002 I 017 016 B \ g \0 \0 \n \0 \0
0004140 273 L g \0 \0 l 002 K 017 016 h 032 032 l 002 M
0004160 017 016 022 021 b \r O 016 _ 022 g \0 \0 \n \0 \0
0004200 _ 020 277 O 022 k O 020 017 016 k 331 j @ _ 026
0004220 g \0 \0 \n \0 \0 _ 024 277 O 026 k O 024 017 016
0004240 O 016 _ 032 g \0 \0 \n \0 \0 _ 030 277 O 032 k
0004260 O 030 017 016 021 004 021 O 036 O 034 363 263 035 O
0004300 O 036 N \n \0 \0 \n \0 \0 O " O 036 \v \0 \0
0004320 277 O 036 k 324 _ 036 260 342 O 016 020 \0 ( 3 1
0004340 0 Q \ A S E T . 1 3 0 1 Q
0004360 \ A R E F . 1 2 7 6 Q I M O
0004400 D 2 4 2 Q F e t c h M e t h
0004420 o d O r H e l p 2 1 6 Q F e
0004440 t c h M e t h o d O r H e l p
0004460 1 7 0 Q F e t c h M e t h o d
0004500 O r H e l p 1 3 0 Q F e t c
0004520 h M e t h o d O r H e l p 1 0
0004540 6 Q F e t c h M e t h o d O r
0004560 H e l p 7 4 Q F e t c h M e
0004600 t h o d O r H e l p 6 2 Q G
0004620 e t L i s p C l a s s 2 6 Q
0004640 F e t c h M e t h o d O r H e l
0004660 p 1 2 Q H E L P C H E C K )
0004700 \r ( 2 3 7 Q L i n e a r A d d
0004720 r e s s a b l e A r r a y 2 1
0004740 3 Q L i n e a r A d d r e s s
0004760 a b l e A r r a y 1 6 5 Q A
0005000 r r a y T o t a l S i z e 1 3
0005020 5 Q F i x n u m 1 2 5 Q A
0005040 s A 1 1 3 Q F i x n u m 1
0005060 0 3 Q A s A 7 1 Q N e w
0005100 5 2 Q 004 003 c l a s s T Y P E #
0005120 4 3 Q 004 003 i n s t a n c e T
0005140 Y P E # 2 3 Q A r r a y T o
0005160 t a l S i z e ) \r ( 7 " B o
0005200 t h n r o w a n d n c o l
0005220 w e r e o m i t t e d i n
0005240 M A T R I X . " ) \r A r r a y
0005260 . N A D 1 \r ( P 5 N A V a
0005300 l u e P 4 r e s u l t I
0005320 0 s e l f ) \0 224 \f \0 \0 001 g
0005340 \0 \0 \t \0 \0 021 1 003 H g \0 \0 \n \0 \0 273
0005360 H @ Z g \0 \0 \n \0 \0 271 J k I 017 016 l
0005400 002 K 017 016 022 @ 021 021 001 H g \0 \0 \n \0 \0
0005420 271 H k I 017 016 022 021 b \v L _ 016 g \0 \0
0005440 \n \0 \0 276 O 016 k N 017 016 k 331 j @ _ 022
0005460 g \0 \0 \n \0 \0 _ 020 277 O 022 k O 020 017 016
0005500 L _ 026 g \0 \0 \n \0 \0 _ 024 277 O 026 k O
0005520 024 017 016 021 004 003 I H 363 263 027 J I \n \0 \0
0005540 M \n \0 \0 K I \v \0 \0 277 I k 324 Y 260 351
0005560 L 020 \0 ( 2 1 1 Q \ A S E T . 1
0005600 2 0 4 Q E Q P 2 0 0 Q \
0005620 A R E F . 1 1 5 1 Q F e t c
0005640 h M e t h o d O r H e l p 1 2
0005660 6 Q F e t c h M e t h o d O r
0005700 H e l p 1 0 3 Q F e t c h M
0005720 e t h o d O r H e l p 6 0 Q
0005740 F e t c h M e t h o d O r H e l
0005760 p 3 1 Q F e t c h M e t h o
0006000 d O r H e l p 1 7 Q F e t c
0006020 h M e t h o d O r H e l p 5
0006040 G e t O b j e c t R e c ) \r ( 1
0006060 4 6 Q L i n e a r A d d r e s
0006100 s a b l e A r r a y 1 2 3 Q
0006120 L i n e a r A d d r e s s a b l
0006140 e A r r a y 1 0 0 Q A r r a
0006160 y T o t a l S i z e 5 5 Q N
0006200 A R e p r e s e n t a t i o n
0006220 2 6 Q A r r a y D i m e n s i
0006240 o n s 1 4 Q N e w 2 B o
0006260 o l e a n A r r a y ) \r ( ) \r A
0006300 r r a y . S A M P L E D 1 \r (
0006320 P 2 3 Q l i n e a r R e s u
0006340 l t P 2 2 Q l i n e a r S
0006360 e l f P 2 1 Q s e l f S i
0006400 z e L e s s 1 P 2 0 Q I
0006420 P 6 r e s u l t I 2 w
0006440 i t h R e p l a c e m e n t I
0006460 1 s i z e I 0 s e l f
0006500 ) \0 323 024 \0 \0 003 @ d 004 ` \0 \0 360 246
0006520 d 004 ` \0 \0 360 222 311 \0 202 \t \0 \0 021 Q 005
0006540 H g \0 \0 \n \0 \0 275 H A 265 022 @ Z g \0
0006560 \0 \n \0 \0 271 J k I 017 016 260 023 \ g \0 \0
0006600 \n \0 \0 273 L g \0 \0 l 002 K 017 016 l 002 M
0006620 017 016 022 021 201 016 B 262 z N _ 020 g \0 \0 \n
0006640 \0 \0 _ 016 277 O 020 k O 016 017 016 k 331 j @
0006660 _ 024 g \0 \0 \n \0 \0 _ 022 277 O 024 k O 022
0006700 017 016 k 331 @ _ 030 g \0 \0 \n \0 \0 _ 026 277
0006720 O 030 k O 026 017 016 N _ 034 g \0 \0 \n \0 \0
0006740 _ 032 277 O 034 k O 032 017 016 021 005 023 O O
0006760 036 363 263 035 O $ j O " \n \0 \0 \n \0 \0 O
0007000 & O \v \0 \0 277 O k 324 _ 260 342 023
0007020 206 o \0 \0 \0 \t \0 \0 N 020 \0 ( 3 1 7 Q
0007040 H E L P C H E C K 2 7 5 Q
0007060 \ A S E T . 1 2 6 6 Q \ A R
0007100 E F . 1 2 6 3 Q R A N D 2
0007120 2 7 Q F e t c h M e t h o d O
0007140 r H e l p 2 0 4 Q F e t c h
0007160 M e t h o d O r H e l p 1 5 7
0007200 Q F e t c h M e t h o d O r H
0007220 e l p 1 3 1 Q F e t c h M e
0007240 t h o d O r H e l p 7 2 Q F
0007260 e t c h M e t h o d O r H e l p
0007300 5 3 Q F e t c h M e t h o d
0007320 O r H e l p 3 6 Q F e t c h
0007340 M e t h o d O r H e l p 2 4 Q
0007360 G e t L i s p C l a s s ) \r (
0007400 2 2 4 Q L i n e a r A d d r e
0007420 s s a b l e A r r a y 2 0 1 Q
0007440 L i n e a r A d d r e s s a b
0007460 l e A r r a y 1 5 4 Q A r r
0007500 a y T o t a l S i z e 1 2 6 Q
0007520 A r r a y T o t a l S i z e
0007540 7 7 Q F i x n u m 6 7 Q A
0007560 s A 5 0 Q A r r a y T o t a
0007600 l S i z e 3 3 Q N e w 1 4
0007620 Q 004 003 c l a s s T Y P E # 5
0007640 004 003 i n s t a n c e T Y P E #
0007660 ) \r ( 3 1 4 Q " C a n n o
0007700 t s a m p l e w i t h o u t
0007720 r e p l a c e m e n t y e t
0007740 . " ) \r F l o a t A r r a y . Q
0007760 G A U S S D 1 \r ( P 1 3 Q
0010000 s c a l e C o n f o r m e d P
0010020 1 2 Q s P 1 1 Q c e n
0010040 t e r C o n f o r m e d P 0
0010060 c I 2 s c a l e I 1
0010100 c e n t e r I 0 s e l f
0010120 ) \0 d \f \0 \0 003 A 265 006 o \0 \0 \0 021
0010140 201 \b H Z g \0 \0 \n \0 \0 271 J k I 017 016
0010160 \ g \0 \0 \n \0 \0 273 L @ l 002 K 017 016 021
0010200 021 \n B 265 006 o \0 \0 \0 _ 024 ^ g \0 \0 \n
0010220 \0 \0 275 N k M 017 016 _ 020 g \0 \0 \n \0 \0
0010240 _ 016 277 O 020 @ l 002 O 016 017 016 021 001 \v g
0010260 \0 \0 @ O 022 O 026 \f \0 \0 020 \0 ( 1 4 1
0010300 Q A p p l y T e r n a r y O p
0010320 1 0 7 Q F e t c h M e t h o
0010340 d O r H e l p 7 1 Q F e t c
0010360 h M e t h o d O r H e l p 3 6
0010400 Q F e t c h M e t h o d O r H
0010420 e l p 2 1 Q F e t c h M e t
0010440 h o d O r H e l p ) \r ( 1 3 1 Q
0010460 E R . Q G A U S S 1 0 4 Q
0010500 C o n f o r m W i t h 6 6 Q
0010520 A s A n y F l o a t 3 3 Q C
0010540 o n f o r m W i t h 1 6 Q A
0010560 s A n y F l o a t ) \r ( 6 0 Q
0010600 1 . 0 6 0 . 0 ) \r F l o a
0010620 t A r r a y . R G A U S S D 1
0010640 \r ( P 1 7 Q s c a l e C o n
0010660 f o r m e d P 1 6 Q s P
0010700 1 5 Q c e n t e r C o n f o
0010720 r m e d P 4 c I 2 s
0010740 c a l e I 1 c e n t e r
0010760 I 0 s e l f ) \0 260 020 \0 \0 003
0011000 @ 021 021 001 H g \0 \0 \n \0 \0 271 H k I 017
0011020 016 022 g \0 \0 360 262 - g \0 \0 \t \0 \0 021 1
0011040 003 H g \0 \0 \n \0 \0 273 H @ Z g \0 \0 \n
0011060 \0 \0 271 J k I 017 016 j 330 l 002 K 017 016 022
0011100 b \0 277 A 265 006 o \0 \0 \0 021 201 \f L ^ g
0011120 \0 \0 \n \0 \0 275 N k M 017 016 _ 020 g \0 \0
0011140 \n \0 \0 _ 016 277 O 020 @ l 002 O 016 017 016 021
0011160 021 016 B 265 006 o \0 \0 \0 _ 034 _ 024 g \0 \0
0011200 \n \0 \0 _ 022 277 O 024 k O 022 017 016 _ 030 g
0011220 \0 \0 \n \0 \0 _ 026 277 O 030 @ l 002 O 026 017
0011240 016 021 001 017 g \0 \0 O 032 O 036 \v \0 \0 020 \0
0011260 ( 2 5 5 Q A p p l y B i n a r
0011300 y O p 2 2 4 Q F e t c h M e
0011320 t h o d O r H e l p 2 0 2 Q
0011340 F e t c h M e t h o d O r H e l
0011360 p 1 4 2 Q F e t c h M e t h
0011400 o d O r H e l p 1 2 4 Q F e
0011420 t c h M e t h o d O r H e l p
0011440 6 1 Q F e t c h M e t h o d O
0011460 r H e l p 4 7 Q F e t c h M
0011500 e t h o d O r H e l p 3 5 Q
0011520 G e t O b j e c t R e c 1 2 Q
0011540 F e t c h M e t h o d O r H e
0011560 l p ) \r ( 2 4 6 Q E R . R G A
0011600 U S S 2 2 1 Q C o n f o r m
0011620 W i t h 1 7 7 Q A s A n y F
0011640 l o a t 1 3 7 Q C o n f o r
0011660 m W i t h 1 2 1 Q A s A n y
0011700 F l o a t 5 6 Q A s N a t i
0011720 v e O b j e c t 4 4 Q N e w
0011740 3 2 Q F l o a t V e c t o r
0011760 2 4 Q S c a l a r 7 T y
0012000 p e ) \r ( 1 7 0 Q 1 . 0 1
0012020 1 1 Q 0 . 0 ) \r F l o a t A r
0012040 r a y . R U N I F D 1 \r ( P
0012060 1 7 Q u p p e r C o n f o r m
0012100 e d P 1 6 Q u p p e r P
0012120 1 5 Q l o w e r C o n f o r
0012140 m e d P 4 l o w e r I
0012160 2 u p p e r E n d p o i n t
0012200 I 1 l o w e r E n d p o i n
0012220 t I 0 s e l f ) \0 260 020 \0
0012240 \0 003 @ 021 021 001 H g \0 \0 \n \0 \0 271 H k
0012260 I 017 016 022 g \0 \0 360 262 - g \0 \0 \t \0 \0
0012300 021 1 003 H g \0 \0 \n \0 \0 273 H @ Z g \0
0012320 \0 \n \0 \0 271 J k I 017 016 j 330 l 002 K 017
0012340 016 022 b \0 277 A 265 006 o \0 \0 \0 021 201 \f L
0012360 ^ g \0 \0 \n \0 \0 275 N k M 017 016 _ 020 g
0012400 \0 \0 \n \0 \0 _ 016 277 O 020 @ l 002 O 016 017
0012420 016 021 021 016 B 265 006 o \0 \0 \0 _ 034 _ 024 g
0012440 \0 \0 \n \0 \0 _ 022 277 O 024 k O 022 017 016 _
0012460 030 g \0 \0 \n \0 \0 _ 026 277 O 030 @ l 002 O
0012500 026 017 016 021 001 017 g \0 \0 O 032 O 036 \v \0 \0
0012520 020 \0 ( 2 5 5 Q A p p l y B i n
0012540 a r y O p 2 2 4 Q F e t c h
0012560 M e t h o d O r H e l p 2 0 2
0012600 Q F e t c h M e t h o d O r H
0012620 e l p 1 4 2 Q F e t c h M e
0012640 t h o d O r H e l p 1 2 4 Q
0012660 F e t c h M e t h o d O r H e l
0012700 p 6 1 Q F e t c h M e t h o
0012720 d O r H e l p 4 7 Q F e t c
0012740 h M e t h o d O r H e l p 3 5
0012760 Q G e t O b j e c t R e c 1
0013000 2 Q F e t c h M e t h o d O r
0013020 H e l p ) \r ( 2 4 6 Q E R . R
0013040 A N D 2 2 1 Q C o n f o r m
0013060 W i t h 1 7 7 Q A s A n y F
0013100 l o a t 1 3 7 Q C o n f o r
0013120 m W i t h 1 2 1 Q A s A n y
0013140 F l o a t 5 6 Q A s N a t i
0013160 v e O b j e c t 4 4 Q N e w
0013200 3 2 Q F l o a t V e c t o r
0013220 2 4 Q S c a l a r 7 T y
0013240 p e ) \r ( 1 7 0 Q 1 . 0 1
0013260 1 1 Q 0 . 0 ) \r F l o a t A r
0013300 r a y . S O R T D 1 \r ( I 0
0013320 s e l f ) \0 G \b \0 \0 001 g \0 \0
0013340 \t \0 \0 021 q \a H g \0 \0 \n \0 \0 271 H @
0013360 [ g \0 \0 \n \0 \0 272 K k J 017 016 @ ] g
0013400 \0 \0 \n \0 \0 274 M k L 017 016 _ 016 g \0 \0
0013420 \n \0 \0 276 O 016 k N 017 016 \t \0 \0 l 003 I
0013440 017 016 020 \0 ( 7 7 Q U F Q u i c k
0013460 S o r t 6 5 Q F e t c h M e
0013500 t h o d O r H e l p 4 7 Q F
0013520 e t c h M e t h o d O r H e l p
0013540 3 1 Q F e t c h M e t h o d
0013560 O r H e l p 1 7 Q F e t c h
0013600 M e t h o d O r H e l p 5 G
0013620 e t O b j e c t R e c ) \r ( 6 2
0013640 Q A s L i n e a r l y A d d r
0013660 e s s a b l e A r r a y 4 4 Q
0013700 C l o n e 2 6 Q A r r a y
0013720 T o t a l S i z e 1 4 Q N e
0013740 w 2 F l o a t V e c t o r )
0013760 \r ( ) \r F l o a t M a t r i x .
0014000 S V D D 1 \r ( P 1 7 Q c u
0014020 r s o r O n E n t r y P 1 6
0014040 Q V P 1 5 Q S P 2
0014060 U I 0 s e l f ) \0 301 020 \0
0014100 \0 001 @ 021 021 001 H g \0 \0 \n \0 \0 271 H k
0014120 I 017 016 022 021 241 \f g \0 \0 \t \0 \0 ^ g \0
0014140 \0 \n \0 \0 275 N J \ g \0 \0 \n \0 \0 273 L
0014160 k l 002 K 017 016 l 002 M 017 016 021 001 \r g \0
0014200 \0 \t \0 \0 _ 030 g \0 \0 \n \0 \0 _ 026 277 O
0014220 030 J _ 020 g \0 \0 \n \0 \0 _ 016 277 O 020 k
0014240 l 002 O 016 017 016 J _ 024 g \0 \0 \n \0 \0 _
0014260 022 277 O 024 k l 002 O 022 017 016 h 032 032 l 002
0014300 O 026 017 016 021 001 016 ` \0 \0 \t \0 \0 021 001 017
0014320 J g \0 \0 \n \0 \0 O 032 g \0 \0 \n \0 \0 O
0014340 034 g \0 \0 \n \0 \0 \v \0 \0 O 036 \t \0 \0 g
0014360 \0 \0 J g \0 \0 O 032 g \0 \0 O 034 \r 006 \0
0014400 \0 020 \0 ( 2 7 6 Q C S T R 2 5
0014420 4 Q S E T C U R S O R 2 4 7
0014440 Q S V D N A S H 2 4 4 Q G
0014460 e t V a l u e 2 3 4 Q G e t
0014500 V a l u e 2 2 4 Q G e t V a
0014520 l u e 2 1 2 Q C U R S O R
0014540 1 5 4 Q F e t c h M e t h o d
0014560 O r H e l p 1 2 7 Q F e t c
0014600 h M e t h o d O r H e l p 1 1
0014620 1 Q F e t c h M e t h o d O r
0014640 H e l p 1 0 1 Q G e t O b j
0014660 e c t R e c 5 3 Q F e t c h
0014700 M e t h o d O r H e l p 4 1 Q
0014720 F e t c h M e t h o d O r H e
0014740 l p 3 2 Q G e t O b j e c t
0014760 R e c 1 2 Q F e t c h M e t
0015000 h o d O r H e l p ) \r ( 2 7 0 Q
0015020 V 2 6 3 Q S 2 5 7 Q U
0015040 2 4 1 Q T h e C M L A r r a
0015060 y 2 3 1 Q T h e C M L A r r
0015100 a y 2 2 1 Q T h e C M L A r
0015120 r a y 2 0 7 Q W A I T I N G
0015140 C U R S O R 1 5 1 Q A r r a
0015160 y D i m e n s i o n 1 2 4 Q
0015200 A r r a y D i m e n s i o n 1
0015220 0 6 Q N e w 7 6 Q F l o a
0015240 t V e c t o r 5 0 Q A r r a
0015260 y D i m e n s i o n 3 6 Q N
0015300 e w 2 7 Q F l o a t V e c t
0015320 o r 7 C l o n e ) \r ( ) \r F
0015340 l o a t V e c t o r . B o x P l
0015360 o t D 1 \r ( P 3 I t s P l
0015400 o t P 2 T h e B o x P l o
0015420 t I 0 s e l f ) \0 9 004 \0
0015440 \0 001 g \0 \0 \t \0 \0 021 021 001 H g \0 \0 \n
0015460 \0 \0 271 H g \0 \0 @ h 032 032 h 032 l 002 I
0015500 017 016 022 021 001 002 J g \0 \0 \n \0 \0 021 001 003
0015520 K g \0 \0 h \v \0 \0 J 020 \0 ( 6 5 Q
0015540 P L O T T I C S 5 2 Q G e t
0015560 V a l u e 1 7 Q F e t c h M
0015600 e t h o d O r H e l p 5 G e
0015620 t O b j e c t R e c ) \r ( 6 1 Q
0015640 B O T T O M 4 7 Q T h e P
0015660 l o t 2 4 Q B a t c h 1 4
0015700 Q N e w W i t h V a l u e s
0015720 2 B o x P l o t ) \r ( ) \r F l
0015740 o a t V e c t o r . H i s t o g
0015760 r a m D 1 \r ( I 0 s e l f
0016000 ) \0 " 002 \0 \0 001 g \0 \0 \t \0 \0 021 021
0016020 001 H g \0 \0 \n \0 \0 271 H g \0 \0 @ h 032
0016040 032 h 032 l 002 I 017 016 020 \0 ( 1 7 Q F
0016060 e t c h M e t h o d O r H e l p
0016100 5 G e t O b j e c t R e c )
0016120 \r ( 2 4 Q B a t c h 1 4 Q
0016140 N e w W i t h V a l u e s 2
0016160 H i s t o g r a m ) \r ( ) \r F l
0016200 o a t V e c t o r . I n d e x P
0016220 l o t D 1 \r ( I 0 s e l f
0016240 ) \0 " 002 \0 \0 001 g \0 \0 \t \0 \0 021 021
0016260 001 H g \0 \0 \n \0 \0 271 H g \0 \0 @ h 032
0016300 032 h 032 l 002 I 017 016 020 \0 ( 1 7 Q F
0016320 e t c h M e t h o d O r H e l p
0016340 5 G e t O b j e c t R e c )
0016360 \r ( 2 4 Q Y 1 4 Q N e w W
0016400 i t h V a l u e s 2 I n d e
0016420 x P l o t ) \r ( ) \r F l o a t V
0016440 e c t o r . S c a t t e r P l o
0016460 t D 1 \r ( P 2 T h e S c a
0016500 t t e r P l o t I 1 a r g
0016520 R i g h t I 0 s e l f )
0016540 \0 E 005 \0 \0 002 g \0 \0 \t \0 \0 021 021 001 H
0016560 g \0 \0 \n \0 \0 271 H g \0 \0 A h 032 032 g
0016600 \0 \0 @ h 032 032 h 032 032 l 002 I 017 016 022 021
0016620 ! 004 J g \0 \0 \n \0 \0 \ g \0 \0 \n \0 \0
0016640 273 L J l 002 K 017 016 J 020 \0 ( 7 1 Q
0016660 F e t c h M e t h o d O r H e l
0016700 p 6 2 Q G e t V a l u e 1
0016720 7 Q F e t c h M e t h o d O r
0016740 H e l p 5 G e t O b j e c t
0016760 R e c ) \r ( 6 6 Q A n a l y s
0017000 i s L i n k 5 7 Q X 3 3 Q
0017020 Y 2 4 Q X 1 4 Q N e w
0017040 W i t h V a l u e s 2 D y n
0017060 a m i c S c a t t e r P l o t )
0017100 \r ( ) \r M a t r i x . N C O L
0017120 D 1 \r ( I 0 s e l f ) \0 -
0017140 004 \0 \0 001 g \0 \0 \t \0 \0 021 1 003 H g \0
0017160 \0 \n \0 \0 271 H h @ [ g \0 \0 \n \0 \0 272
0017200 K k l 002 J 017 016 006 \0 \0 l 003 I 017 016 020
0017220 \0 ( 3 2 Q F e t c h M e t h o
0017240 d O r H e l p 1 7 Q F e t c
0017260 h M e t h o d O r H e l p 5
0017300 G e t O b j e c t R e c ) \r ( 4
0017320 5 Q F L O A T P 2 7 Q A r
0017340 r a y D i m e n s i o n 1 4 Q
0017360 N e w 2 F l o a t S c a l
0017400 a r ) \r ( ) \r M a t r i x . N R
0017420 O W D 1 \r ( I 0 s e l f )
0017440 \0 - 004 \0 \0 001 g \0 \0 \t \0 \0 021 1 003
0017460 H g \0 \0 \n \0 \0 271 H h @ [ g \0 \0 \n
0017500 \0 \0 272 K j l 002 J 017 016 006 \0 \0 l 003 I
0017520 017 016 020 \0 ( 3 2 Q F e t c h M e
0017540 t h o d O r H e l p 1 7 Q F
0017560 e t c h M e t h o d O r H e l p
0017600 5 G e t O b j e c t R e c )
0017620 \r ( 4 5 Q F L O A T P 2 7 Q
0017640 A r r a y D i m e n s i o n
0017660 1 4 Q N e w 2 F L o a t S
0017700 c a l a r ) \r ( ) \r M a t r i x
0017720 . T R A N S P O S E D 1 \r ( P
0017740 1 6 Q n e w A r r a y P
0017760 1 5 Q s e l f A r r a y P
0020000 1 4 Q i P 4 N e w M a t
0020020 r i x I 0 s e l f ) \0 261
0020040 017 \0 \0 001 @ d 004 ` \0 \0 360 246 d 004 ` \0
0020060 \0 360 222 311 \0 202 \t \0 \0 021 1 003 H g \0 \0
0020100 \n \0 \0 273 H @ Z g \0 \0 \n \0 \0 271 J k
0020120 I 017 016 \t \0 \0 l 002 K 017 016 022 021 a \n @
0020140 ^ g \0 \0 \n \0 \0 275 N j l 002 M 017 016 k
0020160 331 j @ g \0 \0 \n \0 \0 L g \0 \0 \n \0 \0
0020200 021 004 016 O 030 O 026 363 263 J @ _ 020 g \0 \0
0020220 \n \0 \0 _ 016 277 O 020 k l 002 O 016 017 016 k
0020240 331 j _ 024 277 _ 022 277 O 024 O 022 363 263 035 O
0020260 032 O 030 O 024 \v \0 \0 O 034 O 024 O 030 \f \0
0020300 \0 277 O 024 k 324 _ 024 260 342 O 030 k 324 _ 030
0020320 260 265 L 020 \0 ( 2 3 4 Q \ A S E T
0020340 . 2 2 2 3 Q \ A R E F . 2
0020360 1 5 6 Q F e t c h M e t h o d
0020400 O r H e l p 1 3 3 Q G e t V
0020420 a l u e 1 2 4 Q G e t V a l
0020440 u e 1 0 2 Q F e t c h M e t
0020460 h o d O r H e l p 6 1 Q R E
0020500 V E R S E 5 0 Q F e t c h M
0020520 e t h o d O r H e l p 3 6 Q
0020540 F e t c h M e t h o d O r H e l
0020560 p 2 4 Q G e t L i s p C l a
0020600 s s ) \r ( 1 5 3 Q A r r a y D
0020620 i m e n s i o n 1 3 0 Q T h
0020640 e C M L A r r a y 1 2 1 Q T
0020660 h e C M L A r r a y 7 7 Q A
0020700 r r a y D i m e n s i o n 4 5
0020720 Q A r r a y D i m e n s i o n
0020740 s 3 3 Q N e w 1 4 Q 004 003
0020760 c l a s s T Y P E # 5 004 003 i
0021000 n s t a n c e T Y P E # ) \r ( )
0021020 \r S t r i n g A r r a y . S O R
0021040 T D 1 \r ( I 0 s e l f )
0021060 \0 ; 006 \0 \0 001 g \0 \0 \t \0 \0 021 Q 005 H
0021100 g \0 \0 \n \0 \0 271 H @ [ g \0 \0 \n \0 \0
0021120 272 K k J 017 016 @ ] g \0 \0 \n \0 \0 274 M
0021140 k L 017 016 g \0 \0 \n \0 \0 l 003 I 017 016 020
0021160 \0 ( 6 3 Q S O R T 4 7 Q F
0021200 e t c h M e t h o d O r H e l p
0021220 3 1 Q F e t c h M e t h o d
0021240 O r H e l p 1 7 Q F e t c h
0021260 M e t h o d O r H e l p 5 G
0021300 e t O b j e c t R e c ) \r ( 6 0
0021320 Q A L P H A O R D E R 4 4 Q
0021340 A s L i s t 2 6 Q A r r a
0021360 y T o t a l S i z e 1 4 Q N
0021400 e w 2 S t r i n g V e c t o
0021420 r ) \r ( ) \r R e t u r n C M L A
0021440 r r a y D 1 \r ( I 0 X )
0021460 \0 Y 002 \0 \0 001 @ d 004 ` \0 \0 360 263 H \t
0021500 \0 \0 021 001 \0 H 004 ` \0 \0 360 265 \b H 004 `
0021520 \0 \0 360 022 262 2 @ \t \0 \0 021 021 001 H g \0
0021540 \0 \n \0 \0 271 H g \0 \0 l 002 I 017 016 022 262
0021560 027 @ \t \0 \0 021 021 001 H g \0 \0 \n \0 \0 271
0021600 H k I 017 016 020 o \0 \0 \0 \t \0 \0 020 \0 (
0021620 1 2 6 Q E R R O R 1 1 0 Q
0021640 F e t c h M e t h o d O r H e l
0021660 p 7 6 Q $ ! 5 5 Q F e t
0021700 c h M e t h o d O r H e l p 4
0021720 3 Q $ ! 1 3 Q $ ! ) \r ( 1
0021740 0 5 Q A s L i n e a r l y A d
0021760 d r e s s a b l e A r r a y 6
0022000 2 Q T h e C M L A r r a y 5
0022020 2 Q H a s I V 3 3 Q 004 003 c
0022040 l a s s T Y P E # 2 3 Q 004 003
0022060 i n s t a n c e T Y P E # 5
0022100 004 003 A R R A Y T Y P E # ) \r (
0022120 1 2 3 Q " T h e a r g u m e
0022140 n t n e i t h e r i s , n
0022160 o r h a s , a C M L A R R
0022200 A Y " ) \r ( P R E T T Y C O M P
0022220 R I N T D I N D E M I S C C O
0022240 M S ) \r ( R P A Q Q D I N D E
0022260 M I S C C O M S ( ( M E T H O
0022300 D S A r r a y . A R R A Y A
0022320 r r a y . D I M S O F A r r a
0022340 y . M A T R I X A r r a y . N
0022360 A A r r a y . S A M P L E \r
0022400 F l o a t A r r a y . Q G A U S
0022420 S F l o a t A r r a y . R G A
0022440 U S S F l o a t A r r a y . R
0022460 U N I F F l o a t A r r a y .
0022500 S O R T F l o a t M a t r i x
0022520 . S V D \r F l o a t V e c t o
0022540 r . B o x P l o t F l o a t V
0022560 e c t o r . H i s t o g r a m
0022600 F l o a t V e c t o r . I n d e
0022620 x P l o t F l o a t V e c t o
0022640 r . S c a t t e r P l o t M a
0022660 t r i x . N C O L \r M a t r i
0022700 x . N R O W M a t r i x . T R
0022720 A N S P O S E S t r i n g A r
0022740 r a y . S O R T T r e e S t r
0022760 u c t u r e . C O M P N A M E
0023000 T r e e S t r u c t u r e . N C
0023020 O M P ) ( F N S \r R e t u r
0023040 n C M L A r r a y ) ) ) \r ( M E
0023060 T H A r r a y A R R A Y (
0023100 d i m s ) ( * R e t u r n
0023120 a n a r r a y w i t h t h
0023140 e s a m e m o d e a s s
0023160 e l f , d i m e n s i o n a l
0023200 t i y d e s c r i b e d b y
0023220 \r t h e a r g u m e n t <
0023240 d i m s > ( w h i c h d e f
0023260 a u l t s t o t h e A r r
0023300 a y T o t a l S i z e o f s
0023320 e l f ) , a n d w h o s e
0023340 c o n t e n t s a r e t a
0023360 k e n f r o m \r s e l f . )
0023400 ( m e t h o d A r r a y . A
0023420 R R A Y M e t h o d C l a s s
0023440 i f i c a t i o n C o n s t r
0023460 u c t o r ) ) \r ( M E T H A r
0023500 r a y D I M S O F N I L (
0023520 * R e t u r n a F l o a t
0023540 V e c t o r o f r a n k 1
0023560 w h o s e c o m p o n e n t
0023600 s a r e t h e d i m e n s
0023620 i o n s o f t h e \r a x e
0023640 s o f T h e C M L A r r a y
0023660 . ) ( m e t h o d A r r a y
0023700 . D I M S O F M e t h o d C l
0023720 a s s i f i c a t i o n S t r
0023740 u c t u r e D e s c r i p t i o
0023760 n ) ) \r ( M E T H A r r a y
0024000 M A T R I X ( n r o w n c o
0024020 l b y r o w ) N I L ( m e
0024040 t h o d A r r a y . M A T R I
0024060 X M e t h o d C l a s s i f i
0024100 c a t i o n C o n s t r u c t
0024120 o r ) ) \r ( M E T H A r r a y
0024140 N A N I L N I L ( m e t
0024160 h o d A r r a y . N A M e t
0024200 h o d C l a s s i f i c a t i o
0024220 n N A H a n d l i n g ) ) \r (
0024240 M E T H A r r a y S A M P L
0024260 E ( s i z e w i t h R e p l
0024300 a c e m e n t ) N I L ( m e
0024320 t h o d A r r a y . S A M P L
0024340 E M e t h o d C l a s s i f i
0024360 c a t i o n R a n d o m S a m
0024400 p l i n g \r ) ) \r ( M E T H F
0024420 l o a t A r r a y Q G A U S S
0024440 ( c e n t e r s c a l e )
0024460 N I L ( m e t h o d F l o a
0024500 t A r r a y . Q G A U S S M e
0024520 t h o d C l a s s i f i c a t i
0024540 o n \r P r o b a b i l i t i e
0024560 s / Q u a n t i l e s ) ) \r ( M
0024600 E T H F l o a t A r r a y R
0024620 G A U S S ( c e n t e r s c
0024640 a l e ) N I L ( m e t h o d
0024660 F l o a t A r r a y . R G A U
0024700 S S M e t h o d C l a s s i f
0024720 i c a t i o n \r R a n d o m S
0024740 a m p l i n g ) ) \r ( M E T H
0024760 F l o a t A r r a y R U N I F
0025000 ( l o w e r E n d p o i n t
0025020 u p p e r E n d p o i n t ) N
0025040 I L ( m e t h o d F l o a t
0025060 A r r a y . R U N I F M e t h
0025100 o d C l a s s i f i c a t i o n
0025120 \r R a n d o m S a m p l i n g
0025140 ) ) \r ( M E T H F l o a t A r
0025160 r a y S O R T N I L ( *
0025200 R e t u r n a F l o a t V e
0025220 c t o r w h o s e c o n t e
0025240 n t s i s t h e v a l u e
0025260 s o f s e l f s o r t e d
0025300 i n \r i n c r e a s i n g
0025320 o r d e r . D O E S N ' T H
0025340 A N D L E N A S ! ) ( m e t
0025360 h o d F l o a t A r r a y . S
0025400 O R T M e t h o d C l a s s i
0025420 f i c a t i o n R a n k i n g
0025440 / S o r t i n g ) ) \r ( M E T H
0025460 F l o a t M a t r i x S V D
0025500 N I L ( * C a l c u l a t
0025520 e t h e S i n g u l a r - v
0025540 a l u e d e c o m p o s i t i
0025560 o n o f s e l f . R e t u
0025600 r n a \r T r e e S t r u c t
0025620 u r e w i t h n a m e d c
0025640 o m p o n e n t s U , S a
0025660 n d V . ) ( m e t h o d F
0025700 l o a t M a t r i x . S V D M
0025720 e t h o d C l a s s i f i c a t
0025740 i o n \r M a t r i x O p e r a
0025760 t i o n ) ) \r ( M E T H F l o
0026000 a t V e c t o r B o x P l o t
0026020 N I L ( * P r o d u c e
0026040 a B o x P l o t o f t h e
0026060 d a t a i n t h i s F l
0026100 o a t V e c t o r . ) ( m e t
0026120 h o d \r F l o a t V e c t o r
0026140 . B o x P l o t M e t h o d C
0026160 l a s s i f i c a t i o n G r
0026200 a p h i c a l D i s p l a y ) )
0026220 \r ( M E T H F l o a t V e c t
0026240 o r H i s t o g r a m N I L
0026260 ( * P r o d u c e a H i
0026300 s t o g r a m o f t h e d
0026320 a t a i n t h i s F l o a
0026340 t V e c t o r . ) ( m e t h o
0026360 d \r F l o a t V e c t o r . H
0026400 i s t o g r a m M e t h o d C
0026420 l a s s i f i c a t i o n G r
0026440 a p h i c a l D i s p l a y ) )
0026460 \r ( M E T H F l o a t V e c t
0026500 o r I n d e x P l o t N I L
0026520 N I L ( m e t h o d F l o
0026540 a t V e c t o r . I n d e x P l
0026560 o t M e t h o d C l a s s i f
0026600 i c a t i o n \r G r a p h i c
0026620 a l D i s p l a y ) ) \r ( M E T
0026640 H F l o a t V e c t o r S c
0026660 a t t e r P l o t ( a r g R i
0026700 g h t ) ( * S c a t t e r
0026720 p l o t t h e a r g u m e n
0026740 t < a r g R i g h t > o n
0026760 t h e v e r i t c a l a x i
0027000 s \r v e r s u s s e l f o
0027020 n t h e h o r i z o n t a l
0027040 a x i s . ) ( m e t h o d
0027060 F l o a t V e c t o r . S c a t
0027100 t e r P l o t M e t h o d C l
0027120 a s s i f i c a t i o n \r G r
0027140 a p h i c a l D i s p l a y ) )
0027160 \r ( M E T H M a t r i x N C
0027200 O L N I L N I L ( m e t h
0027220 o d M a t r i x . N C O L M
0027240 e t h o d C l a s s i f i c a t
0027260 i o n S t r u c t u r e D e s
0027300 c r i p t i o n ) ) \r ( M E T H
0027320 M a t r i x N R O W N I L
0027340 N I L ( m e t h o d M a t
0027360 r i x . N R O W M e t h o d C
0027400 l a s s i f i c a t i o n S t
0027420 r u c t u r e D e s c r i p t i
0027440 o n ) ) \r ( M E T H M a t r i
0027460 x T R A N S P O S E N I L
0027500 N I L ( m e t h o d M a t r
0027520 i x . T R A N S P O S E M e t
0027540 h o d C l a s s i f i c a t i o
0027560 n M a t r i x O p e r a t i o
0027600 n ) ) \r ( M E T H S t r i n g
0027620 A r r a y S O R T N I L (
0027640 * N e w m e t h o d t e m
0027660 p l a t e ) ( m e t h o d S
0027700 t r i n g A r r a y . S O R T
0027720 M e t h o d C l a s s i f i c a
0027740 t i o n \r R a n k i n g / S o
0027760 r t i n g ) ) \r ( M E T H T r
0030000 e e S t r u c t u r e C O M P
0030020 N A M E N I L N I L ( m e
0030040 t h o d T r e e S t r u c t u
0030060 r e . C O M P N A M E M e t h
0030100 o d C l a s s i f i c a t i o n
0030120 \r S t r u c t u r e D e s c r
0030140 i p t i o n ) ) \r ( M E T H T
0030160 r e e S t r u c t u r e N C O
0030200 M P N I L N I L ( m e t h
0030220 o d T r e e S t r u c t u r e
0030240 . N C O M P M e t h o d C l a
0030260 s s i f i c a t i o n \r S t r
0030300 u c t u r e D e s c r i p t i o
0030320 n ) ) \r ( P U T P R O P S D I
0030340 N D E M I S C C O P Y R I G H
0030360 T ( " M a s s a c h u s e t t
0030400 s I n s t i t u t e o f T
0030420 e c h n o l o g y " 1 9 8 5
0030440 1 9 8 6 ) ) \r N I L \r
0030453