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