$ od -c -N 50000 [eris]<Lisp>KOTO>Library>MATMULT.DCOM!4 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