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