$ od -c -N 50000 [phylum]<LISP>KOTO>Library>MATMULT.DCOM!1
0000000 ( F I L E C R E A T E D " 1 4
0000020 - O c t - 8 5 1 6 : 2 3 : 4 3
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < L I S P C O R
0000100 E > L I B R A R Y > M A T M U L
0000120 T . ; 1 2 ) \r " 1 0 - O c t -
0000140 8 5 1 9 : 2 6 : 0 1 " t c o
0000160 m p l ' d i n " I N T E R L
0000200 I S P - D 1 0 - O c t - 8 5
0000220 . . . " d a t e d " 1 0 - O
0000240 c t - 8 5 1 9 : 5 8 : 3 4 " )
0000260 \r ( F I L E C R E A T E D " 1
0000300 4 - O c t - 8 5 1 6 : 2 2 : 0
0000320 5 " { E R I S } < L I S P C O
0000340 R E > L I B R A R Y > M A T M U
0000360 L T . ; 1 2 2 4 4 9 0 c h a
0000400 n g e s t o : ( V A R S \r
0000420 M A T M U L T C O M S ) p r e
0000440 v i o u s d a t e : " 8 -
0000460 O c t - 8 5 1 8 : 3 7 : 5 4 "
0000500 { E R I S } < L I S P C O R E
0000520 > L I B R A R Y > M A T M U L T
0000540 . ; 1 0 ) \r A R R A Y C O L S
0000560 D 1 \r ( I 0 A ) \0 \b \0 \0 \0
0000600 001 @ \t \0 \0 002 001 020 \0 ( 3 A R R A
0000620 Y - D I M E N S I O N S ) \r N I
0000640 L \r ( ) \r A R R A Y R O W S D
0000660 1 \r ( I 0 A ) \0 \a \0 \0 \0 001
0000700 @ \t \0 \0 001 020 \0 ( 3 A R R A Y -
0000720 D I M E N S I O N S ) \r N I L \r
0000740 ( ) \r S H O W . A R R A Y D 1
0000760 \r ( P 3 X P 1 Y I
0001000 1 W I 0 A ) \0 { 004 \0 \0
0001020 002 @ \t \0 \0 k 331 j 021 002 001 I H 363 263 g
0001040 @ \t \0 \0 k 331 j 021 002 003 K J 363 263 L o
0001060 \0 \0 \0 A \n \0 \0 277 o \0 \0 \0 I A \v \0
0001100 \0 277 o \0 \0 \0 A \n \0 \0 277 o \0 \0 \0 K
0001120 A \v \0 \0 277 o \0 \0 \0 A \n \0 \0 277 o \0
0001140 \0 \0 @ I K \v \0 \0 A \v \0 \0 277 k A \n
0001160 \0 \0 277 K k 324 [ 260 264 023 A \t \0 \0 277 I
0001200 k 324 Y 260 231 023 A \t \0 \0 020 \0 ( 1 7 0
0001220 Q T E R P R I 1 5 4 Q T E
0001240 R P R I 1 4 0 Q S P A C E S
0001260 1 3 2 Q P R I N T N U M 1
0001300 2 6 Q A R E F 1 1 3 Q P R
0001320 I N 1 1 0 2 Q P R I N T N U
0001340 M 7 0 Q P R I N 1 5 7 Q
0001360 P R I N T N U M 4 5 Q P R I
0001400 N 1 2 2 Q A R R A Y C O L S
0001420 3 A R R A Y R O W S ) \r N I
0001440 L \r ( 1 2 0 Q ( F L O A T
0001460 1 0 Q 6 ) 1 0 7 Q " ] : "
0001500 7 5 Q ( F I X 2 ) 6 4 Q
0001520 " , " 5 2 Q ( F I X 2 )
0001540 4 1 Q " [ " ) \r \ C H E C K
0001560 V A L I D A R R A Y D 1 \r ( P
0001600 0 D I M E N S I O N S I
0001620 2 T Y P E I 1 D I M S
0001640 I 0 A R R A Y ) \0 # 001 \0 \0
0001660 003 @ \t \0 \0 021 001 \0 @ d 004 ` \0 \0 360 236
0001700 277 A H 364 230 @ \t \0 \0 B 360 221 @ 020 @ \t
0001720 \0 \0 020 \0 ( 4 0 Q \ I L L E G A
0001740 L . A R G 2 7 Q A R R A Y E
0001760 L E M E N T T Y P E 3 A R R
0002000 A Y - D I M E N S I O N S ) \r (
0002020 1 4 Q 004 003 A R R A Y T Y P E #
0002040 ) \r ( ) \r M A K E A I J D 1 \r
0002060 ( P 7 C O L P 5 R O W
0002100 P 3 A C O L S P 2 A
0002120 R O W S P 1 M P 0 N
0002140 I 3 E L I D E C O L I
0002160 2 E L I D E R O W I 1 N
0002200 E W A I 0 A ) \0 X \b \0 \0
0002220 004 j d @ \t \0 \0 @ \t \0 \0 021 004 003 J k
0002240 331 j 021 002 005 M d L 363 221 h 020 B 360 263 026
0002260 j 271 K k 331 j 021 002 \a O 016 d N 363 232 023
0002300 H k 324 270 M k 324 ] 260 336 C 360 263 024 @ M
0002320 O 016 \v \0 \0 A H I \f \0 \0 277 I k 324 271
0002340 O 016 k 324 _ 016 260 325 \0 ( 1 1 1 Q A
0002360 S E T 1 0 3 Q A R E F 1 1
0002400 Q A R R A Y C O L S 5 A R
0002420 R A Y R O W S ) \r N I L \r ( ) \r
0002440 M A T . D E T E R M I N A N T
0002460 D 1 \r ( P 7 I P 5 J
0002500 P 4 I P 3 A I J P
0002520 2 D E T P 1 N C O L S
0002540 P 0 N R O W S I 0 A )
0002560 \0 235 \b \0 \0 001 021 0 002 @ \t \0 \0 X @
0002600 \t \0 \0 Y H d I 360 252 277 o \0 \0 \0 @ \n
0002620 \0 \0 277 H k 360 226 @ j d \v \0 \0 020 H d
0002640 l 002 360 262 037 277 @ j d \v \0 \0 @ k d \v
0002660 \0 \0 352 @ j k \v \0 \0 @ k j \v \0 \0 352
0002700 351 020 k 331 I k 331 h 032 032 g \0 \0 g \0 \0
0002720 \v \0 \0 021 ! 005 o \0 \0 \0 272 j 275 H k 331
0002740 j 021 002 \a O 016 N 363 263 ) @ K O 016 M \f
0002760 \0 \0 277 J @ O 016 M \v \0 \0 O 016 M \n \0
0003000 \0 K \t \0 \0 352 352 350 272 O 016 k 324 _ 016 260
0003020 327 J 020 \0 ( 2 1 5 Q M A T . D E
0003040 T E R M I N A N T 2 1 1 Q M
0003060 A T . S I G N 2 0 3 Q A R E
0003100 F 1 7 2 Q M A K E A I J 1
0003120 3 3 Q M A K E - A R R A Y 1
0003140 0 7 Q A R E F 1 0 1 Q A R
0003160 E F 7 2 Q A R E F 6 4 Q
0003200 A R E F 4 5 Q A R E F 3 2
0003220 Q E R R O R 1 3 Q A R R A
0003240 Y C O L S 6 A R R A Y R O W
0003260 S ) \r ( 1 3 0 Q S I N G L E -
0003300 F L O A T 1 2 5 Q : E L E M
0003320 E N T - T Y P E ) \r ( 1 4 2 Q
0003340 0 . 0 2 6 Q " C a n ' t
0003360 t a k e d e t e r m i n a n t
0003400 o f n o n - s q u a r e m
0003420 a t r i x " ) \r M A T . I N V E
0003440 R T D 1 \r ( P 1 0 Q J P
0003460 6 I P 4 D E T P 3
0003500 A I J P 2 A I P 1
0003520 N C O L S P 0 N R O W S
0003540 I 0 M A T R I X ) \0 214 \t \0
0003560 \0 001 @ \t \0 \0 @ \t \0 \0 021 002 001 021 0 004
0003600 H I 360 250 o \0 \0 \0 @ \n \0 \0 277 @ \t \0
0003620 \0 \ H I h 032 032 g \0 \0 g \0 \0 \v \0 \0
0003640 Z H k 331 I k 331 h 032 032 g \0 \0 g \0 \0
0003660 \v \0 \0 [ H k 331 j 021 002 006 N M 363 263 =
0003700 I k 331 j 021 002 \b O 020 O 016 363 263 ( @ K
0003720 N O 020 \f \0 \0 277 N O 020 \n \0 \0 K \t \0
0003740 \0 352 L 353 J O 020 N \f \0 \0 277 O 020 k 324
0003760 _ 020 260 327 023 N k 324 ^ 260 303 J 020 \0 ( 1
0004000 7 0 Q A S E T 1 5 6 Q M A
0004020 T . D E T E R M I N A N T 1 5
0004040 2 Q M A T . S I G N 1 4 3 Q
0004060 M A K E A I J 1 0 0 Q M A
0004100 K E - A R R A Y 5 5 Q M A K
0004120 E - A R R A Y 3 6 Q M A T .
0004140 D E T E R M I N A N T 3 1 Q
0004160 E R R O R 7 A R R A Y C O L
0004200 S 3 A R R A Y R O W S ) \r (
0004220 7 5 Q S I N G L E - F L O A T
0004240 7 2 Q : E L E M E N T - T Y
0004260 P E 5 2 Q S I N G L E - F L
0004300 O A T 4 7 Q : E L E M E N T
0004320 - T Y P E ) \r ( 2 5 Q " S q
0004340 u a r e m a t r i c e s c a
0004360 n n o t b e i n v e r t e d
0004400 " ) \r M A T . I N V E R T . 3 B
0004420 Y 3 D 1 \r ( P 1 5 Q A E -
0004440 B D P 1 4 Q A F P 1 3
0004460 Q C D P 1 2 Q E C P
0004500 1 1 Q B F P 1 0 Q B D
0004520 P 7 A E P 6 F P 5
0004540 E P 4 D P 3 C P
0004560 2 B P 1 A P 0 I
0004600 N V E R T I 0 M A T R I X
0004620 ) \0 327 016 \0 \0 001 \b \0 \0 @ j d \v \0
0004640 \0 @ k j \v \0 \0 @ l 002 j \v \0 \0 @ j
0004660 k \v \0 \0 @ k d \v \0 \0 @ l 002 k \v \0
0004700 \0 021 w \r I M 326 _ 016 J L 326 _ 020 J N
0004720 326 _ 022 M K 326 _ 024 M K 326 _ 026 I N 326
0004740 _ 030 O 016 O 020 351 _ 032 d j 360 250 d 005 003
0004760 235 d \t \0 \0 230 o \0 \0 \0 @ \n \0 \0 277 M
0005000 O 032 353 H j d \f \0 \0 J \t \0 \0 O 032 353
0005020 H k j \f \0 \0 O 022 O 024 351 O 032 353 H l
0005040 002 j \f \0 \0 L \t \0 \0 O 032 353 H j k \f
0005060 \0 \0 I O 032 353 H k d \f \0 \0 O 026 O 030
0005100 351 O 032 353 H l 002 k \f \0 \0 o \0 \0 \0 H
0005120 j l 002 \f \0 \0 o \0 \0 \0 H k l 002 \f \0
0005140 \0 o \0 \0 \0 H l 002 d \f \0 \0 H 020 \0 (
0005160 3 2 3 Q A S E T 3 1 0 Q A
0005200 S E T 2 7 5 Q A S E T 2 6
0005220 2 Q A S E T 2 4 3 Q A S E
0005240 T 2 3 1 Q A S E T 2 2 0 Q
0005260 F M I N U S 2 1 4 Q A S E
0005300 T 1 7 5 Q A S E T 1 6 4 Q
0005320 F M I N U S 1 6 0 Q A S E
0005340 T 1 4 5 Q H E L P 1 3 4 Q
0005360 \ F Z E R O P 5 0 Q A R E
0005400 F 4 1 Q A R E F 3 3 Q A
0005420 R E F 2 5 Q A R E F 1 6 Q
0005440 A R E F 1 0 Q A R E F 2
0005460 C R E A T E 3 B Y 3 ) \r N I L
0005500 \r ( 3 1 4 Q 1 . 0 3 0 1 Q
0005520 0 . 0 2 6 6 Q 0 . 0 1 4
0005540 1 Q " M a t r i x c a n n o
0005560 t b e i n v e r t e d " ) \r
0005600 M A T . S I G N D 1 \r ( L (
0005620 1 J 0 I ) ) \0 016 \0 \0 \0 002
0005640 @ A 330 k 345 j 360 221 k 020 m 377 020 \0 N I
0005660 L \r N I L \r ( ) \r C O N C A T T
0005700 R A N S F O R M S D 1 \r ( P
0005720 3 M A T R I X C P 2 M A
0005740 T R I X B P 1 M A T R I X
0005760 A P 0 T R A N S F O R M .
0006000 B O X I 1 B I 0 A )
0006020 \0 : 004 \0 \0 002 ` \0 \0 265 / \b \0 \0 021
0006040 001 \0 @ A H 021 003 003 I \t \0 \0 J \t \0 \0
0006060 K \t \0 \0 2 001 023 @ \t \0 \0 H \t \0 \0 l
0006100 022 304 277 H 027 \0 \0 @ 020 h 027 \0 \0 277 260 321
0006120 \0 ( 4 7 Q \ M A T R I X . G E
0006140 T . B A S E 4 3 Q \ M A T R
0006160 I X . G E T . B A S E 3 4 Q
0006200 \ M A T R I X . G E T . B A S E
0006220 3 0 Q \ M A T R I X . G E T
0006240 . B A S E 2 4 Q \ M A T R I
0006260 X . G E T . B A S E 7 I D E
0006300 N T I T Y 3 B Y 3 ) \r ( 6 5 Q
0006320 \ T R A N S F O R M . B O X . G
0006340 L O B A L R E S O U R C E 5 7
0006360 Q \ T R A N S F O R M . B O X
0006400 . G L O B A L R E S O U R C E
0006420 2 \ T R A N S F O R M . B O X
0006440 . G L O B A L R E S O U R C E )
0006460 \r ( ) \r M A T M U L T D 1 \r (
0006500 P 5 K P 3 J P 1
0006520 I I 5 N I 4 M I
0006540 3 K I 2 M A T R I X C
0006560 I 1 M A T R I X B I 0
0006600 M A T R I X A ) \0 x \a \0 \0 006 @
0006620 C D h 032 032 g \0 \0 \v \0 \0 A D E h 032
0006640 032 g \0 \0 \v \0 \0 B C E h 032 032 g \0 \0
0006660 \v \0 \0 C k 331 j 021 002 001 I H 363 263 G E
0006700 k 331 j 021 002 003 K J 363 263 4 D k 331 j d
0006720 021 003 006 M L 363 263 030 N @ I M \v \0 \0 A
0006740 M K \v \0 \0 352 324 276 M k 324 ] 260 350 N 022
0006760 B I K \f \0 \0 277 K k 324 [ 260 314 023 I k
0007000 324 Y 260 271 B 020 \0 ( 1 4 6 Q A S E
0007020 T 1 2 5 Q A R E F 1 1 7 Q
0007040 A R E F 4 3 Q \ C H E C K
0007060 V A L I D A R R A Y 2 7 Q \
0007100 C H E C K V A L I D A R R A Y
0007120 1 3 Q \ C H E C K V A L I D A
0007140 R R A Y ) \r ( 4 0 Q F L O N U
0007160 M 2 4 Q F L O N U M 1 0 Q
0007200 F L O N U M ) \r ( ) \r M A T M
0007220 U L T 1 3 3 D 1 \r ( I 2 M
0007240 A T R I X C I 1 M A T R I
0007260 X B I 0 M A T R I X A )
0007300 \0 020 \0 \0 \0 003 @ \t \0 \0 A \t \0 \0 B \t
0007320 \0 \0 2 003 020 \0 ( 1 3 Q \ M A T R
0007340 I X . G E T . B A S E 7 \ M
0007360 A T R I X . G E T . B A S E 3
0007400 \ M A T R I X . G E T . B A S
0007420 E ) \r N I L \r ( ) \r M A T M U L
0007440 T 3 3 1 D 1 \r ( I 2 M A T
0007460 R I X C I 1 M A T R I X B
0007500 I 0 M A T R I X A ) \0 020
0007520 \0 \0 \0 003 @ \t \0 \0 A \t \0 \0 B \t \0 \0
0007540 2 004 020 \0 ( 1 3 Q \ M A T R I X
0007560 . G E T . B A S E 7 \ M A T
0007600 R I X . G E T . B A S E 3 \
0007620 M A T R I X . G E T . B A S E )
0007640 \r N I L \r ( ) \r M A T M U L T 3
0007660 3 3 D 1 \r ( I 2 M A T R I
0007700 X C I 1 M A T R I X B I
0007720 0 M A T R I X A ) \0 020 \0 \0
0007740 \0 003 @ \t \0 \0 A \t \0 \0 B \t \0 \0 2 001
0007760 020 \0 ( 1 3 Q \ M A T R I X . G
0010000 E T . B A S E 7 \ M A T R I
0010020 X . G E T . B A S E 3 \ M A
0010040 T R I X . G E T . B A S E ) \r N
0010060 I L \r ( ) \r M A T M U L T 1 4 4
0010100 D 1 \r ( I 2 M A T R I X C
0010120 I 1 M A T R I X B I 0
0010140 M A T R I X A ) \0 020 \0 \0 \0 003
0010160 @ \t \0 \0 A \t \0 \0 B \t \0 \0 2 005 020 \0
0010200 ( 1 3 Q \ M A T R I X . G E T
0010220 . B A S E 7 \ M A T R I X .
0010240 G E T . B A S E 3 \ M A T R
0010260 I X . G E T . B A S E ) \r N I L
0010300 \r ( ) \r M A T M U L T 4 4 1 D
0010320 1 \r ( I 2 M A T R I X C I
0010340 1 M A T R I X B I 0 M
0010360 A T R I X A ) \0 020 \0 \0 \0 003 @ \t
0010400 \0 \0 A \t \0 \0 B \t \0 \0 2 006 020 \0 ( 1
0010420 3 Q \ M A T R I X . G E T . B
0010440 A S E 7 \ M A T R I X . G E
0010460 T . B A S E 3 \ M A T R I X
0010500 . G E T . B A S E ) \r N I L \r (
0010520 ) \r M A T M U L T 4 4 4 D 1 \r
0010540 ( I 2 M A T R I X C I 1
0010560 M A T R I X B I 0 M A T
0010600 R I X A ) \0 020 \0 \0 \0 003 @ \t \0 \0
0010620 A \t \0 \0 B \t \0 \0 2 002 020 \0 ( 1 3 Q
0010640 \ M A T R I X . G E T . B A S
0010660 E 7 \ M A T R I X . G E T .
0010700 B A S E 3 \ M A T R I X . G
0010720 E T . B A S E ) \r N I L \r ( ) \r
0010740 S E T . W C O O R D D 1 \r ( I
0010760 1 V A L U E I 0 V E C
0011000 T O R ) \0 \n \0 \0 \0 002 A @ j l 003
0011020 \f \0 \0 020 \0 ( 7 A S E T ) \r N I
0011040 L \r ( ) \r S E T . X C O O R D
0011060 D 1 \r ( I 1 V A L U E I
0011100 0 V E C T O R ) \0 \t \0 \0 \0 002
0011120 A @ j d \f \0 \0 020 \0 ( 6 A S E T
0011140 ) \r N I L \r ( ) \r S E T . Y C O
0011160 O R D D 1 \r ( I 1 V A L U
0011200 E I 0 V E C T O R ) \0 \t
0011220 \0 \0 \0 002 A @ j k \f \0 \0 020 \0 ( 6
0011240 A S E T ) \r N I L \r ( ) \r S E T
0011260 . Z C O O R D D 1 \r ( I 1
0011300 V A L U E I 0 V E C T O R
0011320 ) \0 \n \0 \0 \0 002 A @ j l 002 \f \0 \0
0011340 020 \0 ( 7 A S E T ) \r N I L \r (
0011360 ) \r G E T . X C O O R D D 1 \r
0011400 ( I 0 V E C T O R ) \0 \b \0
0011420 \0 \0 001 @ j d \v \0 \0 020 \0 ( 5 A R
0011440 E F ) \r N I L \r ( ) \r G E T . Y
0011460 C O O R D D 1 \r ( I 0 V E
0011500 C T O R ) \0 \b \0 \0 \0 001 @ j k \v
0011520 \0 \0 020 \0 ( 5 A R E F ) \r N I L
0011540 \r ( ) \r G E T . Z C O O R D D
0011560 1 \r ( I 0 V E C T O R ) \0
0011600 \t \0 \0 \0 001 @ j l 002 \v \0 \0 020 \0 ( 6
0011620 A R E F ) \r N I L \r ( ) \r G E
0011640 T . W C O O R D D 1 \r ( I 0
0011660 V E C T O R ) \0 \t \0 \0 \0 001 @
0011700 j l 003 \v \0 \0 020 \0 ( 6 A R E F )
0011720 \r N I L \r ( ) \r \ M A K E V A L
0011740 I D A R R A Y D 1 \r ( I 2
0011760 C R E A T E F N I 1 D I M
0012000 S I 0 A R R A Y ) \0 037 \0
0012020 \0 \0 003 @ d 004 ` \0 \0 360 232 277 A @ \t \0
0012040 \0 364 221 @ 020 @ 244 B \t \0 \0 020 @ \t \0 \0
0012060 020 \0 ( 3 4 Q \ I L L E G A L .
0012100 A R G 2 7 Q A P P L Y 1 5
0012120 Q A R R A Y - D I M E N S I O
0012140 N S ) \r ( 5 004 003 A R R A Y T Y
0012160 P E # ) \r ( ) \r C R E A T E 1 B
0012200 Y 3 D 1 \r N I L \0 021 \0 \0 \0 \0
0012220 k l 003 h 032 032 g \0 \0 g \0 \0 \v \0 \0 020
0012240 \0 ( 1 6 Q M A K E - A R R A Y
0012260 ) \r ( 1 3 Q S I N G L E - F L
0012300 O A T 1 0 Q : E L E M E N T
0012320 - T Y P E ) \r ( ) \r C R E A T E
0012340 3 B Y 1 D 1 \r N I L \0 021 \0 \0
0012360 \0 \0 l 003 k h 032 032 g \0 \0 g \0 \0 \v \0
0012400 \0 020 \0 ( 1 6 Q M A K E - A R R
0012420 A Y ) \r ( 1 3 Q S I N G L E -
0012440 F L O A T 1 0 Q : E L E M E
0012460 N T - T Y P E ) \r ( ) \r C R E A
0012500 T E 3 B Y 3 D 1 \r N I L \0 021
0012520 \0 \0 \0 \0 l 003 d h 032 032 g \0 \0 g \0 \0
0012540 \v \0 \0 020 \0 ( 1 6 Q M A K E - A
0012560 R R A Y ) \r ( 1 3 Q S I N G L
0012600 E - F L O A T 1 0 Q : E L E
0012620 M E N T - T Y P E ) \r ( ) \r I D
0012640 E N T I T Y 3 B Y 3 D 1 \r ( P
0012660 0 M A T R I X I 0 M )
0012700 \0 r 001 \0 \0 001 @ l 003 d h 032 032 g \0
0012720 \0 \v \0 \0 021 001 \0 o \0 \0 \0 H j d \f \0
0012740 \0 o \0 \0 \0 H j k \f \0 \0 o \0 \0 \0 H
0012760 j l 002 \f \0 \0 o \0 \0 \0 H k j \f \0 \0
0013000 o \0 \0 \0 H k d \f \0 \0 o \0 \0 \0 H k
0013020 l 002 \f \0 \0 o \0 \0 \0 H l 002 j \f \0 \0
0013040 o \0 \0 \0 H l 002 k \f \0 \0 o \0 \0 \0 H
0013060 l 002 d \f \0 \0 H 020 \0 ( 1 5 6 Q A
0013100 S E T 1 4 3 Q A S E T 1 3
0013120 0 Q A S E T 1 1 5 Q A S E
0013140 T 1 0 2 Q A S E T 7 0 Q
0013160 A S E T 5 6 Q A S E T 4 3
0013200 Q A S E T 3 1 Q A S E T
0013220 1 4 Q \ M A K E V A L I D A R
0013240 R A Y ) \r ( 1 1 Q C R E A T E
0013260 3 B Y 3 ) \r ( 1 4 7 Q 1 . 0
0013300 1 3 4 Q 0 . 0 1 2 1 Q 0
0013320 . 0 1 0 6 Q 0 . 0 7 4 Q
0013340 1 . 0 6 2 Q 0 . 0 4 7 Q
0013360 0 . 0 3 5 Q 0 . 0 2 3 Q
0013400 1 . 0 ) \r T R A N S L A T E 3 B
0013420 Y 3 D 1 \r ( P 0 M A T R I
0013440 X I 2 M I 1 T y I
0013460 0 T x ) \0 l 001 \0 \0 003 B l 003
0013500 d h 032 032 g \0 \0 \v \0 \0 021 001 \0 o \0 \0
0013520 \0 H j d \f \0 \0 o \0 \0 \0 H j k \f \0
0013540 \0 o \0 \0 \0 H j l 002 \f \0 \0 o \0 \0 \0
0013560 H k j \f \0 \0 o \0 \0 \0 H k d \f \0 \0
0013600 o \0 \0 \0 H k l 002 \f \0 \0 @ H l 002 j
0013620 \f \0 \0 A H l 002 k \f \0 \0 o \0 \0 \0 H
0013640 l 002 d \f \0 \0 H 020 \0 ( 1 5 0 Q A
0013660 S E T 1 3 5 Q A S E T 1 2
0013700 5 Q A S E T 1 1 5 Q A S E
0013720 T 1 0 2 Q A S E T 7 0 Q
0013740 A S E T 5 6 Q A S E T 4 3
0013760 Q A S E T 3 1 Q A S E T
0014000 1 4 Q \ M A K E V A L I D A R
0014020 R A Y ) \r ( 1 1 Q C R E A T E
0014040 3 B Y 3 ) \r ( 1 4 1 Q 1 . 0
0014060 1 0 6 Q 0 . 0 7 4 Q 1 .
0014100 0 6 2 Q 0 . 0 4 7 Q 0 .
0014120 0 3 5 Q 0 . 0 2 3 Q 1 .
0014140 0 ) \r S C A L E 3 B Y 3 D 1 \r
0014160 ( P 0 M A T R I X I 2
0014200 M I 1 S y I 0 S x )
0014220 \0 l 001 \0 \0 003 B l 003 d h 032 032 g \0
0014240 \0 \v \0 \0 021 001 \0 @ H j d \f \0 \0 o \0
0014260 \0 \0 H j k \f \0 \0 o \0 \0 \0 H j l 002
0014300 \f \0 \0 o \0 \0 \0 H k j \f \0 \0 A H k
0014320 d \f \0 \0 o \0 \0 \0 H k l 002 \f \0 \0 o
0014340 \0 \0 \0 H l 002 j \f \0 \0 o \0 \0 \0 H l
0014360 002 k \f \0 \0 o \0 \0 \0 H l 002 d \f \0 \0
0014400 H 020 \0 ( 1 5 0 Q A S E T 1 3
0014420 5 Q A S E T 1 2 2 Q A S E
0014440 T 1 0 7 Q A S E T 7 4 Q
0014460 A S E T 6 5 Q A S E T 5 3
0014500 Q A S E T 4 0 Q A S E T
0014520 2 6 Q A S E T 1 4 Q \ M A
0014540 K E V A L I D A R R A Y ) \r ( 1
0014560 1 Q C R E A T E 3 B Y 3 ) \r (
0014600 1 4 1 Q 1 . 0 1 2 6 Q 0
0014620 . 0 1 1 3 Q 0 . 0 1 0 0 Q
0014640 0 . 0 5 7 Q 0 . 0 4 4 Q
0014660 0 . 0 3 2 Q 0 . 0 ) \r R O
0014700 T A T E 3 B Y 3 D 1 \r ( P 2
0014720 S I N P H I P 1 C O S P
0014740 H I P 0 M A T R I X I
0014760 2 M I 1 R A D I A N S F
0015000 L G I 0 P H I ) \0 s 003 \0
0015020 \0 003 B l 003 d h 032 032 g \0 \0 \v \0 \0 @
0015040 A \n \0 \0 @ A \n \0 \0 021 003 002 I H j d
0015060 \f \0 \0 J \t \0 \0 H j k \f \0 \0 o \0 \0
0015100 \0 H j l 002 \f \0 \0 J H k j \f \0 \0 I
0015120 H k d \f \0 \0 o \0 \0 \0 H k l 002 \f \0
0015140 \0 o \0 \0 \0 H l 002 j \f \0 \0 o \0 \0 \0
0015160 H l 002 k \f \0 \0 o \0 \0 \0 H l 002 d \f
0015200 \0 \0 H 020 \0 ( 1 5 7 Q A S E T
0015220 1 4 4 Q A S E T 1 3 1 Q A
0015240 S E T 1 1 6 Q A S E T 1 0
0015260 3 Q A S E T 7 4 Q A S E T
0015300 6 5 Q A S E T 5 2 Q A S
0015320 E T 4 4 Q F M I N U S 4 0
0015340 Q A S E T 2 6 Q S I N 2
0015360 1 Q C O S 1 4 Q \ M A K E
0015400 V A L I D A R R A Y ) \r ( 1 1 Q
0015420 C R E A T E 3 B Y 3 ) \r ( 1
0015440 5 0 Q 1 . 0 1 3 5 Q 0 . 0
0015460 1 2 2 Q 0 . 0 1 0 7 Q 0
0015500 . 0 5 6 Q 0 . 0 ) \r C R E A
0015520 T E 4 B Y 4 D 1 \r N I L \0 021
0015540 \0 \0 \0 \0 l 004 d h 032 032 g \0 \0 g \0 \0
0015560 \v \0 \0 020 \0 ( 1 6 Q M A K E - A
0015600 R R A Y ) \r ( 1 3 Q F L O A T
0015620 1 0 Q : E L E M E N T - T Y
0015640 P E ) \r ( ) \r I D E N T I T Y 4
0015660 B Y 4 D 1 \r ( P 4 X P
0015700 2 Y P 0 M A T R I X I
0015720 0 M ) \0 l 005 \0 \0 001 @ l 004 d
0015740 h 032 032 g \0 \0 \v \0 \0 021 001 \0 l 003 j 021
0015760 002 002 J I 363 263 % l 003 j 021 002 004 L K 363
0016000 263 023 o \0 \0 \0 H L J \f \0 \0 277 L k 324
0016020 \ 260 355 023 J k 324 Z 260 333 023 o \0 \0 \0 H
0016040 j d \f \0 \0 o \0 \0 \0 H k d \f \0 \0 o
0016060 \0 \0 \0 H l 002 d \f \0 \0 o \0 \0 \0 H l
0016100 003 d \f \0 \0 H 020 \0 ( 1 5 0 Q A S
0016120 E T 1 3 5 Q A S E T 1 2 2
0016140 Q A S E T 1 1 0 Q A S E T
0016160 5 7 Q A S E T 1 4 Q \ M
0016200 A K E V A L I D A R R A Y ) \r (
0016220 1 1 Q C R E A T E 4 B Y 4 ) \r
0016240 ( 1 4 1 Q 1 . 0 1 2 6 Q
0016260 1 . 0 1 1 4 Q 1 . 0 1 0 2
0016300 Q 1 . 0 5 1 Q 0 . 0 ) \r S
0016320 C A L E 4 B Y 4 D 1 \r ( P 0
0016340 M A T R I X I 3 M I
0016360 2 S z I 1 S y I 0
0016400 S x ) \0 4 001 \0 \0 004 C l 003 d h 032
0016420 032 g \0 \0 \v \0 \0 021 001 \0 @ H j d \f \0
0016440 \0 A H k d \f \0 \0 B H l 002 d \f \0 \0
0016460 o \0 \0 \0 H l 003 d \f \0 \0 H 020 \0 ( 6
0016500 0 Q A S E T 4 5 Q A S E T
0016520 3 5 Q A S E T 2 6 Q A S
0016540 E T 1 4 Q \ M A K E V A L I
0016560 D A R R A Y ) \r ( 1 1 Q C R E
0016600 A T E 4 B Y 4 ) \r ( 5 1 Q 1
0016620 . 0 ) \r T R A N S L A T E 4 B Y
0016640 4 D 1 \r ( P 0 M A T R I X
0016660 I 3 M I 2 T z I
0016700 1 T y I 0 T x ) \0 3 001
0016720 \0 \0 004 C l 004 d h 032 032 g \0 \0 \v \0 \0
0016740 \t \0 \0 021 001 \0 H \t \0 \0 @ H l 003 j \f
0016760 \0 \0 A H l 003 k \f \0 \0 B H l 003 l 002
0017000 \f \0 \0 H 020 \0 ( 5 7 Q A S E T
0017020 4 6 Q A S E T 3 6 Q A S E
0017040 T 2 6 Q I D E N T I T Y 4 B
0017060 Y 4 1 7 Q I D E N T I T Y 4
0017100 B Y 4 1 4 Q \ M A K E V A L
0017120 I D A R R A Y ) \r ( 1 1 Q C R
0017140 E A T E 4 B Y 4 ) \r ( ) \r R O T
0017160 A T E 4 B Y 4 . A B O U T X D
0017200 1 \r ( P 6 X P 4 Y P
0017220 2 S I N P H I P 1 C O
0017240 S P H I P 0 M A T R I X
0017260 I 2 M I 1 R A D I A N
0017300 S F L G I 0 P H I ) \0 203
0017320 \a \0 \0 003 B l 004 d h 032 032 g \0 \0 \v \0
0017340 \0 @ A \n \0 \0 @ A \n \0 \0 021 003 002 l 003
0017360 j 021 002 004 L K 363 263 % l 003 j 021 002 006 N
0017400 M 363 263 023 o \0 \0 \0 H N L \f \0 \0 277 N
0017420 k 324 ^ 260 355 023 L k 324 \ 260 333 023 o \0 \0
0017440 \0 H j d \f \0 \0 I H k d \f \0 \0 J \t
0017460 \0 \0 H k l 002 \f \0 \0 J H l 002 k \f \0
0017500 \0 I H l 002 d \f \0 \0 o \0 \0 \0 H l 003
0017520 d \f \0 \0 H 020 \0 ( 1 7 7 Q A S E
0017540 T 1 6 4 Q A S E T 1 5 4 Q
0017560 A S E T 1 4 4 Q A S E T
0017600 1 3 5 Q F M I N U S 1 3 1 Q
0017620 A S E T 1 2 2 Q A S E T
0017640 7 1 Q A S E T 2 6 Q S I N
0017660 2 1 Q C O S 1 4 Q \ M A
0017700 K E V A L I D A R R A Y ) \r ( 1
0017720 1 Q C R E A T E 4 B Y 4 ) \r (
0017740 1 7 0 Q 1 . 0 1 1 4 Q 1
0017760 . 0 6 3 Q 0 . 0 ) \r R O T A
0020000 T E 4 B Y 4 . A B O U T Y D 1
0020020 \r ( P 6 X P 4 Y P
0020040 2 S I N P H I P 1 C O S
0020060 P H I P 0 M A T R I X I
0020100 2 M I 1 R A D I A N S
0020120 F L G I 0 P H I ) \0 225 \a
0020140 \0 \0 003 B l 004 d h 032 032 g \0 \0 \v \0 \0
0020160 @ A \n \0 \0 @ A \n \0 \0 021 003 002 l 003 j
0020200 021 002 004 L K 363 263 % l 003 j 021 002 006 N M
0020220 363 263 023 o \0 \0 \0 H N L \f \0 \0 277 N k
0020240 324 ^ 260 355 023 L k 324 \ 260 333 023 I H j d
0020260 l 004 \r 005 \0 \0 J \t \0 \0 H l 002 j l 004
0020300 \r 005 \0 \0 o \0 \0 \0 H k d l 004 \r 005 \0
0020320 \0 J H j l 002 l 004 \r 005 \0 \0 I H l 002
0020340 d l 004 \r 005 \0 \0 o \0 \0 \0 H l 003 d l
0020360 004 \r 005 \0 \0 H 020 \0 ( 2 2 1 Q A S
0020400 E T 2 0 3 Q A S E T 1 7 0
0020420 Q A S E T 1 5 5 Q A S E T
0020440 1 4 0 Q A S E T 1 2 6 Q
0020460 F M I N U S 1 2 2 Q A S E T
0020500 7 1 Q A S E T 2 6 Q S I
0020520 N 2 1 Q C O S 1 4 Q \ M
0020540 A K E V A L I D A R R A Y ) \r (
0020560 1 1 Q C R E A T E 4 B Y 4 ) \r
0020600 ( 2 0 7 Q 1 . 0 1 4 4 Q
0020620 1 . 0 6 3 Q 0 . 0 ) \r R O T
0020640 A T E 4 B Y 4 . A B O U T Z D
0020660 1 \r ( P 6 X P 4 Y P
0020700 2 S I N P H I P 1 C O
0020720 S P H I P 0 M A T R I X
0020740 I 2 M I 1 R A D I A N
0020760 S F L G I 0 P H I ) \0 204
0021000 \a \0 \0 003 B l 004 d h 032 032 g \0 \0 \v \0
0021020 \0 @ A \n \0 \0 @ A \n \0 \0 021 003 002 l 003
0021040 j 021 002 004 L K 363 263 % l 003 j 021 002 006 N
0021060 M 363 263 023 o \0 \0 \0 H N L \f \0 \0 277 N
0021100 k 324 ^ 260 355 023 L k 324 \ 260 333 023 I H k
0021120 d \f \0 \0 J \t \0 \0 H k l 002 \f \0 \0 J
0021140 H l 002 k \f \0 \0 I H l 002 d \f \0 \0 o
0021160 \0 \0 \0 H l 003 d \f \0 \0 o \0 \0 \0 H l
0021200 004 d \f \0 \0 H 020 \0 ( 2 0 0 Q A S
0021220 E T 1 6 5 Q A S E T 1 5 2
0021240 Q A S E T 1 4 2 Q A S E T
0021260 1 3 2 Q A S E T 1 2 3 Q
0021300 F M I N U S 1 1 7 Q A S E T
0021320 7 1 Q A S E T 2 6 Q S I
0021340 N 2 1 Q C O S 1 4 Q \ M
0021360 A K E V A L I D A R R A Y ) \r (
0021400 1 1 Q C R E A T E 4 B Y 4 ) \r
0021420 ( 1 7 1 Q 1 . 0 1 5 6 Q
0021440 1 . 0 6 3 Q 0 . 0 ) \r \ M A
0021460 T M U L T D 1 \r ( P 5 K
0021500 P 3 J P 1 I I 5
0021520 N I 4 M I 3 L I
0021540 2 R E S U L T I 1 B I
0021560 0 A ) \0 R \a \0 \0 006 C k 021 002
0021600 001 I H 363 263 G E k 021 002 003 K J 363 263 6
0021620 B I K E D k j 021 003 006 M L 363 263 032 N
0021640 @ I M D \f \0 \0 A M K E \f \0 \0 352 324
0021660 276 M k 324 ] 260 346 N 022 \r 005 \0 \0 277 K k
0021700 324 [ 260 312 023 I k 324 Y 260 271 B 020 \0 ( 1
0021720 0 0 Q \ S E T E L T 6 1 Q
0021740 \ G E T E L T 5 2 Q \ G E T
0021760 E L T ) \r N I L \r ( ) \r \ G E T
0022000 E L T D 1 \r ( L ( 3 E l t
0022020 s P e r R o w 2 C O L U M N
0022040 1 R O W 0 A R R A Y B A
0022060 S E ) ) \0 027 \0 \0 \0 004 @ B k 331 A
0022100 k 331 C 332 330 340 320 d 310 \0 375 310 001 321 355 \0
0022120 020 \0 N I L \r N I L \r ( ) \r \ S E
0022140 T E L T D 1 \r ( L ( 4 V A
0022160 L U E 3 E l t s P e r R o w
0022200 2 C O L U M N 1 R O W
0022220 0 A R R A Y B A S E ) ) \0 036
0022240 003 \0 \0 005 @ B k 331 A k 331 C 332 330 340 D
0022260 355 001 021 003 002 H I 320 J 316 \0 277 J 022 355 \0
0022300 020 \0 N I L \r N I L \r ( ) \r \ M A
0022320 T R I X . G E T . B A S E D 1
0022340 \r ( I 0 A R R A Y ) \0 ) \0
0022360 \0 \0 001 @ d 004 ` \0 \0 360 232 311 004 @ 310 \n
0022400 @ 310 \v 365 320 020 \t \0 \0 g \0 \0 360 227 @ 311
0022420 \0 @ 310 003 320 020 @ \t \0 \0 020 \0 ( 4 6 Q
0022440 \ I L L E G A L . A R G 2 5
0022460 Q T Y P E N A M E ) \r ( 3 0 Q
0022500 A R R A Y P 5 004 003 A R R A
0022520 Y T Y P E # ) \r ( ) \r \ C H E C
0022540 K V A L I D A R R A Y D 1 \r (
0022560 P 0 D I M E N S I O N S I
0022600 2 T Y P E I 1 D I M S
0022620 I 0 A R R A Y ) \0 # 001 \0
0022640 \0 003 @ \t \0 \0 021 001 \0 @ d 004 ` \0 \0 360
0022660 236 277 A H 364 230 @ \t \0 \0 B 360 221 @ 020 @
0022700 \t \0 \0 020 \0 ( 4 0 Q \ I L L E G
0022720 A L . A R G 2 7 Q A R R A Y
0022740 E L E M E N T T Y P E 3 A R
0022760 R A Y - D I M E N S I O N S ) \r
0023000 ( 1 4 Q 004 003 A R R A Y T Y P E
0023020 # ) \r ( ) \r ( P R E T T Y C O M
0023040 P R I N T M A T M U L T C O M
0023060 S ) \r ( R P A Q Q M A T M U L
0023100 T C O M S ( ( F I L E S C M
0023120 L A R R A Y ) ( F N S A R R
0023140 A Y C O L S A R R A Y R O W S
0023160 S H O W . A R R A Y \ C H E
0023200 C K V A L I D A R R A Y M A K
0023220 E A I J \r M A T . D E T E R M
0023240 I N A N T M A T . I N V E R T
0023260 M A T . I N V E R T . 3 B Y 3
0023300 M A T . S I G N ) ( F N S
0023320 C O N C A T T R A N S F O R M S
0023340 M A T M U L T M A T M U L T
0023360 1 3 3 \r M A T M U L T 3 3 1
0023400 M A T M U L T 3 3 3 M A T M U
0023420 L T 1 4 4 M A T M U L T 4 4 1
0023440 M A T M U L T 4 4 4 ) ( F N
0023460 S S E T . W C O O R D S E T
0023500 . X C O O R D S E T . Y C O O
0023520 R D \r S E T . Z C O O R D G
0023540 E T . X C O O R D G E T . Y C
0023560 O O R D G E T . Z C O O R D
0023600 G E T . W C O O R D ) ( F N S
0023620 \ M A K E V A L I D A R R A Y
0023640 C R E A T E 1 B Y 3 C R E A
0023660 T E 3 B Y 1 \r C R E A T E 3 B
0023700 Y 3 I D E N T I T Y 3 B Y 3
0023720 T R A N S L A T E 3 B Y 3 S C
0023740 A L E 3 B Y 3 R O T A T E 3 B
0023760 Y 3 ) ( F N S C R E A T E 4
0024000 B Y 4 I D E N T I T Y 4 B Y 4
0024020 S C A L E 4 B Y 4 \r T R A N
0024040 S L A T E 4 B Y 4 R O T A T E
0024060 4 B Y 4 . A B O U T X R O T A
0024100 T E 4 B Y 4 . A B O U T Y R O
0024120 T A T E 4 B Y 4 . A B O U T Z )
0024140 ( D E C L A R E : E V A L @
0024160 L O A D D O C O P Y ( \r M A
0024200 C R O S G E T . W C O O R D
0024220 G E T . X C O O R D G E T . Y
0024240 C O O R D G E T . Z C O O R D
0024260 S E T . W C O O R D S E T .
0024300 X C O O R D S E T . Y C O O R
0024320 D S E T . Z C O O R D ) ( \r
0024340 M A C R O S M A T M U L T 1 3
0024360 3 M A T M U L T 3 3 1 M A T
0024400 M U L T 3 3 3 M A T M U L T 1
0024420 4 4 M A T M U L T 4 4 1 M A
0024440 T M U L T 4 4 4 ) ( M A C R O
0024460 S . M A T M U L T 1 3 3 \r .
0024500 M A T M U L T 3 3 1 . M A T M
0024520 U L T 3 3 3 . M A T M U L T 1
0024540 4 4 . M A T M U L T 4 4 1 .
0024560 M A T M U L T 4 4 4 ) ) ( F N
0024600 S \ M A T M U L T ) ( M A C
0024620 R O S \ G E T E L T \ S E T
0024640 E L T ) \r ( F N S \ G E T E
0024660 L T \ S E T E L T \ M A T R
0024700 I X . G E T . B A S E ) ( F N
0024720 S \ C H E C K V A L I D A R R
0024740 A Y ) ( C O N S T A N T S W
0024760 O R D S P E R 3 B Y 3 M A T R I
0025000 X ) ( \r R E S O U R C E S T
0025020 R A N S F O R M . B O X ) ) ) \r
0025040 ( F I L E S L O A D C M L A R
0025060 R A Y ) \r ( D E C L A R E : E
0025100 V A L @ C O M P I L E ( P U T
0025120 P R O P S G E T . W C O O R D
0025140 M A C R O ( L A M B D A (
0025160 V E C T O R ) ( * h d j "
0025200 1 7 - M a y - 8 5 1 4 : 3 5 "
0025220 ) ( A R E F \r V E C T O R
0025240 0 3 ) ) ) ( P U T P R O P S
0025260 G E T . X C O O R D M A C R
0025300 O ( L A M B D A ( V E C T O
0025320 R ) ( * h d j " 1 7 - M a
0025340 y - 8 5 1 4 : 3 4 " ) ( A R
0025360 E F V E C T O R 0 0 ) ) \r
0025400 ) ( P U T P R O P S G E T .
0025420 Y C O O R D M A C R O ( L A
0025440 M B D A ( V E C T O R ) ( *
0025460 h d j " 1 7 - M a y - 8 5
0025500 1 4 : 3 4 " ) ( A R E F V E
0025520 C T O R 0 1 ) ) ) ( P U T
0025540 P R O P S \r G E T . Z C O O R
0025560 D M A C R O ( L A M B D A
0025600 ( V E C T O R ) ( * h d j
0025620 " 1 7 - M a y - 8 5 1 4 : 3 5
0025640 " ) ( A R E F V E C T O R
0025660 0 2 ) ) ) ( P U T P R O P S
0025700 S E T . W C O O R D \r M A C
0025720 R O ( L A M B D A ( V E C T
0025740 O R V A L U E ) ( * h d j
0025760 " 1 6 - M a y - 8 5 1 4 : 2
0026000 9 " ) ( A S E T V A L U E
0026020 V E C T O R 0 3 ) ) ) ( P
0026040 U T P R O P S S E T . X C O O
0026060 R D \r M A C R O ( L A M B D
0026100 A ( V E C T O R V A L U E )
0026120 ( * h d j " 1 6 - M a y -
0026140 8 5 1 4 : 2 7 " ) ( A S E T
0026160 V A L U E V E C T O R 0
0026200 0 ) ) ) ( P U T P R O P S S
0026220 E T . Y C O O R D \r M A C R O
0026240 ( L A M B D A ( V E C T O R
0026260 V A L U E ) ( * h d j "
0026300 1 6 - M a y - 8 5 1 4 : 2 8 "
0026320 ) ( A S E T V A L U E V E
0026340 C T O R 0 1 ) ) ) ( P U T
0026360 P R O P S S E T . Z C O O R D
0026400 \r M A C R O ( L A M B D A
0026420 ( V E C T O R V A L U E ) (
0026440 * h d j " 1 6 - M a y - 8 5
0026460 1 4 : 2 8 " ) ( A S E T V
0026500 A L U E V E C T O R 0 2 )
0026520 ) ) ) \r ( D E C L A R E : E V
0026540 A L @ C O M P I L E ( P U T P
0026560 R O P S M A T M U L T 1 3 3
0026600 D M A C R O ( L A M B D A (
0026620 M A T R I X A M A T R I X B
0026640 M A T R I X C ) ( * h d j
0026660 \r " 1 2 - F e b - 8 5 1 2 : 2
0026700 8 " ) ( * * m u l t i p l
0026720 y ( 1 , 3 ) * ( 3 ,
0026740 3 ) = > ( 1 , 3 ) )
0026760 ( . M A T M U L T 1 3 3 ( \ M
0027000 A T R I X . G E T . B A S E M
0027020 A T R I X A ) \r ( \ M A T R I
0027040 X . G E T . B A S E M A T R I
0027060 X B ) ( \ M A T R I X . G E T
0027100 . B A S E M A T R I X C ) ) )
0027120 ) ( P U T P R O P S M A T M
0027140 U L T 3 3 1 D M A C R O ( L
0027160 A M B D A ( M A T R I X A \r
0027200 M A T R I X B M A T R I X C )
0027220 ( * h d j " 1 2 - F e b -
0027240 8 5 1 2 : 3 0 " ) ( * *
0027260 m u l t i p l y ( 3 , 3 )
0027300 * ( 3 , 1 ) = > ( 3
0027320 , 1 ) ) ( . M A T M U L T
0027340 3 3 1 ( \r \ M A T R I X . G E
0027360 T . B A S E M A T R I X A )
0027400 ( \ M A T R I X . G E T . B A S
0027420 E M A T R I X B ) ( \ M A T
0027440 R I X . G E T . B A S E M A T
0027460 R I X C ) ) ) ) ( P U T P R O
0027500 P S \r M A T M U L T 3 3 3 D
0027520 M A C R O ( L A M B D A ( M
0027540 A T R I X A M A T R I X B M
0027560 A T R I X C ) ( * h d j "
0027600 1 2 - F e b - 8 5 1 2 : 3 0 "
0027620 ) ( * * m u l t i p l y
0027640 t w o ( 3 , 3 \r ) m a t
0027660 r i c e s i n m i c r o c o
0027700 d e ) ( . M A T M U L T 3 3 3
0027720 ( \ M A T R I X . G E T . B A
0027740 S E M A T R I X A ) ( \ M A
0027760 T R I X . G E T . B A S E M A
0030000 T R I X B ) ( \r \ M A T R I X
0030020 . G E T . B A S E M A T R I X
0030040 C ) ) ) ) ( P U T P R O P S
0030060 M A T M U L T 1 4 4 D M A C R
0030100 O ( L A M B D A ( M A T R I
0030120 X A M A T R I X B M A T R I
0030140 X C ) ( * h d j \r " 1 2 -
0030160 F e b - 8 5 1 2 : 3 1 " ) (
0030200 * * m u l t i p l y ( 1
0030220 , 4 ) * ( 4 , 4 ) =
0030240 > ( 1 , 4 1 ) ) ( . M A
0030260 T M U L T 1 4 4 ( \ M A T R I
0030300 X . G E T . B A S E M A T R I
0030320 X A \r ) ( \ M A T R I X . G E
0030340 T . B A S E M A T R I X B )
0030360 ( \ M A T R I X . G E T . B A S
0030400 E M A T R I X C ) ) ) ) ( P
0030420 U T P R O P S M A T M U L T 4
0030440 4 1 D M A C R O ( L A M B D
0030460 A ( \r M A T R I X A M A T R
0030500 I X B M A T R I X C ) ( *
0030520 h d j " 1 2 - F e b - 8 5 1
0030540 2 : 3 2 " ) ( * * m u l t
0030560 i p l y ( 4 , 4 ) * (
0030600 4 , 1 ) = > ( 4 , 1
0030620 ) ) ( \r . M A T M U L T 4 4 1
0030640 ( \ M A T R I X . G E T . B A
0030660 S E M A T R I X A ) ( \ M A
0030700 T R I X . G E T . B A S E M A
0030720 T R I X B ) ( \ M A T R I X .
0030740 G E T . B A S E M A T R I X C
0030760 ) ) ) ) ( \r P U T P R O P S
0031000 M A T M U L T 4 4 4 D M A C R
0031020 O ( L A M B D A ( M A T R I
0031040 X A M A T R I X B M A T R I
0031060 X C ) ( * h d j " 1 2 - F
0031100 e b - 8 5 1 2 : 2 5 " ) ( *
0031120 * m u l t i p l y \r t w o
0031140 ( 4 , 4 ) m a t r i c e
0031160 s i n m i c r o c o d e )
0031200 ( . M A T M U L T 4 4 4 ( \ M
0031220 A T R I X . G E T . B A S E M
0031240 A T R I X A ) ( \ M A T R I X
0031260 . G E T . B A S E M A T R I X
0031300 B ) \r ( \ M A T R I X . G E T
0031320 . B A S E M A T R I X C ) ) )
0031340 ) ) \r ( D E C L A R E : E V A
0031360 L @ C O M P I L E ( P U T P R
0031400 O P S . M A T M U L T 1 3 3
0031420 D M A C R O ( L A M B D A (
0031440 M A T R I X A B A S E M A T R
0031460 I X B B A S E M A T R I X C B
0031500 A S E ) ( * \r h d j " 1 2
0031520 - F e b - 8 5 1 2 : 2 8 " )
0031540 ( * * m u l t i p l y ( 1
0031560 , 3 ) * ( 3 , 3 )
0031600 = > ( 1 , 3 ) ) ( ( O P
0031620 C O D E S U B F L O A T 3 3
0031640 ) M A T R I X A B A S E \r M
0031660 A T R I X B B A S E M A T R I
0031700 X C B A S E ) ) ) ( P U T P R
0031720 O P S . M A T M U L T 3 3 1
0031740 D M A C R O ( L A M B D A (
0031760 M A T R I X A B A S E M A T R
0032000 I X B B A S E M A T R I X C B
0032020 A S E ) \r ( * h d j " 1 2
0032040 - F e b - 8 5 1 2 : 3 0 " )
0032060 ( * * m u l t i p l y ( 3
0032100 , 3 ) * ( 3 , 1 )
0032120 = > ( 3 , 1 ) ) ( ( O P
0032140 C O D E S U B F L O A T 3 4
0032160 ) \r M A T R I X A B A S E M
0032200 A T R I X B B A S E M A T R I
0032220 X C B A S E ) ) ) ( P U T P R
0032240 O P S . M A T M U L T 3 3 3
0032260 D M A C R O ( L A M B D A (
0032300 M A T R I X A B A S E M A T R
0032320 I X B B A S E \r M A T R I X C
0032340 B A S E ) ( * h d j " 1 2
0032360 - F e b - 8 5 1 2 : 3 0 " )
0032400 ( * * m u l t i p l y t w
0032420 o ( 3 , 3 ) m a t r i c
0032440 e s i n m i c r o c o d e )
0032460 ( ( O P C O D E S \r U B F L
0032500 O A T 3 1 ) M A T R I X A B
0032520 A S E M A T R I X B B A S E
0032540 M A T R I X C B A S E ) ) ) (
0032560 P U T P R O P S . M A T M U L
0032600 T 1 4 4 D M A C R O ( L A M
0032620 B D A ( M A T R I X A B A S E
0032640 \r M A T R I X B B A S E M A
0032660 T R I X C B A S E ) ( * h d
0032700 j " 1 2 - F e b - 8 5 1 2 :
0032720 3 1 " ) ( * * m u l t i p
0032740 l y ( 1 , 4 ) * ( 4
0032760 , 4 ) = > ( 1 , 4 1 )
0033000 ) ( ( \r O P C O D E S U B F
0033020 L O A T 3 5 ) M A T R I X A
0033040 B A S E M A T R I X B B A S E
0033060 M A T R I X C B A S E ) ) )
0033100 ( P U T P R O P S . M A T M U
0033120 L T 4 4 1 D M A C R O ( L A
0033140 M B D A ( \r M A T R I X A B A
0033160 S E M A T R I X B B A S E M
0033200 A T R I X C B A S E ) ( * h
0033220 d j " 1 2 - F e b - 8 5 1 2
0033240 : 3 2 " ) ( * * m u l t i
0033260 p l y ( 4 , 4 ) * ( 4
0033300 , 1 ) = > ( 4 , \r 1
0033320 ) ) ( ( O P C O D E S U B F
0033340 L O A T 3 6 ) M A T R I X A
0033360 B A S E M A T R I X B B A S E
0033400 M A T R I X C B A S E ) ) )
0033420 ( P U T P R O P S . M A T M U
0033440 L T 4 4 4 D M A C R O ( L A
0033460 M B D A \r ( M A T R I X A B A
0033500 S E M A T R I X B B A S E M
0033520 A T R I X C B A S E ) ( * h
0033540 d j " 1 2 - F e b - 8 5 1 2
0033560 : 2 5 " ) ( * * m u l t i
0033600 p l y t w o ( 4 , 4 )
0033620 m a t r i c e s i n \r m i c
0033640 r o c o d e ) ( ( O P C O D E
0033660 S U B F L O A T 3 2 ) M A
0033700 T R I X A B A S E M A T R I X
0033720 B B A S E M A T R I X C B A S
0033740 E ) ) ) ) \r ( P U T P R O P S
0033760 \ G E T E L T M A C R O ( A
0034000 R G S ( L E T ( ( A R R A Y
0034020 B A S E ( C A R A R G S ) )
0034040 ( R O W ( C A D R A R G S
0034060 ) ) ( C O L U M N ( C A D D
0034100 R A R G S ) ) ( \r E l t s P
0034120 e r R o w ( C A D D D R A R
0034140 G S ) ) ) ( i f ( A N D (
0034160 C O N S T A N T E X P R E S S I
0034200 O N P R O W ) ( C O N S T A
0034220 N T E X P R E S S I O N P C O
0034240 L U M N ) ( \r C O N S T A N T
0034260 E X P R E S S I O N P E l t s
0034300 P e r R o w ) ) t h e n ( B
0034320 Q U O T E ( \ G E T B A S E F
0034340 L O A T P , A R R A Y B A S
0034360 E , ( U N F O L D ( I P L
0034400 U S ( S U B 1 \r C O L U M N
0034420 ) ( I T I M E S ( S U B 1
0034440 R O W ) E l t s P e r R o w )
0034460 ) W O R D S P E R C E L L ) )
0034500 ) e l s e ( Q U O T E I G
0034520 N O R E M A C R O ) ) ) ) ) \r (
0034540 P U T P R O P S \ S E T E L T
0034560 M A C R O ( A R G S ( L E
0034600 T ( ( A R R A Y B A S E ( C
0034620 A R A R G S ) ) ( R O W (
0034640 C A D R A R G S ) ) ( C O L
0034660 U M N ( C A D D R A R G S )
0034700 ) ( \r E l t s P e r R o w (
0034720 C A D D D R A R G S ) ) ( V
0034740 A L U E ( C A D R ( C D D D
0034760 R A R G S ) ) ) ) ( i f (
0035000 A N D ( C O N S T A N T E X P
0035020 R E S S I O N P R O W ) ( \r
0035040 C O N S T A N T E X P R E S S I
0035060 O N P C O L U M N ) ( C O N
0035100 S T A N T E X P R E S S I O N P
0035120 E l t s P e r R o w ) ) t h
0035140 e n ( B Q U O T E ( \ P U T
0035160 B A S E F L O A T P , A R R
0035200 A Y B A S E \r , ( U N F O L
0035220 D ( I P L U S ( S U B 1 C
0035240 O L U M N ) ( I T I M E S (
0035260 S U B 1 R O W ) E l t s P e
0035300 r R o w ) ) W O R D S P E R C
0035320 E L L ) , V A L U E ) ) e
0035340 l s e ( Q U O T E \r I G N O
0035360 R E M A C R O ) ) ) ) ) \r ( R P
0035400 A Q Q W O R D S P E R 3 B Y 3
0035420 M A T R I X 1 8 ) \r ( C O N S
0035440 T A N T S W O R D S P E R 3 B
0035460 Y 3 M A T R I X ) \r ( P U T D E
0035500 F ( Q U O T E T R A N S F O
0035520 R M . B O X ) ( Q U O T E R
0035540 E S O U R C E S ) ( Q U O T E
0035560 ( N E W ( I D E N T I T Y 3
0035600 B Y 3 ) ) ) ) \r ( P U T P R O P
0035620 S M A T M U L T C O P Y R I
0035640 G H T ( " X e r o x C o r p
0035660 o r a t i o n " 1 9 8 5 ) ) \r
0035700 N I L \r
0035704