$ od -c -N 50000 [eris]<LispCore>LIBRARY>CMLFLOAT.DCOM!24
0000000 ( F I L E C R E A T E D " 2 4
0000020 - J u n - 8 6 2 0 : 3 9 : 3 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 > C M L F L O
0000120 A T . ; 3 0 ) \r " 2 3 - J u n
0000140 - 8 6 1 8 : 0 4 : 3 0 " r e
0000160 c o m p i l e d c h a n g e s
0000200 : T R U N C A T E % % C O M
0000220 P L E X - A B S C O M P L E X
0000240 \ F L O A T C L : S Q R T
0000260 % % S Q R T - P E R F E C T \r
0000300 % % S Q R T - R A T I O - P E R
0000320 F E C T C L : S I N C L : C
0000340 O S A S I N A C O S % % A
0000360 T A N 1 % % A T A N - F L O A
0000400 T i n " X e r o x L i s p
0000420 2 3 - J u n - 8 6 . . . "
0000440 d a t e d \r " 2 3 - J u n - 8
0000460 6 1 8 : 1 7 : 4 1 " ) \r ( F I
0000500 L E C R E A T E D " 2 4 - J u
0000520 n - 8 6 2 0 : 3 7 : 5 6 " {
0000540 E R I S } < L I S P C O R E > L
0000560 I B R A R Y > C M L F L O A T .
0000600 ; 3 0 7 1 4 8 1 c h a n g e
0000620 s t o : ( F N S % % A T A
0000640 N 1 \r % % A T A N - F L O A T
0000660 \ F L O A T T R U N C A T E
0000700 % % C O M P L E X - A B S C
0000720 O M P L E X C L : S Q R T %
0000740 % S Q R T - P E R F E C T % %
0000760 S Q R T - R A T I O - P E R F E
0001000 C T C L : S I N \r C L : C O
0001020 S % % O L D - T A N - F L O A
0001040 T A S I N % % O L D - A S I
0001060 N - F L O A T A C O S ) ( V
0001100 A R S C M L F L O A T C O M S
0001120 C M L F L O A T J U N K C O M
0001140 S ) p r e v i o u s d a t e
0001160 : \r " 3 0 - M a y - 8 6 1 6
0001200 : 5 1 : 4 2 " { E R I S } < L
0001220 I S P C O R E > L I B R A R Y >
0001240 C M L F L O A T . ; 2 7 ) \r % %
0001260 F L O A T D 1 \r ( L ( 1 L
0001300 O W O R D 0 H I W O R D ) )
0001320 \0 \a \0 \0 \0 002 @ A 321 355 \0 020 \0 N I
0001340 L \r N I L \r ( ) \r % % M A K E -
0001360 A R R A Y D 1 \r ( P 0 A R
0001400 R A Y I 0 L I S T ) \0 /
0001420 004 \0 \0 001 021 020 \0 @ \t \0 \0 g \0 \0 o \0
0001440 \0 \0 j \f \0 \0 X @ j 021 022 003 I 003 265 004
0001460 H 020 001 273 H J K * 277 I 002 271 J k 324 272
0001500 260 354 \0 ( 2 1 Q A R R A Y 6
0001520 L E N G T H ) \r ( 1 1 Q F L O
0001540 A T P ) \r ( 1 5 Q 0 . 0 ) \r
0001560 P H A S E D 1 \r ( I 0 N U
0001600 M B E R ) \0 035 \0 \0 \0 001 @ \t \0 \0
0001620 233 @ \t \0 \0 @ \t \0 \0 \n \0 \0 020 j @ 363
0001640 224 o \0 \0 \0 020 j 020 \0 ( 1 7 Q C L
0001660 : A T A N 1 4 Q R E A L P A
0001700 R T 1 0 Q I M A G P A R T
0001720 3 C O M P L E X P ) \r N I L \r
0001740 ( 3 0 Q 3 . 1 4 1 5 9 3 ) \r
0001760 T R U N C A T E D 1 \r ( L (
0002000 0 - a r g s - ) ) \0 264 \b \0 002
0002020 \0 e 021 001 \0 k a 021 a \a l 002 H 361 221 k
0002040 202 l 002 a 272 h [ 274 J k 360 262 ' I d 3
0002060 222 261 \0 205 d 004 l 003 360 224 \t \0 \0 260 y
0002100 004 ` \0 \0 360 262 l I \t \0 \0 I \t \0 \0 333
0002120 260 g I _ 016 d 3 262 , 277 J ] d 3
0002140 225 277 I J 333 260 R 004 l 003 360 224 I J 353 260
0002160 H M 004 ` \0 \0 360 230 I J \n \0 \0 \t \0 \0
0002200 020 J 260 0 004 l 003 360 262 J ^ 3 247 N
0002220 d 004 l 003 360 230 277 I J 353 \t \0 \0 260 032 004
0002240 ` \0 \0 360 263 324 J 211 O 016 004 ` \0 \0 360 263
0002260 311 I l 033 \n \0 \0 [ I K J 326 325 \ K L
0002300 \n \0 \0 020 \0 ( 2 6 1 Q V A L U E
0002320 S 2 4 5 Q \ L I S P E R R O
0002340 R 2 1 3 Q \ F I X P . F R O
0002360 M . F L O A T P 1 5 6 Q T R
0002400 U N C A T E 1 5 3 Q % % /
0002420 7 5 Q R A T I O - D E N O M I
0002440 N A T O R 7 1 Q R A T I O -
0002460 N U M E R A T O R 5 4 Q \ F
0002500 I X P . F R O M . F L O A T P )
0002520 \r ( 2 3 4 Q 004 003 R A T I O T Y
0002540 P E # 2 2 1 Q 004 003 R A T I O
0002560 T Y P E # 1 4 4 Q 004 003 R A T
0002600 I O T Y P E # 6 2 Q 004 003 R A
0002620 T I O T Y P E # ) \r ( ) \r % % C
0002640 O M P L E X - A B S D 1 \r ( L
0002660 ( 0 Z ) ) \0 032 002 \0 \0 001 021
0002700 001 @ \t \0 \0 X @ \t \0 \0 Y H d 326 I d
0002720 326 324 d \t \0 \0 020 \0 ( 2 7 Q C L :
0002740 S Q R T 1 3 Q C O M P L E X
0002760 - I M A G P A R T 6 C O M P
0003000 L E X - R E A L P A R T ) \r N I
0003020 L \r ( ) \r C O M P L E X D 1 \r
0003040 ( L ( 0 - a r g s - ) ) \0
0003060 202 006 \0 002 \0 e 021 001 \0 k a 021 A 005 l 002
0003100 H 361 221 j 202 l 002 a Z j \n \0 \0 262 " J
0003120 [ 3 247 K d 004 ` \0 \0 360 221 I 020 004 l
0003140 003 360 224 I 006 \0 \0 020 J l 033 \n \0 \0 020 I
0003160 \ 3 251 L d 004 ` \0 \0 360 262 & 277 J ]
0003200 3 250 M d 004 ` \0 \0 360 226 277 I J \n \0
0003220 \0 020 004 l 003 360 262 322 I 006 \0 \0 J \n \0 \0
0003240 020 004 l 003 360 230 I J 006 \0 \0 \n \0 \0 020 I
0003260 l 033 \n \0 \0 020 \0 ( 1 7 7 Q \ L I
0003300 S P E R R O R 1 7 0 Q % % M
0003320 A K E - C O M P L E X 1 5 2 Q
0003340 % % M A K E - C O M P L E X
0003360 1 3 3 Q % % M A K E - C O M P
0003400 L E X 7 0 Q \ L I S P E R R
0003420 O R 2 7 Q % % = ) \r ( 1 6 5
0003440 Q F L O A T P 1 4 6 Q F L
0003460 O A T P 1 2 3 Q 004 003 R A T I
0003500 O T Y P E # 1 0 4 Q 004 003 R A
0003520 T I O T Y P E # 6 1 Q F L O
0003540 A T P 4 4 Q 004 003 R A T I O T
0003560 Y P E # ) \r ( ) \r \ F L O A T
0003600 D 1 \r ( P 3 S I G N P 2
0003620 L O P 1 H I P 0 $
0003640 $ T Y P E - V A L U E I 0
0003660 X ) \0 313 004 \0 \0 001 @ d 005 003 222 261 \0
0003700 304 021 001 \0 H d 3 242 261 \0 205 277 @ 004 d
0003720 l 002 360 262 B 277 @ 310 \0 @ 310 001 j 021 003 003
0003740 I n 177 377 361 262 % J j 360 235 I j 360 263 031
0003760 n 377 377 I 331 k 330 271 215 n 377 377 I 331 271 n
0004000 377 377 J 331 k 330 272 k [ 200 K l 236 I J i
0004020 \r 005 \0 \0 020 k 360 262 2 j 021 001 001 j 021 001
0004040 003 j @ 361 242 @ 260 025 k 273 @ 323 j 360 223 k
0004060 271 j 207 n 377 377 @ 323 331 k 330 021 001 002 K l
0004100 236 I J i \r 005 \0 \0 020 @ \t \0 \0 020 004 `
0004120 \0 \0 360 231 @ \t \0 \0 @ \t \0 \0 353 020 H 004
0004140 ` \0 \0 360 262 024 @ \t \0 \0 \t \0 \0 @ \t \0
0004160 \0 \t \0 \0 \n \0 \0 020 @ l \n i \v \0 \0 \t
0004200 \0 \0 020 \0 ( 3 1 0 Q \ F L O A T
0004220 3 0 5 Q \ L I S P E R R O R
0004240 2 7 5 Q % % M A K E - C O M
0004260 P L E X 2 7 2 Q \ F L O A T
0004300 2 6 7 Q I M A G P A R T 2
0004320 6 3 Q \ F L O A T 2 6 0 Q
0004340 R E A L P A R T 2 4 2 Q R A
0004360 T I O - D E N O M I N A T O R
0004400 2 3 6 Q R A T I O - N U M E R
0004420 A T O R 2 2 3 Q \ B I G N U
0004440 M . T O . F L O A T 2 1 6 Q
0004460 \ M A K E F L O A T 1 3 2 Q
0004500 \ M A K E F L O A T ) \r ( 2 5 1
0004520 Q 004 003 C O M P L E X T Y P E #
0004540 2 3 0 Q 004 003 R A T I O T Y P
0004560 E # ) \r ( ) \r E X P D 1 \r ( P
0004600 0 $ $ T Y P E - V A L U E
0004620 I 0 N U M B E R ) \0 ' 001 \0
0004640 \0 001 @ 021 001 \0 H d 004 ` \0 \0 360 225 277 @
0004660 \t \0 \0 020 3 020 227 @ 006 \0 \0 \t \0 \0 020 o
0004700 \0 \0 \0 @ \n \0 \0 020 \0 ( 4 4 Q L I
0004720 S P E R R O R 3 3 Q % % E X
0004740 P - F L O A T 2 0 Q % % E X
0004760 P - C O M P L E X ) \r ( 3 0 Q
0005000 F L O A T P 1 1 Q 004 003 C O M
0005020 P L E X T Y P E # ) \r ( 4 0 Q
0005040 " N O N - N U M E R I C A R
0005060 G " ) \r % % E X P - F L O A T
0005100 D 1 \r ( P 3 A N S W E R P
0005120 2 R P 1 N P 0 M
0005140 I 0 X ) \0 [ 006 \0 \0 001 021 `
0005160 005 @ o \0 \0 \0 326 \t \0 \0 \t \0 \0 \ 001 270
0005200 L 002 001 Z o \0 \0 \0 \n \0 \0 \t \0 \0 ] 001
0005220 271 M 002 001 272 ` \0 \0 I ( J 355 001 ` \0 \0
0005240 006 \0 \0 311 \0 l 005 2 \0 355 \0 h J 355 001 354
0005260 001 ` \0 \0 006 \0 \0 311 \0 l 005 2 \0 355 \0 \n
0005300 \0 \0 326 H \n \0 \0 020 \0 ( 1 3 0 Q S
0005320 C A L E - F L O A T 1 2 3 Q
0005340 % % / 3 7 Q \ M V L I S T
0005360 3 4 Q C L : F L O O R 1 6 Q
0005400 \ M V L I S T 1 3 Q C L :
0005420 F L O O R ) \r ( 1 1 0 Q A R R
0005440 A Y P 1 0 5 Q % % E X P - P
0005460 O L Y 6 4 Q A R R A Y P 6
0005500 1 Q % % E X P - P O L Y 5 1
0005520 Q % % E X P - T A B L E ) \r (
0005540 3 1 Q . 1 2 5 7 1 . 4 4
0005560 2 6 9 5 ) \r % % E X P - C O M P
0005600 L E X D 1 \r ( P 1 Y P
0005620 0 X I 0 Z ) \0 031 002 \0 \0
0005640 001 @ \t \0 \0 021 001 \0 @ \t \0 \0 021 001 001 H
0005660 \t \0 \0 I \t \0 \0 326 020 \0 ( 2 5 Q C
0005700 I S 2 1 Q E X P 1 2 Q I
0005720 M A G P A R T 3 R E A L P A
0005740 R T ) \r N I L \r ( ) \r C L : E X
0005760 P T D 1 \r ( I 1 N I 0
0006000 X ) \0 205 \0 \0 \0 002 @ \t \0 \0 224 A
0006020 3 263 - @ j 360 252 @ d 005 003 262 031 \t \0
0006040 \0 262 023 A \t \0 \0 221 @ 020 o \0 \0 \0 @ A
0006060 \v \0 \0 020 @ \t \0 \0 233 A d 3 227 277 @
0006100 A \n \0 \0 020 A \t \0 \0 262 034 @ \t \0 \0 244
0006120 @ \t \0 \0 225 @ A \n \0 \0 020 o \0 \0 \0 @
0006140 A \v \0 \0 020 @ \t \0 \0 225 @ A \n \0 \0 020
0006160 A 3 255 j @ 363 231 o \0 \0 \0 @ A \v \0
0006200 \0 020 @ 006 \0 \0 A 006 \0 \0 \n \0 \0 020 \0 (
0006220 2 0 2 Q % % E X P T - F L O A
0006240 T 1 6 6 Q C L : E R R O R
0006260 1 4 4 Q % % E X P T - C O M P
0006300 L E X 1 3 6 Q C O M P L E X
0006320 P 1 3 1 Q C L : E R R O R
0006340 1 1 7 Q % % E X P T - C O M P
0006360 L E X - P O W E R 1 1 1 Q P
0006400 L U S P 1 0 4 Q C O M P L E
0006420 X P 7 6 Q C O M P L E X P
0006440 7 1 Q % % E X P T - I N T E G
0006460 E R 5 5 Q C O M P L E X P
0006500 5 0 Q C L : E R R O R 3 4 Q
0006520 P L U S P 2 6 Q \ F Z E R
0006540 O P 3 R A T I O N A L P ) \r
0006560 ( 1 7 7 Q F L O A T P 1 7 3
0006600 Q F L O A T P ) \r ( 1 6 1 Q
0006620 " N e g a t i v e n u m b e
0006640 r ~ A t o n o n - i n t e
0006660 g r a l p o w e r ~ A . "
0006700 1 2 4 Q " ~ A n e g a t i v
0006720 e n u m b e r t o a c o
0006740 m p l e x p o w e r ~ A . "
0006760 \r 4 3 Q " ~ A t o a n
0007000 o n - p o s i t i v e p o w e
0007020 r ~ A . " ) \r % % E X P T - I
0007040 N T E G E R D 1 \r ( P 1 T
0007060 O T A L P 0 N E X T N I
0007100 1 P O W E R I 0 B A S
0007120 E ) \0 201 002 \0 \0 002 j A 363 233 k @ j
0007140 A 325 \n \0 \0 \n \0 \0 020 @ \t \0 \0 262 033 @
0007160 d 3 263 026 \t \0 \0 A \n \0 \0 @ \t \0 \0
0007200 A \n \0 \0 \n \0 \0 020 @ 3 234 @ l 002 \n
0007220 \0 \0 225 k A \n \0 \0 020 A m 377 \n \0 \0 A
0007240 k 345 j 360 241 @ 200 k 021 002 001 H j 360 263 $
0007260 H 005 003 265 032 @ d 326 b \0 277 H b 002 m 377
0007300 \n \0 \0 A k 345 j 360 252 @ I 326 207 \t \0 \0
0007320 262 345 I 020 I 271 X 260 325 \0 ( 1 6 6 Q
0007340 \ F Z E R O P 1 5 1 Q A S H
0007360 1 0 5 Q A S H 7 6 Q A S
0007400 H 7 0 Q % % = 5 5 Q % %
0007420 M A K E - R A T I O 5 2 Q %
0007440 % E X P T - I N T E G E R 4 6
0007460 Q D E N O M I N A T O R 4 2
0007500 Q % % E X P T - I N T E G E R
0007520 3 6 Q N U M E R A T O R 2
0007540 3 Q R A T I O N A L P 1 6 Q
0007560 % % / 1 3 Q % % E X P T -
0007600 I N T E G E R ) \r N I L \r ( ) \r
0007620 % % E X P T - F L O A T D 1 \r
0007640 ( I 1 Y I 0 X ) \0 031
0007660 \0 \0 \0 002 @ o \0 \0 \0 \n \0 \0 224 o \0 \0
0007700 \0 020 A @ \t \0 \0 326 \t \0 \0 020 \0 ( 2 6
0007720 Q E X P 2 2 Q C L : L O G
0007740 7 % % = ) \r N I L \r ( 1 4
0007760 Q 0 . 0 4 0 . 0 ) \r % % E
0010000 X P T - C O M P L E X D 1 \r (
0010020 I 1 N I 0 Z ) \0 024 \0
0010040 \0 \0 002 @ \t \0 \0 A \n \0 \0 A @ \t \0 \0
0010060 326 \t \0 \0 326 020 \0 ( 2 0 Q C I S
0010100 1 4 Q P H A S E 7 C L : E
0010120 X P T 3 % % C O M P L E X -
0010140 A B S ) \r N I L \r ( ) \r % % E X
0010160 P T - C O M P L E X - P O W E R
0010200 D 1 \r ( I 1 W I 0 Z
0010220 ) \0 \v \0 \0 \0 002 A @ \t \0 \0 326 \t \0
0010240 \0 020 \0 ( 1 0 Q E X P 4 C L
0010260 : L O G ) \r N I L \r ( ) \r C L :
0010300 L O G D 1 \r ( P 4 $ $ T Y
0010320 P E - V A L U E P 3 B A S
0010340 E P 2 B A S E - S U P P L
0010360 I E D P 1 N U M B E R P
0010400 0 \ C L : L A M B D A . A R
0010420 G C N T ) \0 z 005 \0 002 \0 e 021 001 \0
0010440 k H 361 230 o \0 \0 \0 H \n \0 \0 277 H l 002
0010460 361 230 o \0 \0 \0 H \n \0 \0 277 @ 021 ! 003 l
0010500 002 H 361 221 h 202 i 272 A 273 J 233 I \t \0 \0
0010520 K \t \0 \0 \n \0 \0 020 I 021 001 004 L d 004 `
0010540 \0 \0 360 225 277 I \t \0 \0 020 3 020 262 j I
0010560 363 262 023 j I 325 006 \0 \0 \t \0 \0 o \0 \0 \0
0010600 \n \0 \0 020 I 006 \0 \0 \t \0 \0 020 o \0 \0 \0
0010620 I \n \0 \0 020 \0 ( 1 6 7 Q L I S P
0010640 E R R O R 1 5 6 Q % % L O G
0010660 - F L O A T 1 4 6 Q C O M P
0010700 L E X 1 3 7 Q % % L O G - F
0010720 L O A T 1 1 4 Q % % L O G -
0010740 C O M P L E X 7 2 Q % % /
0010760 6 7 Q C L : L O G 6 3 Q C
0011000 L : L O G 3 5 Q E R R O R
0011020 1 7 Q E R R O R ) \r ( 1 5 3 Q
0011040 F L O A T P 1 3 4 Q F L O
0011060 A T P 1 0 5 Q 004 003 C O M P L
0011100 E X T Y P E # ) \r ( 1 6 3 Q
0011120 " N O N - N U M E R I C A R G
0011140 " 1 4 3 Q 3 . 1 4 1 5 9 3
0011160 3 1 Q " T o o m a n y a r
0011200 g s " 1 3 Q " T o o f e w
0011220 a r g s " ) \r % % L O G - F L
0011240 O A T D 1 \r ( P 4 A N S W
0011260 E R P 3 Z 2 P 2 Z
0011300 P 1 E X P P 0 R I
0011320 0 X ) \0 { 005 \0 \0 001 021 P 004 @ o
0011340 \0 \0 \0 362 250 o \0 \0 \0 @ \n \0 \0 277 @ o
0011360 \0 \0 \0 350 X d 312 \0 027 l 177 325 Y H l 177
0011400 317 \0 027 H d o \0 \0 \0 363 235 277 I k 324 271
0011420 H o \0 \0 \0 \n \0 \0 X k 325 H k 324 \n \0
0011440 \0 Z d d 326 [ J K 355 001 ` \0 \0 006 \0 \0
0011460 311 \0 l 004 2 \0 355 \0 K 355 001 ` \0 \0 006 \0
0011500 \0 311 \0 l 004 2 \0 355 \0 \n \0 \0 326 I o \0
0011520 \0 \0 326 324 020 \0 ( 1 6 0 Q % % /
0011540 1 0 5 Q % % / 7 4 Q % % /
0011560 2 1 Q E R R O R ) \r ( 1 4 5
0011600 Q A R R A Y P 1 4 2 Q % %
0011620 L O G - Q P O L Y 1 2 4 Q A
0011640 R R A Y P 1 2 1 Q % % L O G
0011660 - P P O L Y ) \r ( 1 6 6 Q .
0011700 6 9 3 1 4 7 2 7 1 Q 2 . 0
0011720 5 5 Q 1 . 4 1 4 2 1 4 2 7 Q
0011740 0 . 0 1 5 Q " L O G O F
0011760 Z E R O : " 7 0 . 0 ) \r %
0012000 % L O G - C O M P L E X D 1 \r
0012020 ( I 0 Z ) \0 020 \0 \0 \0 001 @ \t
0012040 \0 \0 \t \0 \0 @ \t \0 \0 \n \0 \0 020 \0 ( 1
0012060 5 Q C O M P L E X 1 2 Q P
0012100 H A S E 6 C L : L O G 3
0012120 % % C O M P L E X - A B S ) \r N
0012140 I L \r ( ) \r % % O L D - L O G -
0012160 F L O A T D 1 \r ( P 2 S S
0012200 U M P 1 E X P P 0 S
0012220 X I 0 X ) \0 K 003 \0 \0 001 021
0012240 0 002 @ o \0 \0 \0 362 250 o \0 \0 \0 @ \n \0
0012260 \0 277 @ o \0 \0 \0 350 X d 312 \0 027 l 177 331
0012300 Y H l 177 317 \0 027 H o \0 \0 \0 351 X d 355
0012320 001 ` \0 \0 006 \0 \0 311 \0 l \b 2 \0 355 \0 Z
0012340 d I o \0 \0 \0 352 350 020 \0 ( 2 1 Q E
0012360 R R O R ) \r ( 6 7 Q A R R A Y
0012400 P 6 4 Q \ L O G A R R A Y )
0012420 \r ( 1 0 6 Q . 6 9 3 1 4 7 2
0012440 5 4 Q 1 . 0 2 7 Q 0 . 0
0012460 1 5 Q " L O G O F Z E R
0012500 O : " 7 0 . 0 ) \r C L : S Q
0012520 R T D 1 \r ( L ( 0 X ) )
0012540 \0 R 001 \0 \0 001 @ d \t \0 \0 263 024 277 j @
0012560 363 233 j @ \t \0 \0 \t \0 \0 \n \0 \0 020 @ 021
0012600 001 \0 H d 3 225 277 @ \t \0 \0 020 004 l 003
0012620 360 224 @ \t \0 \0 020 H d 004 ` \0 \0 360 225 277
0012640 @ \t \0 \0 020 004 ` \0 \0 360 224 @ \t \0 \0 020
0012660 @ l \n \n \0 \0 020 \0 ( 1 1 7 Q \ L
0012700 I S P E R R O R 1 1 0 Q % %
0012720 S Q R T - C O M P L E X 7 5 Q
0012740 % % S Q R T - R A T I O 5 7
0012760 Q % % S Q R T - F L O A T 4
0013000 5 Q % % S Q R T - I N T E G E
0013020 R 2 6 Q C O M P L E X 2 3
0013040 Q C L : S Q R T 2 0 Q A B
0013060 S 4 C O M P L E X P ) \r ( 1
0013100 0 2 Q 004 003 C O M P L E X T Y P
0013120 E # 6 6 Q 004 003 R A T I O T Y
0013140 P E # ) \r ( ) \r % % S Q R T - P
0013160 E R F E C T D 1 \r ( L ( 0
0013200 X ) ) \0 W 001 \0 \0 001 @ d \t \0 \0 263
0013220 034 277 j @ 363 262 025 @ \t \0 \0 \t \0 \0 021 001
0013240 \0 H 264 = j H \n \0 \0 020 @ 021 001 \0 H d
0013260 3 225 277 @ \t \0 \0 020 004 l 003 360 221 h 020
0013300 H d 004 ` \0 \0 360 225 277 @ \t \0 \0 020 004 `
0013320 \0 \0 360 224 @ \t \0 \0 020 @ l \n \n \0 \0 020
0013340 \0 ( 1 2 4 Q \ L I S P E R R O
0013360 R 1 1 5 Q % % S Q R T - C O
0013400 M P L E X - P E R F E C T 1 0
0013420 2 Q % % S Q R T - R A T I O -
0013440 P E R F E C T 5 5 Q % % S Q
0013460 R T - I N T E G E R - P E R F E
0013500 C T 3 6 Q C O M P L E X 2
0013520 3 Q % % S Q R T - P E R F E C
0013540 T 2 0 Q A B S 4 C O M P
0013560 L E X P ) \r ( 1 0 7 Q 004 003 C O
0013600 M P L E X T Y P E # 7 3 Q 004
0013620 003 R A T I O T Y P E # ) \r ( ) \r
0013640 % % S Q R T - I N T E G E R D
0013660 1 \r ( I 0 R ) \0 017 \0 \0 \0 001
0013700 @ \t \0 \0 265 \t @ 006 \0 \0 \t \0 \0 020 \0 (
0013720 1 4 Q % % S Q R T - F L O A T
0013740 3 % % S Q R T - I N T E G E
0013760 R - P E R F E C T ) \r ( 1 1 Q
0014000 F L O A T P ) \r ( ) \r % % S Q R
0014020 T - I N T E G E R - P E R F E C
0014040 T D 1 \r ( P 0 A I 0
0014060 R ) \0 023 001 \0 \0 001 021 020 \0 @ \t \0 \0
0014100 X d d 326 @ 360 241 h 020 H 020 \0 ( 6 I
0014120 S Q R T ) \r N I L \r ( ) \r % % S
0014140 Q R T - F L O A T D 1 \r ( I
0014160 0 X ) \0 b 001 \0 \0 001 h 021 001 \0 @
0014200 o \0 \0 \0 362 244 o \0 \0 \0 020 @ 355 001 322 342
0014220 342 342 342 342 342 342 l 377 345 l 177 331 n 377 377 345
0014240 342 l 177 330 l 377 345 340 340 340 340 340 340 340 @ 355
0014260 001 322 l 177 345 344 j 321 X l 004 d j 361 262 032
0014300 n ? \0 j 321 H @ H 355 \0 \n \0 \0 355 001 354
0014320 \0 354 003 270 k 331 260 345 H 355 \0 020 \0 ( 1 2
0014340 1 Q % % / ) \r N I L \r ( 1 6
0014360 Q 0 . 0 1 0 Q 0 . 0 ) \r %
0014400 % S Q R T - R A T I O D 1 \r (
0014420 I 0 R ) \0 017 \0 \0 \0 001 @ \t \0
0014440 \0 265 \t @ 006 \0 \0 \t \0 \0 020 \0 ( 1 4 Q
0014460 % % S Q R T - F L O A T 3
0014500 % % S Q R T - R A T I O - P E R
0014520 F E C T ) \r ( 1 1 Q F L O A T
0014540 P ) \r ( ) \r % % S Q R T - R A T
0014560 I O - P E R F E C T D 1 \r ( P
0014600 3 A D E N P 2 A N U M
0014620 P 1 R D E N P 0 R N
0014640 U M I 0 R ) \0 % 004 \0 \0 001
0014660 021 @ 003 @ \t \0 \0 X @ \t \0 \0 Y H \t \0
0014700 \0 Z d 241 h 020 I \t \0 \0 [ d 264 371 J K
0014720 \n \0 \0 020 \0 ( 4 2 Q % % M A K E
0014740 - R A T I O 3 1 Q % % S Q R
0014760 T - I N T E G E R - P E R F E C
0015000 T 2 0 Q % % S Q R T - I N T
0015020 E G E R - P E R F E C T 1 3 Q
0015040 R A T I O - D E N O M I N A T
0015060 O R 6 R A T I O - N U M E R
0015100 A T O R ) \r N I L \r ( ) \r % % S
0015120 Q R T - C O M P L E X D 1 \r (
0015140 P 1 1 Q I P 7 A N S W
0015160 E R I 0 X ) \0 301 \n \0 \0 001
0015200 h d d d d d d 021 027 \a @ \t \0 \0 _ 016
0015220 d 220 020 @ \t \0 \0 355 001 Z @ \t \0 \0 355 001
0015240 [ @ \t \0 \0 \t \0 \0 355 001 X @ \t \0 \0 o
0015260 \0 \0 \0 \n \0 \0 355 001 Y H I 355 \0 \t \0 \0
0015300 355 001 354 003 \ H I 355 \0 \t \0 \0 355 001 354 003
0015320 ] l 004 k 021 002 \t O 022 O 020 363 263 Y L d
0015340 354 003 M d 354 003 354 \0 276 n ? \0 j 321 L J
0015360 355 \0 L 355 \0 326 K 355 \0 M 355 \0 326 324 N 355
0015400 \0 \n \0 \0 355 001 354 \0 354 003 274 n ? \0 j 321
0015420 M K 355 \0 L 355 \0 326 J 355 \0 M 355 \0 326 325
0015440 N 355 \0 \n \0 \0 355 001 354 \0 354 003 275 O 022 k
0015460 324 _ 022 260 246 023 L 355 \0 M 355 \0 \n \0 \0 020
0015500 \0 ( 2 7 6 Q C O M P L E X 2
0015520 4 5 Q % % / 2 0 3 Q % % /
0015540 1 1 3 Q C L : S I N 7 7 Q
0015560 C L : C O S 6 5 Q % % /
0015600 5 6 Q P H A S E 4 7 Q C L
0015620 : S Q R T 4 4 Q A B S 3 5
0015640 Q I M A G P A R T 2 6 Q R
0015660 E A L P A R T 1 5 Q % % S Q
0015700 R T - C O M P L E X - P E R F E
0015720 C T ) \r N I L \r ( 6 2 Q 2 .
0015740 0 ) \r % % S Q R T - C O M P L E
0015760 X - P E R F E C T D 1 \r ( P
0016000 4 D E L T A P 3 N P
0016020 2 M P 1 B P 0 A
0016040 I 0 R ) \0 s 005 \0 \0 001 021 P 004
0016060 @ \t \0 \0 Z d 005 003 263 2 @ \t \0 \0 [ J
0016100 j \n \0 \0 262 / K \t \0 \0 262 024 K l 002 \n
0016120 \0 \0 \t \0 \0 X d 262 G d \n \0 \0 020 K m
0016140 376 \n \0 \0 \t \0 \0 X 265 004 h 020 j H 325 \n
0016160 \0 \0 020 J d 326 K d 326 324 \t \0 \0 \ d 264
0016200 354 J L 324 l 002 \n \0 \0 \t \0 \0 X d 264 335
0016220 K H l 002 326 \n \0 \0 Y H I \n \0 \0 020 \0
0016240 ( 1 6 0 Q % % M A K E - C O M
0016260 P L E X 1 5 2 Q % % / 1 3
0016300 6 Q % % S Q R T - P E R F E C
0016320 T 1 3 3 Q % % / 1 1 7 Q
0016340 % % S Q R T - P E R F E C T 1
0016360 0 4 Q % % M A K E - C O M P L
0016400 E X 7 1 Q % % S Q R T - P E
0016420 R F E C T 6 6 Q % % / 5 7
0016440 Q % % M A K E - C O M P L E X
0016460 4 7 Q % % S Q R T - P E R F
0016500 E C T 4 4 Q % % / 3 4 Q
0016520 P L U S P 2 6 Q % % = 2 0
0016540 Q I M A G P A R T 6 R E A
0016560 L P A R T ) \r N I L \r ( ) \r % %
0016600 O L D - S Q R T - C O M P L E X
0016620 D 1 \r ( P 1 P H A S E P
0016640 0 A B S I 0 Z ) \0 ,
0016660 002 \0 \0 001 @ \t \0 \0 265 & @ \t \0 \0 \t \0
0016700 \0 @ \t \0 \0 o \0 \0 \0 \n \0 \0 021 002 001 H
0016720 I \t \0 \0 326 H I \t \0 \0 326 \n \0 \0 020 \0
0016740 ( 5 1 Q C O M P L E X 4 5 Q
0016760 C L : S I N 3 7 Q C L : C
0017000 O S 2 7 Q % % / 2 0 Q P
0017020 H A S E 1 4 Q C L : S Q R T
0017040 1 1 Q A B S 3 % % S Q R
0017060 T - C O M P L E X - P E R F E C
0017100 T ) \r N I L \r ( 2 4 Q 2 . 0
0017120 ) \r I S Q R T D 1 \r ( P 3
0017140 H I P 2 L O P 0 L G
0017160 I 0 N ) \0 \ 004 \0 \0 001 @ 3
0017200 262 O j @ 363 263 J @ \t \0 \0 021 021 001 k
0017220 H k 325 m 377 \n \0 \0 \n \0 \0 021 001 002 J d
0017240 H k 345 j 360 242 m 377 200 j \n \0 \0 324 021 001
0017260 003 K k 325 J 363 241 J 020 J K 324 m 377 \n \0
0017300 \0 Y d d 326 @ 363 244 277 I 272 260 346 [ 260 344
0017320 o \0 \0 \0 @ \n \0 \0 020 \0 ( 1 3 1 Q
0017340 C L : E R R O R 1 0 2 Q A S
0017360 H 5 6 Q A S H 3 4 Q A S
0017400 H 3 1 Q A S H 1 5 Q I N
0017420 T E G E R - L E N G T H ) \r N I
0017440 L \r ( 1 2 5 Q " I S Q R T :
0017460 ~ S a r g u m e n t m u s
0017500 t b e a n o n n e g a t i
0017520 v e i n t e g e r . " ) \r C L
0017540 : S I N D 1 \r ( L ( 0 X )
0017560 ) \0 * \0 \0 \0 001 @ d 005 003 253 d \t \0
0017600 \0 246 277 @ 006 \0 \0 b \0 d 004 l 003 360 225 277
0017620 @ \t \0 \0 020 004 ` \0 \0 360 264 006 @ \t \0 \0
0017640 020 \0 ( 4 7 Q % % S I N - C O M
0017660 P L E X 3 3 Q % % S I N - F
0017700 L O A T 1 0 Q C O M P L E X
0017720 P ) \r ( 4 0 Q 004 003 C O M P L E
0017740 X T Y P E # 1 6 Q F L O A T
0017760 P ) \r ( ) \r % % S I N - F L O A
0020000 T D 1 \r ( I 1 C O S - F L
0020020 A G I 0 X ) \0 250 003 \0 \0 002
0020040 h d d 021 003 002 A 234 @ 355 001 n ? 311 n 017
0020060 333 321 354 \0 202 @ 355 001 d 355 \0 o \0 \0 \0 \n
0020100 \0 \0 355 001 X d 355 \0 o \0 \0 \0 363 262 024 n
0020120 277 200 j 321 271 H n @ I n 017 333 321 354 001 X
0020140 206 n ? 200 j 321 271 H 355 \0 o \0 \0 \0 363 232
0020160 n @ I n 017 333 321 H 354 001 270 o \0 \0 \0 H
0020200 355 \0 363 223 H 355 \0 020 H 355 \0 o \0 \0 \0 \n
0020220 \0 \0 355 001 X d d 354 003 Z I H J ` \0 \0
0020240 006 \0 \0 311 \0 l 005 2 \0 355 \0 J ` \0 \0 006
0020260 \0 \0 311 \0 l 005 2 \0 355 \0 \n \0 \0 355 001 354
0020300 003 354 003 d 355 \0 020 \0 ( 2 3 4 Q % %
0020320 / 1 6 1 Q % % / 4 1 Q C
0020340 L : M O D ) \r ( 2 2 1 Q A R R
0020360 A Y P 2 1 6 Q % % S I N - Q
0020400 P O L Y 2 0 2 Q A R R A Y P
0020420 1 7 7 Q % % S I N - P P O L
0020440 Y ) \r ( 1 5 6 Q 1 . 5 7 0 7
0020460 9 6 1 3 6 Q . 0 0 0 2 4 4 1
0020500 4 0 6 1 1 5 Q 1 . 5 7 0 7 9
0020520 6 5 3 Q 3 . 1 4 1 5 9 3 3
0020540 6 Q 6 . 2 8 3 1 8 6 ) \r % % S
0020560 I N - C O M P L E X D 1 \r ( P
0020600 1 Y P 0 X I 0 Z
0020620 ) \0 % 002 \0 \0 001 @ \t \0 \0 021 001 \0 @
0020640 \t \0 \0 021 001 001 H \t \0 \0 I \t \0 \0 326 H
0020660 \t \0 \0 I \t \0 \0 326 \n \0 \0 020 \0 ( 4 2
0020700 Q C O M P L E X 3 6 Q S I
0020720 N H 3 2 Q C L : C O S 2 5
0020740 Q C O S H 2 1 Q C L : S I
0020760 N 1 2 Q I M A G P A R T 3
0021000 R E A L P A R T ) \r N I L \r (
0021020 ) \r C L : C O S D 1 \r ( L (
0021040 0 X ) ) \0 + \0 \0 \0 001 @ d 005 003
0021060 253 d \t \0 \0 246 277 @ 006 \0 \0 b \0 d 004 l
0021100 003 360 226 277 @ i \n \0 \0 020 004 ` \0 \0 360 264
0021120 006 @ \t \0 \0 020 \0 ( 5 0 Q % % C O
0021140 S - C O M P L E X 3 4 Q % %
0021160 S I N - F L O A T 1 0 Q C O
0021200 M P L E X P ) \r ( 4 1 Q 004 003 C
0021220 O M P L E X T Y P E # 1 6 Q
0021240 F L O A T P ) \r ( ) \r % % C O S
0021260 - C O M P L E X D 1 \r ( P 1
0021300 Y P 0 X I 0 Z )
0021320 \0 ' 002 \0 \0 001 @ \t \0 \0 021 001 \0 @ \t \0
0021340 \0 021 001 001 H \t \0 \0 I \t \0 \0 326 j H \t
0021360 \0 \0 I \t \0 \0 326 325 \n \0 \0 020 \0 ( 4 4
0021400 Q C O M P L E X 3 7 Q S I
0021420 N H 3 3 Q C L : S I N 2 5
0021440 Q C O S H 2 1 Q C L : C O
0021460 S 1 2 Q I M A G P A R T 3
0021500 R E A L P A R T ) \r N I L \r (
0021520 ) \r C L : T A N D 1 \r ( P 0
0021540 $ $ T Y P E - V A L U E I
0021560 0 X ) \0 ' 001 \0 \0 001 @ 021 001 \0 H
0021600 d 004 ` \0 \0 360 225 277 @ \t \0 \0 020 3 020 227
0021620 @ 006 \0 \0 \t \0 \0 020 o \0 \0 \0 @ \n \0 \0
0021640 020 \0 ( 4 4 Q L I S P E R R O R
0021660 3 3 Q % % T A N - F L O A T
0021700 2 0 Q % % T A N - C O M P L
0021720 E X ) \r ( 3 0 Q F L O A T P
0021740 1 1 Q 004 003 C O M P L E X T Y P
0021760 E # ) \r ( 4 0 Q " N O N - N
0022000 U M E R I C A R G " ) \r % % T
0022020 A N - F L O A T D 1 \r ( P 3
0022040 R E C I P F L G I 0 X )
0022060 \0 263 004 \0 \0 001 h d d 021 023 003 @ o \0
0022100 \0 \0 \n \0 \0 355 001 X d d 355 \0 o \0 \0 \0
0022120 363 262 036 277 H n @ I n 017 333 321 354 001 270 o
0022140 \0 \0 \0 H 355 \0 363 262 035 i 273 n 277 311 214 355
0022160 \0 o \0 \0 \0 363 234 i 273 n ? 311 n 017 333 321
0022200 H 354 001 270 o \0 \0 \0 H 355 \0 \t \0 \0 363 237
0022220 K 231 k H 355 \0 \n \0 \0 355 001 200 H 355 \0 020
0022240 H 355 \0 o \0 \0 \0 \n \0 \0 355 001 X d d 354
0022260 003 Y H I ` \0 \0 006 \0 \0 311 \0 l 005 2 \0
0022300 355 \0 I ` \0 \0 006 \0 \0 311 \0 l 006 2 \0 355
0022320 \0 \n \0 \0 355 001 354 003 Z K 231 k J 355 \0 \n
0022340 \0 \0 355 001 200 J 355 \0 020 \0 ( 2 5 2 Q
0022360 % % / 2 3 4 Q % % / 1 6 2
0022400 Q % % / 1 4 1 Q % % / 1
0022420 2 6 Q A B S 1 5 Q C L : M
0022440 O D ) \r ( 2 2 1 Q A R R A Y P
0022460 2 1 6 Q % % T A N - Q P O L
0022500 Y 2 0 2 Q A R R A Y P 1 7
0022520 7 Q % % T A N - P P O L Y ) \r
0022540 ( 1 5 7 Q . 7 8 5 3 9 8 2
0022560 1 2 0 Q . 0 0 0 2 4 4 1 4 0 6
0022600 7 5 Q . 7 8 5 3 9 8 2 5 3
0022620 Q - . 7 8 5 3 9 8 2 3 0 Q
0022640 1 . 5 7 0 7 9 6 1 2 Q 3 . 1
0022660 4 1 5 9 3 ) \r % % T A N - C O M
0022700 P L E X D 1 \r ( P 1 D E N
0022720 O M P 0 N U M I 0 Z
0022740 ) \0 , 002 \0 \0 001 @ \t \0 \0 021 001 \0 @
0022760 \t \0 \0 021 001 001 I j 360 257 I 005 003 265 \b H
0023000 I \n \0 \0 020 \t \0 \0 262 367 o \0 \0 \0 @ \n
0023020 \0 \0 020 \0 ( 5 1 Q C L : E R R O
0023040 R 3 7 Q \ F Z E R O P 3 3
0023060 Q % % / 1 2 Q C L : C O S
0023100 3 C L : S I N ) \r N I L \r (
0023120 4 5 Q " ~ S u n d e f i n
0023140 e d t a n g e n t . " ) \r A S
0023160 I N D 1 \r ( L ( 0 X ) )
0023200 \0 + 001 \0 \0 001 @ 021 001 \0 H d 004 l 003 360
0023220 225 277 @ \t \0 \0 020 004 ` \0 \0 360 224 @ \t \0
0023240 \0 020 H 3 020 264 374 @ 006 \0 \0 b \0 023 260 330
0023260 \0 ( 3 2 Q % % A S I N - C O M
0023300 P L E X 1 7 Q % % A S I N -
0023320 F L O A T ) \r ( 4 4 Q F L O A
0023340 T P 2 4 Q 004 003 C O M P L E X
0023360 T Y P E # ) \r ( ) \r % % A S I N
0023400 - F L O A T D 1 \r ( P 4 A
0023420 N S W E R P 3 R 2 P 2
0023440 R P 1 R E D U C E D P
0023460 0 N E G A T I V E I 1
0023500 A C O S - F L A G I 0 X )
0023520 \0 231 005 \0 \0 002 021 P 004 @ Z o \0 \0 \0
0023540 J 363 246 d o \0 \0 \0 363 230 o \0 \0 \0 J \n
0023560 \0 \0 277 o \0 \0 \0 J 363 226 i 270 j J 325 Z
0023600 200 J o \0 \0 \0 363 262 023 i 271 o \0 \0 \0 J
0023620 325 o \0 \0 \0 326 \t \0 \0 272 o \0 \0 \0 J 363
0023640 222 J 260 - J d 326 273 J K 355 001 ` \0 \0 006
0023660 \0 \0 311 \0 l 006 2 \0 355 \0 K 355 001 ` \0 \0
0023700 006 \0 \0 311 \0 l 006 2 \0 355 \0 \n \0 \0 326 \
0023720 I 233 o \0 \0 \0 L o \0 \0 \0 326 325 274 H 223
0023740 j L 325 274 A 226 o \0 \0 \0 L 325 020 L 020 \0
0023760 ( 1 6 6 Q % % / 1 0 1 Q C
0024000 L : S Q R T 3 2 Q E R R O R
0024020 ) \r ( 1 5 3 Q A R R A Y P 1
0024040 5 0 Q % % A S I N - Q P O L Y
0024060 1 3 2 Q A R R A Y P 1 2 7
0024100 Q % % A S I N - P P O L Y ) \r
0024120 ( 2 2 2 Q 1 . 5 7 0 7 9 6
0024140 2 0 3 Q 2 . 0 1 7 6 Q 1 .
0024160 5 7 0 7 9 6 1 0 6 Q . 0 0 0
0024200 2 4 4 1 4 0 6 7 5 Q . 5 6
0024220 7 Q 1 . 0 5 6 Q . 5 3 7
0024240 Q 0 . 0 2 6 Q " A R C S I
0024260 N : a r g n o t i n r a
0024300 n g e " \r 2 0 Q 1 . 0 1 0
0024320 Q - 1 . 0 ) \r % % A S I N - C
0024340 O M P L E X D 1 \r ( I 0 Z
0024360 ) \0 030 \0 \0 \0 001 @ \t \0 \0 k @ d 326
0024400 325 \t \0 \0 324 \t \0 \0 \t \0 \0 \t \0 \0 020 \0
0024420 ( 2 5 Q % % C O M P L E X - M
0024440 I N U S 2 2 Q % % C O M P L
0024460 E X - T I M E S I 1 7 Q C L
0024500 : L O G 1 3 Q C L : S Q R T
0024520 3 % % C O M P L E X - T I M
0024540 E S I ) \r N I L \r ( ) \r A C O S
0024560 D 1 \r ( L ( 0 X ) ) \0 ,
0024600 001 \0 \0 001 @ 021 001 \0 H d 004 l 003 360 226 277
0024620 @ i \n \0 \0 020 004 ` \0 \0 360 224 @ \t \0 \0
0024640 020 H 3 020 264 374 @ 006 \0 \0 b \0 023 260 327 \0
0024660 ( 3 3 Q % % A C O S - C O M P
0024700 L E X 2 0 Q % % A S I N - F
0024720 L O A T ) \r ( 4 5 Q F L O A T
0024740 P 2 5 Q 004 003 C O M P L E X T
0024760 Y P E # ) \r ( ) \r % % A C O S -
0025000 C O M P L E X D 1 \r ( I 0
0025020 Z ) \0 030 \0 \0 \0 001 @ k @ d 326 325 \t
0025040 \0 \0 \t \0 \0 324 \t \0 \0 \t \0 \0 \t \0 \0 020
0025060 \0 ( 2 5 Q % % C O M P L E X -
0025100 M I N U S 2 2 Q % % C O M P
0025120 L E X - T I M E S I 1 7 Q C
0025140 L : L O G 1 3 Q % % C O M P
0025160 L E X - T I M E S I 1 0 Q C
0025200 L : S Q R T ) \r N I L \r ( ) \r C
0025220 L : A T A N D 1 \r ( I 1 Y
0025240 I 0 X ) \0 6 \0 \0 \0 002 A 262
0025260 " @ \t \0 \0 244 A \t \0 \0 231 o \0 \0 \0 @
0025300 A \v \0 \0 277 @ 006 \0 \0 A 006 \0 \0 \n \0 \0
0025320 020 @ \t \0 \0 224 @ \t \0 \0 020 @ 006 \0 \0 \t
0025340 \0 \0 020 \0 ( 6 3 Q % % A T A N -
0025360 F L O A T 5 3 Q % % A T A N
0025400 - C O M P L E X 4 6 Q C O M
0025420 P L E X P 4 1 Q % % A T A N
0025440 - F L O A T 2 5 Q C L : E R
0025460 R O R 1 3 Q C O M P L E X P
0025500 6 C O M P L E X P ) \r ( 6 0
0025520 Q F L O A T P 3 6 Q F L O
0025540 A T P 3 2 Q F L O A T P ) \r
0025560 ( 2 0 Q " ~ S a n d ~ S
0025600 b o t h c o m p l e x . " )
0025620 \r % % A T A N 1 D 1 \r ( L (
0025640 0 X ) ) \0 q 001 \0 \0 001 j @ 363 230
0025660 j d @ 325 \t \0 \0 325 020 o \0 \0 \0 @ 363 235
0025700 o \0 \0 \0 k @ \n \0 \0 \t \0 \0 325 020 k @
0025720 363 262 034 o \0 \0 \0 @ o \0 \0 \0 324 @ o \0
0025740 \0 \0 326 k 325 \n \0 \0 \t \0 \0 325 020 o \0 \0
0025760 \0 @ 363 262 $ k @ \n \0 \0 021 001 \0 H o \0
0026000 \0 \0 324 H o \0 \0 \0 326 k 325 \n \0 \0 \t \0
0026020 \0 o \0 \0 \0 325 020 @ \t \0 \0 020 \0 ( 1 5
0026040 6 Q % % A T A N 2 1 4 4 Q
0026060 % % A T A N 2 1 4 1 Q % % /
0026100 1 1 5 Q % % / 7 6 Q % %
0026120 A T A N 2 7 3 Q % % / 3 7
0026140 Q % % A T A N 2 3 4 Q % %
0026160 / 1 2 Q % % A T A N 1 ) \r N
0026200 I L \r ( 1 5 0 Q . 5 2 3 6
0026220 1 3 3 Q 1 . 7 3 0 5 2 5 1 2
0026240 5 Q 1 . 7 3 0 5 2 5 1 0 4 Q
0026260 3 . 7 3 2 0 7 1 6 5 Q 1 .
0026300 7 3 0 5 2 5 5 7 Q 1 . 7 3 0
0026320 5 2 5 5 2 Q 2 . 0 9 4 3 9 6
0026340 2 7 Q 1 . 5 7 0 7 9 6 \r 2
0026360 0 Q . 2 6 7 9 4 8 2 ) \r % % A
0026400 T A N 2 D 1 \r ( P 4 V A L
0026420 P 3 P O W P 2 O L D
0026440 P 1 I N T P 0 S Q R
0026460 I 0 X ) \0 < 005 \0 \0 001 j k
0026500 @ d 326 \n \0 \0 325 021 ! 002 k 271 j 272 k @
0026520 \n \0 \0 021 021 004 K 274 J L \n \0 \0 226 o \0
0026540 \0 \0 L 325 020 I l 002 324 271 L 272 K H 326 273
0026560 L K I \n \0 \0 324 260 340 \0 ( 6 7 Q %
0026600 % / 3 6 Q % % = 2 4 Q %
0026620 % / 7 % % / ) \r N I L \r (
0026640 4 3 Q 1 . 5 7 0 7 9 6 ) \r % %
0026660 A T A N - D O M A I N - C H E C
0026700 K D 1 \r ( I 0 Z ) \0 ' 001
0026720 \0 \0 001 @ \t \0 \0 021 001 \0 H j 360 265 \v H
0026740 005 003 264 006 H \t \0 \0 022 264 \r @ \t \0 \0 \t
0026760 \0 \0 k \n \0 \0 h 360 020 \0 ( 4 2 Q %
0027000 % = 3 6 Q A B S 3 3 Q I
0027020 M A G P A R T 2 4 Q \ F Z E
0027040 R O P 3 R E A L P A R T ) \r
0027060 N I L \r ( ) \r % % A T A N - F L
0027100 O A T D 1 \r ( L ( 1 X 0
0027120 Y ) ) \0 237 001 \0 \0 002 A 263 027 @ j
0027140 360 253 @ d 005 003 262 Z d \t \0 \0 262 T o \0
0027160 \0 \0 020 @ 021 001 \0 H A \n \0 \0 264 \a H j
0027200 \n \0 \0 022 227 o \0 \0 \0 \t \0 \0 020 A j \n
0027220 \0 \0 231 @ \t \0 \0 o \0 \0 \0 326 020 @ j \n
0027240 \0 \0 233 A \t \0 \0 221 j 020 o \0 \0 \0 020 A
0027260 \t \0 \0 237 @ d \t \0 \0 232 277 @ A \n \0 \0
0027300 \t \0 \0 020 @ \t \0 \0 237 o \0 \0 \0 j @ 325
0027320 A \n \0 \0 \t \0 \0 325 020 A \t \0 \0 234 j @
0027340 j A 325 \n \0 \0 \t \0 \0 325 020 @ A \n \0 \0
0027360 \t \0 \0 o \0 \0 \0 325 020 \0 ( 2 2 7 Q
0027400 % % A T A N 1 2 2 4 Q % % /
0027420 2 1 5 Q % % A T A N 1 2 1
0027440 2 Q % % / 2 0 1 Q P L U S
0027460 P 1 7 3 Q % % A T A N 1 1
0027500 7 0 Q % % / 1 5 4 Q P L U
0027520 S P 1 4 7 Q % % A T A N 1
0027540 1 4 4 Q % % / 1 3 5 Q P L
0027560 U S P 1 2 7 Q P L U S P 1
0027600 1 3 Q P L U S P 1 0 6 Q %
0027620 % = 7 3 Q % % S I G N U M
0027640 6 6 Q % % = 6 0 Q C L : E
0027660 R R O R 4 7 Q % % = 4 0 Q
0027700 % % = 2 0 Q \ F Z E R O P
0027720 ) \r N I L \r ( 2 3 3 Q 3 . 1
0027740 4 1 5 9 3 1 6 1 Q 3 . 1 4 1
0027760 5 9 3 1 2 2 Q 3 . 1 4 1 5 9
0030000 3 7 7 Q 1 . 5 7 0 7 9 6 5
0030020 5 Q " E r r o r i n d o u
0030040 b l e e n t r y a t a n b
0030060 o t h 0 . " 2 6 Q 0 . 0 )
0030100 \r % % A T A N - C O M P L E X
0030120 D 1 \r ( P 0 I I 0 Z )
0030140 \0 / 001 \0 \0 001 @ \t \0 \0 262 ! @ \t \0
0030160 \0 021 001 \0 H k 324 k H 325 \n \0 \0 \t \0 \0
0030200 o \0 \0 \0 326 \t \0 \0 \t \0 \0 020 o \0 \0 \0
0030220 @ \n \0 \0 020 \0 ( 5 4 Q C L : E R
0030240 R O R 4 3 Q % % C O M P L E
0030260 X - M I N U S 4 0 Q % % C O
0030300 M P L E X - T I M E S I 3 0 Q
0030320 C L : L O G 2 5 Q % % /
0030340 1 1 Q % % C O M P L E X - T I
0030360 M E S I 3 % % A T A N - D O
0030400 M A I N - C H E C K ) \r N I L \r
0030420 ( 5 0 Q " A r g u m e n t
0030440 n o t i n d o m a i n f o
0030460 r a t a n . ~ S " 3 4 Q
0030500 . 5 ) \r C I S D 1 \r ( I 0
0030520 T H E T A ) \0 033 \0 \0 \0 001 @ \t \0
0030540 \0 230 o \0 \0 \0 @ \n \0 \0 020 @ \t \0 \0 @
0030560 \t \0 \0 \n \0 \0 020 \0 ( 3 0 Q C O M
0030600 P L E X 2 5 Q C L : S I N
0030620 2 1 Q C L : C O S 1 4 Q C
0030640 L : E R R O R 3 C O M P L E
0030660 X P ) \r N I L \r ( 1 0 Q " A
0030700 r g u m e n t t o C I S i
0030720 s c o m p l e x : ~ S " ) \r
0030740 S I N H D 1 \r ( P 0 Z I
0030760 0 X ) \0 025 001 \0 \0 001 @ \t \0 \0
0031000 021 001 \0 H k H \n \0 \0 325 l 002 \n \0 \0 020
0031020 \0 ( 2 2 Q % % / 1 4 Q % %
0031040 / 3 E X P ) \r N I L \r ( ) \r
0031060 C O S H D 1 \r ( P 0 Z I
0031100 0 X ) \0 025 001 \0 \0 001 @ \t \0 \0
0031120 021 001 \0 H k H \n \0 \0 324 l 002 \n \0 \0 020
0031140 \0 ( 2 2 Q % % / 1 4 Q % %
0031160 / 3 E X P ) \r N I L \r ( ) \r
0031200 T A N H D 1 \r ( P 1 Y P
0031220 0 Z I 0 X ) \0 # 002 \0
0031240 \0 001 @ l 002 326 \t \0 \0 021 001 \0 k H \n \0
0031260 \0 021 001 001 k I k 324 \n \0 \0 k H k 324 \n
0031300 \0 \0 325 020 \0 ( 3 7 Q % % / 3 0
0031320 Q % % / 1 6 Q % % / 6
0031340 E X P ) \r N I L \r ( ) \r A S I N
0031360 H D 1 \r ( I 0 X ) \0 017 \0
0031400 \0 \0 001 @ d d 326 k 324 \t \0 \0 324 \t \0 \0
0031420 020 \0 ( 1 4 Q C L : L O G 1 0
0031440 Q C L : S Q R T ) \r N I L \r (
0031460 ) \r A C O S H D 1 \r ( I 0
0031500 X ) \0 017 \0 \0 \0 001 @ d d 326 k 325 \t
0031520 \0 \0 324 \t \0 \0 020 \0 ( 1 4 Q C L :
0031540 L O G 1 0 Q C L : S Q R T )
0031560 \r N I L \r ( ) \r A T A N H D 1
0031600 \r ( I 0 X ) \0 " \0 \0 \0 001 @
0031620 \t \0 \0 262 024 @ k 324 k @ 325 \n \0 \0 \t \0
0031640 \0 o \0 \0 \0 326 020 o \0 \0 \0 @ \n \0 \0 020
0031660 \0 ( 3 7 Q C L : E R R O R 2
0031700 1 Q C L : L O G 1 6 Q % %
0031720 / 3 % % A T A N H - D O M A
0031740 I N - C H E C K ) \r N I L \r (
0031760 3 3 Q " ~ S a r g u m e n t
0032000 o u t o f r a n g e . "
0032020 2 5 Q . 5 ) \r % % A T A N H -
0032040 D O M A I N - C H E C K D 1 \r
0032060 ( I 0 Z ) \0 ' 001 \0 \0 001 @ \t
0032100 \0 \0 021 001 \0 H j 360 265 \v H 005 003 264 006 H
0032120 \t \0 \0 022 264 \r @ \t \0 \0 \t \0 \0 k \n \0
0032140 \0 h 360 020 \0 ( 4 2 Q % % = 3 6
0032160 Q A B S 3 3 Q R E A L P A
0032200 R T 2 4 Q \ F Z E R O P 3
0032220 I M A G P A R T ) \r N I L \r (
0032240 ) \r ( P R E T T Y C O M P R I N
0032260 T C M L F L O A T C O M S ) \r
0032300 ( R P A Q Q C M L F L O A T C
0032320 O M S ( ( * * C M L F L O
0032340 A T - - C o v e r i n g s
0032360 e c t i o n s 1 2 . 5 - 1 2 .
0032400 5 . 3 i r r a t i o n a l ,
0032420 t r a n s c e n d e n t a l ,
0032440 \r e x p o n e n t i a l , l o
0032460 g a r i t h m i c , t r i g o
0032500 n o m e t r i c , a n d h y
0032520 p e r b o l i c f u n c t i o
0032540 n s . - - B y K e l l y
0032560 R o a c h . * ) ( C O M S
0032600 ( * \r L L F L O A T a d d i
0032620 t i o n . * ) ( F N S % %
0032640 F L O A T % % M A K E - A R R
0032660 A Y ) ) ( C O M S * C M L
0032700 F L O A T J U N K C O M S ) (
0032720 C O M S ( * C o n s t a n t
0032740 s . * ) ( \r C O N S T A N T
0032760 S ( P I ( % % F L O A T 1
0033000 6 4 5 7 4 0 5 9 ) ) ) ) ( C
0033020 O M S ( * C M L A R I T H
0033040 i m p r o v e m e n t s . P u
0033060 t t h e s e b a c k i n
0033100 C M L A R I T H w h e n \r L
0033120 a r r y g e t s f i n i s h
0033140 e d . * ) ( * P H A S E
0033160 a n d T R U N C A T E h a d
0033200 b u g s I m i s s e d b
0033220 e f o r e h a n d i n g o f
0033240 f t o L a r r y . \r % % C
0033260 O M P L E X - A B S c h a n g
0033300 e s b e c a u s e C L : S Q
0033320 R T i s s m a r t e r n o
0033340 w a n d a l s o % % C O M
0033360 P L E X - A B S w a s c a l
0033400 l i n g S Q R T i n s t e a
0033420 d \r o f C L : S Q R T . C
0033440 O M P L E X h a s b e e n
0033460 f i x e d s o t h a t ( C
0033500 O M P L E X 0 . 0 0 . 0 )
0033520 = 0 . 0 \ F L O A T h a s
0033540 b e e n u p g r a d e d s
0033560 o t h a t ( \r F L O A T (
0033600 C O M P L E X 2 3 ) ) =
0033620 ( C O M P L E X 2 . 0 3 . 0
0033640 ) * ) ( F N S P H A S E
0033660 T R U N C A T E % % C O M P L
0033700 E X - A B S C O M P L E X \
0033720 F L O A T ) ( P ( \r p r i n
0033740 t o u t T " W a r n i n g :
0033760 C M L F L O A T r e d e f i
0034000 n e d s o m e C M L A R I T
0034020 H f u n c t i o n s t h a t
0034040 n e e d t o b e f i x e
0034060 d . " T ) ) ) ( C O M S (
0034100 * \r E X P * ) ( C O M S
0034120 * C M L F L O A T E X P C O M
0034140 S ) ( F N S E X P % % E X
0034160 P - F L O A T % % E X P - C O
0034200 M P L E X ) ) ( C O M S ( *
0034220 E X P T * ) ( F N S C L
0034240 : E X P T \r % % E X P T - I N
0034260 T E G E R % % E X P T - F L O
0034300 A T % % E X P T - C O M P L E
0034320 X % % E X P T - C O M P L E X
0034340 - P O W E R ) ) ( C O M S (
0034360 * L O G * ) ( C O M S *
0034400 \r C M L F L O A T L O G C O M
0034420 S ) ( F N S C L : L O G %
0034440 % L O G - F L O A T % % L O G
0034460 - C O M P L E X % % O L D - L
0034500 O G - F L O A T ) ) ( C O M S
0034520 ( * S Q R T * ) ( F N S
0034540 C L : S Q R T \r % % S Q R T
0034560 - P E R F E C T % % S Q R T -
0034600 I N T E G E R % % S Q R T - I
0034620 N T E G E R - P E R F E C T %
0034640 % S Q R T - F L O A T % % S Q
0034660 R T - R A T I O % % S Q R T -
0034700 R A T I O - P E R F E C T \r %
0034720 % S Q R T - C O M P L E X % %
0034740 S Q R T - C O M P L E X - P E R
0034760 F E C T % % O L D - S Q R T -
0035000 C O M P L E X ) ( F N S I S
0035020 Q R T ) ) ( D E C L A R E :
0035040 E V A L @ C O M P I L E D O N
0035060 T C O P Y \r ( C O N S T A N T
0035100 S ( % % 2 P I ( % % F L O A
0035120 T 1 6 5 8 5 4 0 5 9 ) ) (
0035140 % % P I ( % % F L O A T 1 6
0035160 4 5 7 4 0 5 9 ) ) ( % % P I
0035200 / 2 ( % % F L O A T 1 6 3 2
0035220 9 4 0 5 9 ) ) ( \r % % - P I
0035240 / 2 ( % % F L O A T 4 9 0 9
0035260 7 4 0 5 9 ) ) ( % % P I / 4
0035300 ( % % F L O A T 1 6 2 0 1
0035320 4 0 5 9 ) ) ( % % - P I / 4
0035340 ( % % F L O A T 4 8 9 6 9 4
0035360 0 5 9 ) ) ( S I X T H - P I
0035400 \r . 5 2 3 6 ) ( % % 2 / P I
0035420 ( % % F L O A T 1 6 1 6 2 6
0035440 3 8 7 5 ) ) ) ) ( C O M S (
0035460 * S I N * ) ( C O M S *
0035500 C M L F L O A T S I N C O M S
0035520 ) ( F N S C L : S I N \r %
0035540 % S I N - F L O A T % % S I N
0035560 - C O M P L E X ) ) ( C O M S
0035600 ( * C O S * ) ( F N S
0035620 C L : C O S % % C O S - C O M
0035640 P L E X ) ) ( C O M S ( *
0035660 T A N * ) ( C O M S * \r
0035700 C M L F L O A T T A N C O M S )
0035720 ( F N S C L : T A N % % T
0035740 A N - F L O A T % % T A N - C
0035760 O M P L E X ) ) ( C O M S (
0036000 * A S I N * ) ( C O M S
0036020 * C M L F L O A T A S I N C O
0036040 M S ) ( \r F N S A S I N %
0036060 % A S I N - F L O A T % % A S
0036100 I N - C O M P L E X ) ) ( C O
0036120 M S ( * A C O S * ) ( F
0036140 N S A C O S % % A C O S - C
0036160 O M P L E X ) ) ( C O M S (
0036200 * A T A N * ) ( \r F N S
0036220 C L : A T A N % % A T A N 1
0036240 % % A T A N 2 % % A T A N - D
0036260 O M A I N - C H E C K % % A T
0036300 A N - F L O A T % % A T A N -
0036320 C O M P L E X ) ) ( C O M S
0036340 ( * C I S * ) ( F N S C
0036360 I S \r ) ) ( C O M S ( * S
0036400 I N H C O S H T A N H * )
0036420 ( F N S S I N H C O S H
0036440 T A N H ) ) ( C O M S ( *
0036460 A S I N H A C O S H A T A N
0036500 H * ) ( F N S A S I N H
0036520 A C O S H \r A T A N H % % A
0036540 T A N H - D O M A I N - C H E C
0036560 K ) ) ( D E C L A R E : D O
0036600 N T E V A L @ L O A D D O E V
0036620 A L @ C O M P I L E D O N T C
0036640 O P Y C O M P I L E R V A R S
0036660 ( A D D V A R S ( \r N L A M
0036700 A ) ( N L A M L ) ( L A M A
0036720 % % A T A N H - D O M A I N -
0036740 C H E C K A T A N H A C O S
0036760 H A S I N H T A N H C O S
0037000 H S I N H C I S % % A T A
0037020 N - C O M P L E X \r % % A T A
0037040 N - F L O A T % % A T A N - D
0037060 O M A I N - C H E C K % % A T
0037100 A N 2 % % A T A N 1 C L : A
0037120 T A N % % A C O S - C O M P L
0037140 E X A C O S % % A S I N - C
0037160 O M P L E X A S I N \r % % T
0037200 A N - C O M P L E X C L : T A
0037220 N % % C O S - C O M P L E X
0037240 C L : C O S % % S I N - C O M
0037260 P L E X C L : S I N I S Q R
0037300 T % % O L D - S Q R T - C O M
0037320 P L E X % % S Q R T - P E R F
0037340 E C T \r C L : S Q R T % % L
0037360 O G - C O M P L E X C L : L O
0037400 G % % E X P T - C O M P L E X
0037420 - P O W E R % % E X P T - C O
0037440 M P L E X % % E X P T - I N T
0037460 E G E R C L : E X P T % % E
0037500 X P - C O M P L E X \r % % E X
0037520 P - F L O A T E X P C O M P
0037540 L E X % % C O M P L E X - A B
0037560 S T R U N C A T E P H A S E
0037600 ) ) ) ) ) \r ( R P A Q Q C M L
0037620 F L O A T J U N K C O M S ( (
0037640 D E C L A R E : E V A L @ C O
0037660 M P I L E D O N T C O P Y (
0037700 C O N S T A N T S ( % % S I N
0037720 G L E - F L O A T - E X P O N E
0037740 N T - L E N G T H 8 ) \r ( %
0037760 % S I N G L E - F L O A T - M A
0040000 N T I S S A - L E N G T H 2 3
0040020 ) ( % % F L O A T - O N E 1
0040040 . 0 ) ( % % F L O A T - H A L
0040060 F . 5 ) ( % % S Q R T - H A
0040100 L F ( % % F L O A T 1 6 1 8
0040120 1 \r 1 2 6 7 ) ) ( % % E (
0040140 % % F L O A T 1 6 4 2 9 6 3
0040160 5 3 0 ) ) ( S Q R T 3 1 . 7
0040200 3 0 5 2 5 ) ( 2 - S Q R T 3
0040220 . 2 6 7 9 4 8 2 ) ( I N V - 2
0040240 - S Q R T 3 3 . 7 3 2 0 7 1 )
0040260 ( \r % % F L O A T - H A L F
0040300 . 5 ) ( % % Z E R O 0 . 0 )
0040320 ) ) ) ) \r ( R P A Q P I ( %
0040340 % F L O A T 1 6 4 5 7 4 0 5
0040360 9 ) ) \r ( C O N S T A N T S (
0040400 P I ( % % F L O A T 1 6 4 5
0040420 7 4 0 5 9 ) ) ) \r ( p r i n t
0040440 o u t T " W a r n i n g :
0040460 C M L F L O A T r e d e f i n
0040500 e d s o m e C M L A R I T H
0040520 f u n c t i o n s t h a t
0040540 n e e d t o b e f i x e d
0040560 . " T ) \r ( R P A Q Q C M L
0040600 F L O A T E X P C O M S ( ( C
0040620 O N S T A N T S ( % % L O G -
0040640 B A S E 2 - E ( % % F L O A T
0040660 1 6 3 1 2 4 3 5 7 9 ) ) )
0040700 ( * * % % E X P - P O L Y
0040720 c o n t a i n s P \r a n d
0040740 Q c o e f f i c i e n t s o
0040760 f H a r r i s e t a l E
0041000 X P B 1 1 0 3 r a t i o n a
0041020 l a p p r o x i m a t i o n
0041040 t o ( E X P T 2 X ) i n
0041060 i n t e r v a l ( 0 . 1 2
0041100 5 ) \r % . % % E X P - T A B
0041120 L E c o n t a i n s v a l u
0041140 e s o f p o w e r s ( E X
0041160 P T 2 ( / N 8 ) ) .
0041200 * ) ( I N I T V A R S ( % %
0041220 E X P - P O L Y ( % % M A K E
0041240 - A R R A Y ( \r L I S T ( %
0041260 % F L O A T 1 5 5 4 9 1 7 6
0041300 5 9 ) ( % % F L O A T 1 6 2
0041320 5 6 0 ) ( % % F L O A T 1
0041340 6 8 0 1 3 8 2 7 3 ) ( % % F
0041360 L O A T 1 7 2 5 7 7 7 1 7 )
0041400 ( % % F L O A T 1 7 5 9 7 \r
0041420 1 1 7 3 9 ) ( % % F L O A T
0041440 1 7 8 0 0 3 0 4 0 1 ) ) ) )
0041460 ( % % E X P - T A B L E ( %
0041500 % M A K E - A R R A Y ( L I S
0041520 T ( % % F L O A T 1 6 2 5 6
0041540 0 ) ( % % F L O A T 1 6 2
0041560 6 7 \r 3 8 3 3 8 ) ( % % F L
0041600 O A T 1 6 2 8 0 1 4 3 2 0 )
0041620 ( % % F L O A T 1 6 2 9 3
0041640 6 5 2 3 9 ) ( % % F L O A T
0041660 1 6 3 0 9 1 2 6 7 ) ( % % F
0041700 L O A T 1 6 3 2 5 2 6 4 1 0
0041720 ) ( % % F L O A T \r 1 6 3 4
0041740 3 1 7 6 6 1 ) ( % % F L O A
0041760 T 1 6 3 6 2 4 9 3 5 1 ) ) )
0042000 ) ) ) ) \r ( R P A Q % % L O G
0042020 - B A S E 2 - E ( % % F L O A
0042040 T 1 6 3 1 2 4 3 5 7 9 ) ) \r
0042060 ( C O N S T A N T S ( % % L O
0042100 G - B A S E 2 - E ( % % F L O
0042120 A T 1 6 3 1 2 4 3 5 7 9 ) )
0042140 ) \r ( R P A Q ? % % E X P - P
0042160 O L Y ( % % M A K E - A R R A
0042200 Y ( L I S T ( % % F L O A T
0042220 1 5 5 4 9 1 7 6 5 9 ) ( %
0042240 % F L O A T 1 6 2 5 6 0 )
0042260 ( % % F L O A T 1 6 8 0 1 3
0042300 8 2 7 3 ) ( \r % % F L O A T
0042320 1 7 2 5 7 7 7 1 7 ) ( % % F
0042340 L O A T 1 7 5 9 7 1 1 7 3 9
0042360 ) ( % % F L O A T 1 7 8 0 0
0042400 3 0 4 0 1 ) ) ) ) \r ( R P A Q
0042420 ? % % E X P - T A B L E ( %
0042440 % M A K E - A R R A Y ( L I S
0042460 T ( % % F L O A T 1 6 2 5 6
0042500 0 ) ( % % F L O A T 1 6 2
0042520 6 7 3 8 3 3 8 ) ( % % F L O
0042540 A T 1 6 2 8 0 1 4 3 2 0 )
0042560 ( \r % % F L O A T 1 6 2 9 3
0042600 6 5 2 3 9 ) ( % % F L O A T
0042620 1 6 3 0 9 1 2 6 7 ) ( % % F
0042640 L O A T 1 6 3 2 5 2 6 4 1 0
0042660 ) ( % % F L O A T 1 6 3 4 3
0042700 1 7 6 6 1 ) ( % % F L O A T
0042720 1 6 3 6 2 \r 4 9 3 5 1 ) ) )
0042740 ) \r ( R P A Q Q C M L F L O A
0042760 T L O G C O M S ( ( D E C L A
0043000 R E : E V A L @ C O M P I L E
0043020 D O N T C O P Y ( C O N S T
0043040 A N T S ( % % L O G 2 ( % %
0043060 F L O A T 1 6 1 7 7 2 9 2 0
0043100 8 ) ) ( \r % % S Q R T 2 ( %
0043120 % F L O A T 1 6 3 0 9 1 2 6
0043140 7 ) ) ) ) ( * * % % L O G
0043160 - P P O L Y a n d % % L O G
0043200 - Q P O L Y c o n t a i n P
0043220 a n d Q c o e f f i c i e
0043240 n t s o f \r H a r r i s e
0043260 t a l L O G E 2 7 0 7 r
0043300 a t i o n a l a p p r o x i m
0043320 a t i o n t o ( L O G X )
0043340 i n i n t e r v a l ( ( S
0043360 Q R T . 5 ) ( S Q R T 2 )
0043400 ) . * ) ( \r I N I T V A R
0043420 S ( % % L O G - P P O L Y (
0043440 % % M A K E - A R R A Y ( L I
0043460 S T ( % % F L O A T 1 6 0 4
0043500 2 2 2 8 0 3 ) ( % % F L O A
0043520 T 4 9 4 8 4 2 3 5 9 0 ) (
0043540 % % F L O A T 1 7 0 4 4 \r 1
0043560 7 9 8 2 ) ( % % F L O A T 4
0043600 9 9 2 6 3 7 1 5 3 ) ( % % F
0043620 L O A T 1 7 0 4 6 5 3 6 7 )
0043640 ) ) ) ( % % L O G - Q P O L Y
0043660 ( % % M A K E - A R R A Y (
0043700 L I S T ( % % F L O A T 1 6
0043720 2 5 6 0 \r ) ( % % F L O A T
0043740 4 9 5 1 2 9 1 0 3 ) ( % %
0043760 F L O A T 1 6 9 9 2 4 2 2 7
0044000 4 ) ( % % F L O A T 4 9 8 2
0044020 3 3 8 0 4 8 ) ( % % F L O A
0044040 T 1 6 9 1 8 5 3 6 7 ) ) ) )
0044060 ) ) ) \r ( R P A Q ? % % L O G
0044100 - P P O L Y ( % % M A K E - A
0044120 R R A Y ( L I S T ( % % F L
0044140 O A T 1 6 0 4 2 2 2 8 0 3 )
0044160 ( % % F L O A T 4 9 4 8 4
0044200 2 3 5 9 0 ) ( % % F L O A T
0044220 1 7 0 4 4 \r 1 7 9 8 2 ) ( %
0044240 % F L O A T 4 9 9 2 6 3 7 1
0044260 5 3 ) ( % % F L O A T 1 7 0
0044300 4 6 5 3 6 7 ) ) ) ) \r ( R P A
0044320 Q ? % % L O G - Q P O L Y (
0044340 % % M A K E - A R R A Y ( L I
0044360 S T ( % % F L O A T 1 6 2 5
0044400 6 0 ) ( % % F L O A T 4 9
0044420 5 1 2 9 1 0 3 ) ( % % F L O
0044440 A T 1 6 9 9 2 4 2 2 7 4 )
0044460 ( \r % % F L O A T 4 9 8 2 3
0044500 3 8 0 4 8 ) ( % % F L O A T
0044520 1 6 9 1 8 5 3 6 7 ) ) ) ) \r (
0044540 R P A Q Q C M L F L O A T S I
0044560 N C O M S ( ( * * % % S I
0044600 N - E P S I L O N i s s u f
0044620 f i c i e n t l y s m a l l
0044640 t h a t ( S I N X ) = X
0044660 f o r X i n i n t e r v
0044700 a l ( 0 \r % % S I N - E P S
0044720 I L O N ) % . I t s u f f
0044740 i c e s t o t a k e % % S
0044760 I N - E P S I L O N a l i t
0045000 t l e b i t s m a l l e r
0045020 t h a n ( S Q R T ( C L : *
0045040 6 \r S I N G L E - F L O A T
0045060 - E P S I L O N ) ) w h i c h
0045100 w e g e t b y t h e T
0045120 a y l o r s e r i e s e x p
0045140 a n s i o n ( S I N X ) =
0045160 ( + X ( / ( E X P T X
0045200 3 ) 6 ) . . . \r ) ( T h
0045220 e r e l a t i v e e r r o r
0045240 c a u s e d b y o m m i t
0045260 t i n g ( / ( E X P T X
0045300 3 ) 6 ) i s n ' t o b s e
0045320 r v a b l e . ) C o m p a r i
0045340 s o n a g a i n s t \r % % S
0045360 I N - E P S I L O N i s u s
0045400 e d t o a v o i d P O L Y
0045420 E V A L m i c r o c o d e u
0045440 n d e r f l o w w h e n c o
0045460 m p u t i n g S I N . * )
0045500 ( D E C L A R E : \r E V A L @
0045520 C O M P I L E D O N T C O P Y
0045540 ( C O N S T A N T S ( % % S
0045560 I N - E P S I L O N ( % % F L
0045600 O A T 1 4 7 2 0 0 ) ) ) )
0045620 ( * * % % S I N - P P O L Y
0045640 a n d % % S I N - Q P O L Y
0045660 \r c o n t a i n P a n d
0045700 Q c o e f f i c i e n t s o
0045720 f H a r r i s e t a l S
0045740 I N 3 3 7 4 r a t i o n a l
0045760 a p p r o x i m a t i o n t
0046000 o ( S I N X ) i n i n t
0046020 e r v a l ( 0 \r ( / P I
0046040 2 ) ) . * ) ( I N I T V A
0046060 R S ( % % S I N - P P O L Y
0046100 ( % % M A K E - A R R A Y ( L
0046120 I S T ( % % F L O A T 5 0 1
0046140 9 3 5 0 7 7 2 ) ( % % F L O
0046160 A T 1 8 3 7 1 4 7 2 0 2 ) \r
0046200 ( % % F L O A T 5 1 9 0 5
0046220 5 4 2 1 6 ) ( % % F L O A T
0046240 1 9 7 4 8 2 9 0 6 3 ) ( % %
0046260 F L O A T 5 2 9 5 1 4 1 1 4
0046300 0 ) ( % % F L O A T 2 0 3 6
0046320 8 5 0 6 9 1 ) ) ) ) ( \r % %
0046340 S I N - Q P O L Y ( % % M A K
0046360 E - A R R A Y ( L I S T ( %
0046400 % F L O A T 1 6 2 5 6 0 )
0046420 ( % % F L O A T 1 7 2 5 2 4
0046440 9 8 2 1 ) ( % % F L O A T 1
0046460 8 1 4 2 3 4 4 6 6 ) ( % % F
0046500 L O A T \r 1 8 9 5 7 4 5 1 3
0046520 5 ) ( % % F L O A T 1 9 6 8
0046540 5 2 2 0 6 7 ) ( % % F L O A
0046560 T 2 0 2 8 0 2 1 7 1 3 ) ) )
0046600 ) ) ) ) \r ( R P A Q ? % % S I
0046620 N - P P O L Y ( % % M A K E -
0046640 A R R A Y ( L I S T ( % % F
0046660 L O A T 5 0 1 9 3 5 0 7 7 2
0046700 ) ( % % F L O A T 1 8 3 7 1
0046720 4 7 2 0 2 ) ( % % F L O A T
0046740 5 1 9 0 5 \r 5 4 2 1 6 ) (
0046760 % % F L O A T 1 9 7 4 8 2 9
0047000 0 6 3 ) ( % % F L O A T 5 2
0047020 9 5 1 4 1 1 4 0 ) ( % % F L
0047040 O A T 2 0 3 6 8 5 0 6 9 1 )
0047060 ) ) ) \r ( R P A Q ? % % S I N
0047100 - Q P O L Y ( % % M A K E - A
0047120 R R A Y ( L I S T ( % % F L
0047140 O A T 1 6 2 5 6 0 ) ( % %
0047160 F L O A T 1 7 2 5 2 4 9 8 2
0047200 1 ) ( % % F L O A T 1 8 1 4
0047220 2 3 4 4 6 6 ) ( \r % % F L O
0047240 A T 1 8 9 5 7 4 5 1 3 5 )
0047260 ( % % F L O A T 1 9 6 8 5 2
0047300 2 0 6 7 ) ( % % F L O A T 2
0047320 0 2 8 0 2 1 7 1 3 ) ) ) ) \r (
0047340 R P A Q Q C M L F L O A T T A
0047360 N C O M S ( ( * * % % T A
0047400 N - E P S I L O N i s s u f
0047420 f i c i e n t l y s m a l l
0047440 t h a t ( T A N X ) = X
0047460 f o r X i n i n t e r v
0047500 a l ( 0 \r % % T A N - E P S
0047520 I L O N ) % . I t s u f f
0047540 i c e s t o t a k e % % T
0047560 A N - E P S I L O N a l i t
0047600 t l e b i t s m a l l e r
0047620 t h a n ( S Q R T ( C L : *
0047640 3 \r S I N G L E - F L O A T
0047660 - E P S I L O N ) ) w h i c h
0047700 w e g e t b y t h e T
0047720 a y l o r s e r i e s e x p
0047740 a n s i o n ( T A N X ) =
0047760 ( + X ( / ( E X P T X
0050000 3 ) 3 ) . . . \r ) ( T h
0050020 e r e l a t i v e e r r o r
0050040 c a u s e d b y o m m i t
0050060 t i n g ( / ( E X P T X
0050100 3 ) 3 ) i s n ' t o b s e
0050120 r v a b l e . ) C o m p a r i
0050140 s o n a g a i n s t \r % % T
0050160 A N - E P S I L O N i s u s
0050200 e d t o a v o i d P O L Y
0050220 E V A L m i c r o c o d e u
0050240 n d e r f l o w w h e n c o
0050260 m p u t i n g T A N . * )
0050300 ( D E C L A R E : \r E V A L @
0050320 C O M P I L E D O N T C O P Y
0050340 ( C O N S T A N T S ( % % T
0050360 A N - E P S I L O N ( % % F L
0050400 O A T 1 4 7 2 0 0 ) ) ) )
0050420 ( * * % % T A N - P P O L Y
0050440 a n d % % T A N - Q P O L Y
0050460 \r c o n t a i n P a n d
0050500 Q c o e f f i c i e n t s o
0050520 f H a r r i s e t a l T
0050540 A N 4 2 8 8 r a t i o n a l
0050560 a p p r o x i m a t i o n t
0050600 o ( T A N X ) i n i n t
0050620 e r v a l ( \r - P I / 4 P I
0050640 / 4 ) . * ) ( I N I T V A
0050660 R S ( % % T A N - P P O L Y
0050700 ( % % M A K E - A R R A Y ( L
0050720 I S T ( % % F L O A T 4 9 8
0050740 0 3 4 4 4 5 1 ) ( % % F L O
0050760 A T 1 8 2 5 4 2 3 3 6 2 \r )
0051000 ( % % F L O A T 5 1 9 8 3
0051020 5 7 3 8 9 ) ( % % F L O A T
0051040 1 9 9 4 7 5 7 9 6 5 ) ( % %
0051060 F L O A T 5 3 1 6 2 1 6 9 6
0051100 5 ) ) ) ) ( % % T A N - Q P O
0051120 L Y ( % % M A K E - A R R A Y
0051140 ( \r L I S T ( % % F L O A T
0051160 1 6 2 5 6 0 ) ( % % F L O
0051200 A T 5 0 4 5 3 5 1 5 1 5 )
0051220 ( % % F L O A T 1 8 7 6 0 6
0051240 5 3 7 0 ) ( % % F L O A T 5
0051260 2 3 7 6 3 9 5 1 7 ) ( % % F
0051300 L O A T \r 2 0 2 2 1 2 4 8 4
0051320 0 ) ( % % F L O A T 5 3 2 0
0051340 8 5 1 1 3 9 ) ) ) ) ) ) ) \r (
0051360 R P A Q ? % % T A N - P P O L
0051400 Y ( % % M A K E - A R R A Y
0051420 ( L I S T ( % % F L O A T 4
0051440 9 8 0 3 4 4 4 5 1 ) ( % % F
0051460 L O A T 1 8 2 5 4 2 3 3 6 2
0051500 ) ( % % F L O A T 5 1 9 8 3
0051520 \r 5 7 3 8 9 ) ( % % F L O A
0051540 T 1 9 9 4 7 5 7 9 6 5 ) (
0051560 % % F L O A T 5 3 1 6 2 1 6
0051600 9 6 5 ) ) ) ) \r ( R P A Q ? %
0051620 % T A N - Q P O L Y ( % % M A
0051640 K E - A R R A Y ( L I S T (
0051660 % % F L O A T 1 6 2 5 6 0 )
0051700 ( % % F L O A T 5 0 4 5 3
0051720 5 1 5 1 5 ) ( % % F L O A T
0051740 1 8 7 6 0 6 5 3 7 0 ) ( \r %
0051760 % F L O A T 5 2 3 7 6 3 9 5
0052000 1 7 ) ( % % F L O A T 2 0 2
0052020 2 1 2 4 8 4 0 ) ( % % F L O
0052040 A T 5 3 2 0 8 5 1 1 3 9 ) )
0052060 ) ) \r ( R P A Q Q C M L F L O
0052100 A T A S I N C O M S ( ( * *
0052120 % % A S I N - E P S I L O N
0052140 i s s u f f i c i e n t l y
0052160 s m a l l t h a t ( A S I N
0052200 X ) = X f o r X i n
0052220 i n t e r v a l \r ( 0 % %
0052240 A S I N - E P S I L O N ) % .
0052260 I t s u f f i c e s t o
0052300 t a k e % % A S I N - E P S I
0052320 L O N a l i t t l e b i t
0052340 s m a l l e r t h a n ( C
0052360 L : * 2 \r S I N G L E - F L
0052400 O A T - E P S I L O N ) w h i
0052420 c h w e g e t b y t h e
0052440 T a y l o r s e r i e s e
0052460 x p a n s i o n ( A S I N X
0052500 ) = ( + X ( / ( E X P
0052520 T X 3 ) 6 ) . . . \r )
0052540 ( T h e r e l a t i v e e r
0052560 r o r c a u s e d b y o m
0052600 m i t t i n g ( / ( E X P T
0052620 X 3 ) 6 ) i s n ' t o
0052640 b s e r v a b l e . ) C o m p
0052660 a r i s o n a g a i n s t \r
0052700 % % A S I N - E P S I L O N i
0052720 s u s e d t o a v o i d
0052740 P O L Y E V A L m i c r o c o
0052760 d e u n d e r f l o w w h e
0053000 n c o m p u t i n g S I N .
0053020 * ) ( D E C L A R E : \r E
0053040 V A L @ C O M P I L E D O N T
0053060 C O P Y ( C O N S T A N T S
0053100 ( % % A S I N - E P S I L O N
0053120 ( % % F L O A T 1 4 7 2 0 0
0053140 ) ) ) ) ( * * % % A S I N
0053160 - P P O L Y a n d \r % % A S
0053200 I N - Q P O L Y c o n t a i n
0053220 P a n d Q c o e f f i c
0053240 i e n t s o f H a r r i s
0053260 e t a l A R C S N 4 6 7 1
0053300 r a t i o n a l a p p r o x
0053320 i m a t i o n t o ( A S I N
0053340 X \r ) i n i n t e r v a l
0053360 ( 0 ( S Q R T . 5 ) ) .
0053400 * ) ( I N I T V A R S ( %
0053420 % A S I N - P P O L Y ( % % M
0053440 A K E - A R R A Y ( L I S T
0053460 ( % % F L O A T 1 6 0 0 7 5
0053500 0 0 4 5 ) ( \r % % F L O A T
0053520 4 9 5 4 9 8 0 2 0 ) ( % % F
0053540 L O A T 1 7 2 3 6 1 5 8 4 8
0053560 ) ( % % F L O A T 5 0 2 8 5
0053600 6 3 4 6 4 ) ( % % F L O A T
0053620 1 7 6 5 0 3 1 2 3 5 ) ( %
0053640 % F L O A T 5 0 4 0 3 \r 6 2
0053660 8 5 2 ) ( % % F L O A T 1 7
0053700 4 4 0 3 9 4 7 1 ) ) ) ) ( %
0053720 % A S I N - Q P O L Y ( % % M
0053740 A K E - A R R A Y ( L I S T
0053760 ( % % F L O A T 1 6 2 5 6 0
0054000 ) ( % % F L O A T 4 9 6 7 2
0054020 \r 2 5 8 1 7 ) ( % % F L O A
0054040 T 1 7 3 0 8 5 5 2 6 0 ) (
0054060 % % F L O A T 5 0 3 2 6 3 8
0054100 0 9 8 ) ( % % F L O A T 1 7
0054120 6 7 4 2 2 2 1 0 ) ( % % F L
0054140 O A T 5 0 4 1 7 2 2 4 5 1 )
0054160 ( \r % % F L O A T 1 7 4 4 0
0054200 3 9 4 7 1 ) ) ) ) ) ) ) \r ( R
0054220 P A Q ? % % A S I N - P P O L
0054240 Y ( % % M A K E - A R R A Y
0054260 ( L I S T ( % % F L O A T 1
0054300 6 0 0 7 5 0 0 4 5 ) ( % % F
0054320 L O A T 4 9 5 4 9 8 0 2 0 )
0054340 ( % % F L O A T 1 7 2 3 6
0054360 \r 1 5 8 4 8 ) ( % % F L O A T
0054400 5 0 2 8 5 6 3 4 6 4 ) ( %
0054420 % F L O A T 1 7 6 5 0 3 1 2
0054440 3 5 ) ( % % F L O A T 5 0 4
0054460 0 3 6 2 8 5 2 ) ( % % F L O
0054500 A T 1 7 4 4 0 3 9 4 7 1 ) )
0054520 ) ) \r ( R P A Q ? % % A S I N
0054540 - Q P O L Y ( % % M A K E - A
0054560 R R A Y ( L I S T ( % % F L
0054600 O A T 1 6 2 5 6 0 ) ( % %
0054620 F L O A T 4 9 6 7 2 2 5 8 1
0054640 7 ) ( % % F L O A T 1 7 3 0
0054660 8 5 5 2 6 0 ) \r ( % % F L O
0054700 A T 5 0 3 2 6 3 8 0 9 8 )
0054720 ( % % F L O A T 1 7 6 7 4 2
0054740 2 2 1 0 ) ( % % F L O A T 5
0054760 0 4 1 7 2 2 4 5 1 ) ( % % F
0055000 L O A T 1 7 4 4 0 3 9 4 7 1
0055020 ) ) ) ) \r ( P U T P R O P S C
0055040 M L F L O A T C O P Y R I G H
0055060 T ( " X e r o x C o r p o r
0055100 a t i o n " 1 9 8 6 ) ) \r N I
0055120 L \r
0055122