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