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