$ od -c -N 50000 [qv]<IDL>koto>EARRAY-MATRIXFNS.DCOM!1
0000000 ( F I L E C R E A T E D " 2 7
0000020 - J u n - 8 6 1 8 : 1 7 : 1 1
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 > E A R R A Y - M A T R
0000120 I X F N S . ; 3 ) \r " 1 2 - N
0000140 o v - 8 5 1 4 : 5 9 : 2 3 "
0000160 r e c o m p i l e d c h a n g
0000200 e s : E A R R A Y - M A T R I
0000220 X - T I M E S i n " I N T E
0000240 R L I S P - D 1 1 - M a y - 8
0000260 6 . . . " d a t e d \r " 1
0000300 1 - M a y - 8 6 1 5 : 1 9 : 0
0000320 8 " ) \r ( F I L E C R E A T E D
0000340 " 2 7 - J u n - 8 6 1 8 : 1
0000360 6 : 2 8 " { Q V } < P E D E R
0000400 S E N > L I S P > E A R R A Y -
0000420 M A T R I X F N S . ; 3 6 7 6
0000440 9 c h a n g e s t o : ( F
0000460 N S \r E A R R A Y - M A T R I
0000500 X - T I M E S ) p r e v i o u
0000520 s d a t e : " 1 6 - J u n -
0000540 8 6 1 8 : 3 6 : 4 2 " { Q V
0000560 } < P E D E R S E N > L I S P >
0000600 E A R R A Y - M A T R I X F N S
0000620 . ; 2 ) \r E A R R A Y - M A T R
0000640 I X - D I A G D 1 \r ( L ( 1
0000660 R E S U L T 0 M A T R I X
0000700 ) ) \0 g 002 \0 \0 002 @ \t \0 \0 l 002 360
0000720 250 o \0 \0 \0 @ \n \0 \0 277 A @ j \n \0 \0
0000740 @ k \n \0 \0 021 002 001 H d I 361 221 277 I 022
0000760 h 032 @ \t \0 \0 \v \0 \0 b 002 @ j \n \0 \0
0001000 @ k \n \0 \0 021 002 001 H d I 361 221 277 I 022
0001020 k 331 j 021 002 001 I H 363 263 024 @ I d \v \0
0001040 \0 A I \v \0 \0 277 I k 324 Y 260 354 A 020 \0
0001060 ( 1 3 4 Q \ A S E T . 1 1 2
0001100 7 Q \ A R E F . 2 7 3 Q E
0001120 A R R A Y - D I M E N S I O N
0001140 6 6 Q E A R R A Y - D I M E N
0001160 S I O N 5 7 Q E A R R A Y -
0001200 T E S T - R E S U L T 5 4 Q
0001220 E A R R A Y - E L E M E N T - T
0001240 Y P E 3 3 Q E A R R A Y - D
0001260 I M E N S I O N 2 6 Q E A R
0001300 R A Y - D I M E N S I O N 1 7
0001320 Q E R R O R 3 E A R R A Y
0001340 - R A N K ) \r N I L \r ( 1 3 Q
0001360 " N o t a m a t r i x " )
0001400 \r E A R R A Y - M A T R I X - I
0001420 N V E R S E D 1 \r ( L ( 1
0001440 R E S U L T 0 M A T R I X )
0001460 ) \0 h 001 \0 \0 002 @ d \t \0 \0 l 002 360
0001500 252 277 o \0 \0 \0 @ \n \0 \0 277 @ j \n \0 \0
0001520 @ k \n \0 \0 360 250 o \0 \0 \0 @ \n \0 \0 277
0001540 A @ \t \0 \0 g \0 \0 \v \0 \0 b 002 @ d \t
0001560 \0 \0 g \0 \0 360 222 277 @ 202 \t \0 \0 A d \t
0001600 \0 \0 g \0 \0 360 222 277 A 202 \t \0 \0 \n \0 \0
0001620 021 001 \0 H A 360 245 H h A \v \0 \0 A 020 \0
0001640 ( 1 4 4 Q E A R R A Y - B L T
0001660 1 2 7 Q M I N V E R T 1 2
0001700 4 Q E A R R A Y - F L O A T
0001720 1 1 1 Q E A R R A Y - E L E M
0001740 E N T - T Y P E 1 0 4 Q E A
0001760 R R A Y - F L O A T 7 1 Q E
0002000 A R R A Y - E L E M E N T - T Y
0002020 P E 6 2 Q E A R R A Y - T E
0002040 S T - R E S U L T 5 4 Q E A
0002060 R R A Y - D I M E N S I O N S
0002100 4 6 Q E R R O R 3 4 Q E A
0002120 R R A Y - D I M E N S I O N 2
0002140 7 Q E A R R A Y - D I M E N S
0002160 I O N 2 1 Q E R R O R 4
0002200 E A R R A Y - R A N K ) \r ( 1 1
0002220 4 Q S I N G L E - F L O A T
0002240 7 4 Q S I N G L E - F L O A T
0002260 5 7 Q S I N G L E - F L O A
0002300 T ) \r ( 4 2 Q " M a t r i x
0002320 n o t s q u a r e " 1 5 Q
0002340 " N o t a m a t r i x " )
0002360 \r E A R R A Y - M A T R I X - R
0002400 E G R E S S D 1 \r ( L ( 2
0002420 R E S U L T 1 M A T R I X
0002440 0 Y V E C T O R ) ) \0 206 001 \0
0002460 \0 003 A \t \0 \0 l 002 360 250 o \0 \0 \0 A \n
0002500 \0 \0 277 @ \t \0 \0 k 360 250 o \0 \0 \0 @ \n
0002520 \0 \0 277 A j \n \0 \0 @ j \n \0 \0 360 247 o
0002540 \0 \0 \0 \t \0 \0 277 B A k \n \0 \0 g \0 \0
0002560 \v \0 \0 b 004 @ d \t \0 \0 g \0 \0 360 222 277
0002600 @ 202 \t \0 \0 A d \t \0 \0 g \0 \0 360 222 277
0002620 A 202 \t \0 \0 B d \t \0 \0 g \0 \0 360 222 277
0002640 B 202 \t \0 \0 \v \0 \0 021 001 \0 H B 360 245 H
0002660 h B \v \0 \0 B 020 \0 ( 2 0 2 Q E A
0002700 R R A Y - B L T 1 6 5 Q M R
0002720 E G R E S S 1 6 2 Q E A R R
0002740 A Y - F L O A T 1 4 7 Q E A
0002760 R R A Y - E L E M E N T - T Y P
0003000 E 1 4 2 Q E A R R A Y - F L
0003020 O A T 1 2 7 Q E A R R A Y -
0003040 E L E M E N T - T Y P E 1 2 2
0003060 Q E A R R A Y - F L O A T 1
0003100 0 7 Q E A R R A Y - E L E M E
0003120 N T - T Y P E 1 0 0 Q E A R
0003140 R A Y - T E S T - R E S U L T
0003160 7 2 Q E A R R A Y - D I M E N
0003200 S I O N 6 3 Q E R R O R 5
0003220 2 Q E A R R A Y - D I M E N S
0003240 I O N 4 5 Q E A R R A Y - D
0003260 I M E N S I O N 3 7 Q E R R
0003300 O R 2 4 Q E A R R A Y - R A
0003320 N K 1 7 Q E R R O R 3 E
0003340 A R R A Y - R A N K ) \r ( 1 5 2
0003360 Q S I N G L E - F L O A T 1
0003400 3 2 Q S I N G L E - F L O A T
0003420 1 1 2 Q S I N G L E - F L O
0003440 A T 7 5 Q S I N G L E - F L
0003460 O A T ) \r ( 6 0 Q " A r g s
0003500 n o t c o n f o r m a b l e
0003520 " 3 3 Q " N o t a v e c
0003540 t o r " 1 3 Q " N o t a
0003560 m a t r i x " ) \r E A R R A Y -
0003600 M A T R I X - S O L V E D 1 \r
0003620 ( L ( 2 R E S U L T 1 C
0003640 V E C T O R 0 M A T R I X )
0003660 ) \0 232 001 \0 \0 003 @ \t \0 \0 l 002 360 250
0003700 o \0 \0 \0 @ \n \0 \0 277 A \t \0 \0 k 360 250
0003720 o \0 \0 \0 A \n \0 \0 277 @ j \n \0 \0 @ k
0003740 \n \0 \0 360 250 o \0 \0 \0 @ \n \0 \0 277 @ j
0003760 \n \0 \0 A j \n \0 \0 360 247 o \0 \0 \0 \t \0
0004000 \0 277 B A \t \0 \0 g \0 \0 \v \0 \0 b 004 @
0004020 d \t \0 \0 g \0 \0 360 222 277 @ 202 \t \0 \0 A
0004040 d \t \0 \0 g \0 \0 360 222 277 A 202 \t \0 \0 B
0004060 d \t \0 \0 g \0 \0 360 222 277 B 202 \t \0 \0 \v
0004100 \0 \0 021 001 \0 H B 360 245 H h B \v \0 \0 B
0004120 020 \0 ( 2 2 6 Q E A R R A Y - B
0004140 L T 2 1 1 Q M S O L V E 2
0004160 0 6 Q E A R R A Y - F L O A T
0004200 1 7 3 Q E A R R A Y - E L E
0004220 M E N T - T Y P E 1 6 6 Q E
0004240 A R R A Y - F L O A T 1 5 3 Q
0004260 E A R R A Y - E L E M E N T -
0004300 T Y P E 1 4 6 Q E A R R A Y
0004320 - F L O A T 1 3 3 Q E A R R
0004340 A Y - E L E M E N T - T Y P E
0004360 1 2 4 Q E A R R A Y - T E S T
0004400 - R E S U L T 1 1 6 Q E A R
0004420 R A Y - D I M E N S I O N S 1
0004440 1 0 Q E R R O R 7 7 Q E A
0004460 R R A Y - D I M E N S I O N 7
0004500 2 Q E A R R A Y - D I M E N S
0004520 I O N 6 4 Q E R R O R 5 2
0004540 Q E A R R A Y - D I M E N S I
0004560 O N 4 5 Q E A R R A Y - D I
0004600 M E N S I O N 3 7 Q E R R O
0004620 R 2 4 Q E A R R A Y - R A N
0004640 K 1 7 Q E R R O R 3 E A
0004660 R R A Y - R A N K ) \r ( 1 7 6 Q
0004700 S I N G L E - F L O A T 1 5
0004720 6 Q S I N G L E - F L O A T
0004740 1 3 6 Q S I N G L E - F L O A
0004760 T 1 2 1 Q S I N G L E - F L
0005000 O A T ) \r ( 1 0 5 Q " A r g
0005020 s n o t c o n f o r m a b l
0005040 e " 6 0 Q " M a t r i x n
0005060 o t s q u a r e " 3 3 Q "
0005100 N o t a v e c t o r " 1 3
0005120 Q " N o t a m a t r i x "
0005140 ) \r E A R R A Y - M A T R I X -
0005160 T I M E S D 1 \r ( L ( 2 R
0005200 E S U L T 1 M A T R I X 2
0005220 0 M A T R I X 1 ) ) \0 227 004 \0
0005240 \0 003 l 003 @ \t \0 \0 361 250 o \0 \0 \0 @ \n
0005260 \0 \0 277 l 003 A \t \0 \0 361 250 o \0 \0 \0 A
0005300 \n \0 \0 277 @ \t \0 \0 @ \t \0 \0 A \t \0 \0
0005320 A \t \0 \0 021 004 003 H \t \0 \0 001 J 001 360 247
0005340 o \0 \0 \0 \t \0 \0 277 B H d \t \0 \0 \n \0
0005360 \0 J 002 \n \0 \0 I K \n \0 \0 \v \0 \0 b 004
0005400 I g \0 \0 360 262 036 K g \0 \0 360 262 027 d \t
0005420 \0 \0 230 B \t \0 \0 g \0 \0 360 226 @ A B \v
0005440 \0 \0 020 g \0 \0 g \0 \0 @ A B h d I K
0005460 \n \0 \0 \r \b \0 \0 020 \0 ( 2 2 4 Q E
0005500 A R R A Y - I N N E R - P R O D
0005520 U C T 2 2 0 Q E A R R A Y -
0005540 A R I T H - T Y P E 1 7 7 Q
0005560 M T I M E S 1 6 4 Q E A R R
0005600 A Y - E L E M E N T - T Y P E
0005620 1 5 7 Q C L : A R R A Y P 1
0005640 3 3 Q E A R R A Y - T E S T -
0005660 R E S U L T 1 3 0 Q E A R R
0005700 A Y - A R I T H - T Y P E 1 2
0005720 3 Q \ A P P E N D 2 1 1 6 Q
0005740 L D I F F 1 1 3 Q L A S T
0005760 1 0 4 Q E R R O R 7 0 Q
0006000 L A S T 6 1 Q E A R R A Y -
0006020 E L E M E N T - T Y P E 5 5 Q
0006040 E A R R A Y - D I M E N S I O
0006060 N S 5 1 Q E A R R A Y - E L
0006100 E M E N T - T Y P E 4 5 Q E
0006120 A R R A Y - D I M E N S I O N S
0006140 4 0 Q E R R O R 2 6 Q E
0006160 A R R A Y - R A N K 1 7 Q E
0006200 R R O R 5 E A R R A Y - R A
0006220 N K ) \r ( 2 0 6 Q T I M E S
0006240 2 0 3 Q P L U S 1 6 7 Q S
0006260 I N G L E - F L O A T 1 5 0 Q
0006300 S I N G L E - F L O A T 1 4
0006320 1 Q S I N G L E - F L O A T )
0006340 \r ( 1 0 1 Q " M a t r i c e
0006360 s n o t c o n f o r m a b l
0006400 e " 3 4 Q " N o t a m a
0006420 t r i x " 1 3 Q " N o t a
0006440 m a t r i x " ) \r E A R R A Y
0006460 - M A T R I X - T R A C E D 1
0006500 \r ( L ( 0 M A T R I X ) )
0006520 \0 034 \0 \0 \0 001 @ d \t \0 \0 l 002 360 252 277
0006540 o \0 \0 \0 @ \n \0 \0 277 @ \t \0 \0 \t \0 \0
0006560 020 \0 ( 3 1 Q E A R R A Y - P L
0006600 U S - R E D U C E 2 6 Q E A
0006620 R R A Y - M A T R I X - D I A G
0006640 2 1 Q E R R O R 4 E A R
0006660 R A Y - R A N K ) \r N I L \r (
0006700 1 5 Q " N o t a m a t r i
0006720 x " ) \r ( P R E T T Y C O M P R
0006740 I N T E A R R A Y - M A T R I
0006760 X F N S C O M S ) \r ( R P A Q Q
0007000 E A R R A Y - M A T R I X F N
0007020 S C O M S ( ( * F i l e c
0007040 r e a t e d b y C o m s M
0007060 a n a g e r . ) ( F N S E A
0007100 R R A Y - M A T R I X - D I A G
0007120 \r E A R R A Y - M A T R I X -
0007140 I N V E R S E E A R R A Y - M
0007160 A T R I X - R E G R E S S E A
0007200 R R A Y - M A T R I X - S O L V
0007220 E E A R R A Y - M A T R I X -
0007240 T I M E S \r E A R R A Y - M A
0007260 T R I X - T R A C E ) ( D E C
0007300 L A R E : D O N T E V A L @ L
0007320 O A D D O E V A L @ C O M P I
0007340 L E D O N T C O P Y ( L O C
0007360 A L V A R S . T ) ) ) ) \r (
0007400 P U T P R O P S E A R R A Y -
0007420 M A T R I X F N S C O P Y R I
0007440 G H T ( " X e r o x C o r p
0007460 o r a t i o n " 1 9 8 6 ) ) \r
0007500 N I L \r
0007504