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