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