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