$ od -c -N 50000 [eris]<Lisp>INTERMEZZO>SOURCES>AARITH.DCOM!1
0000000 ( F I L E C R E A T E D " 1 2
0000020 - F e b - 8 5 2 2 : 1 5 : 5 3
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 > S O U R C E S > A A R I T H
0000120 . ; 9 ) \r " 9 - F e b - 8 5
0000140 1 7 : 0 6 : 2 9 " t c o m p
0000160 l ' d i n " I N T E R L I S
0000200 P - D 9 - F e b - 8 5 . .
0000220 . " d a t e d " 9 - F e b
0000240 - 8 5 1 7 : 1 8 : 2 4 " ) \r (
0000260 F I L E C R E A T E D " 1 2 -
0000300 F e b - 8 5 2 2 : 1 5 : 2 9 "
0000320 { E R I S } < L I S P C O R E
0000340 > S O U R C E S > A A R I T H .
0000360 ; 9 1 5 6 9 1 p r e v i o u
0000400 s d a t e : \r " 1 1 - F e b
0000420 - 8 5 1 7 : 3 0 : 1 2 " { E
0000440 R I S } < L I S P C O R E > S O
0000460 U R C E S > A A R I T H . ; 8 )
0000500 \r L O G D 1 \r ( P 2 S S U
0000520 M P 1 E X P P 0 S X
0000540 I 0 X ) \0 202 004 \0 \0 001 @ d
0000560 005 003 242 006 \0 \0 j 021 " 003 H 355 001 h 354 005
0000600 250 o \0 \0 \0 @ \n \0 \0 277 H 312 \0 027 j 360
0000620 262 ! j 273 H 355 001 l 177 n 377 376 321 375 354 005
0000640 235 H o \0 \0 \0 352 X 264 355 K k 330 260 346 K
0000660 271 H d @ 360 227 277 @ o \0 \0 \0 350 X 312 \0
0000700 027 l 177 331 I 331 Y H l 177 317 \0 027 H o \0
0000720 \0 \0 351 X d 355 001 ` \0 \0 006 \0 \0 311 \0 l
0000740 \b 2 \0 355 \0 Z d I o \0 \0 \0 352 350 020 \0
0000760 ( 3 2 Q E R R O R ) \r ( 1 5 6
0001000 Q A R R A Y P 1 5 3 Q \ L
0001020 O G A R R A Y 7 F L O A T P
0001040 ) \r ( 1 7 5 Q . 6 9 3 1 4 7
0001060 2 1 4 3 Q 1 . 0 1 1 5 Q
0001100 0 . 0 6 7 Q 2 . 0 2 6 Q
0001120 " L O G O F N O N - P O S I
0001140 T I V E N U M B E R : " ) \r A
0001160 N T I L O G D 1 \r ( P 4 I
0001200 P I 0 X ) \0 R 005 \0 \0 001 @
0001220 355 001 h d d 021 024 004 H 355 002 [ d n ? 1
0001240 n r 030 321 K 355 \0 o \0 \0 \0 353 j 330 \ 355
0001260 001 354 003 354 001 d ` \0 \0 006 \0 \0 311 \0 l \a
0001300 2 \0 d l 002 L \n \0 \0 355 001 354 004 Z H h
0001320 354 005 230 o \0 \0 \0 J 355 \0 353 020 J 355 \0 020
0001340 \0 ( 7 1 Q E X P T ) \r ( 5 4 Q
0001360 A R R A Y P 5 1 Q \ A N T
0001400 I L O G A R R A Y ) \r ( 1 0 7
0001420 Q 1 . 0 3 3 Q . 6 9 3 1 4
0001440 7 2 ) \r S I N D 1 \r ( P 1
0001460 X 2 P 0 X X I 1 R A
0001500 D I A N S F L G I 0 X )
0001520 \0 345 002 \0 \0 002 @ d 005 003 242 006 \0 \0 021 021
0001540 001 A 262 ) H 355 001 n @ 311 n 017 332 321 375 354
0001560 005 235 H 355 001 n 300 311 n 017 332 321 354 005 263 5
0001600 H o \0 \0 \0 \n \0 \0 X 260 + H 355 001 n C
0001620 264 j 321 375 354 005 232 H 355 001 n 303 264 j 321 354
0001640 005 251 H o \0 \0 \0 \n \0 \0 X 200 H o \0 \0
0001660 \0 352 270 H 355 001 n 277 311 n 017 330 321 375 354 005
0001700 227 H o \0 \0 \0 350 X 200 H 355 001 n @ 226 n
0001720 313 344 321 354 005 230 H o \0 \0 \0 351 X 260 030 H
0001740 355 001 n ? 311 n 017 330 321 354 005 227 o \0 \0 \0
0001760 H 351 X 200 H 355 001 n ? I n 017 333 321 375 354
0002000 005 263 032 H d 352 Y H I 355 001 ` \0 \0 006 \0
0002020 \0 311 \0 l 005 2 \0 355 \0 352 020 H o \0 \0 \0
0002040 352 X d d 352 Y H I 355 001 ` \0 \0 006 \0 \0
0002060 311 \0 l 003 2 \0 355 \0 352 020 \0 ( 1 2 3 Q
0002100 F R E M A I N D E R 6 1 Q
0002120 F R E M A I N D E R ) \r ( 3 3 1
0002140 Q A R R A Y P 3 2 6 Q \ S
0002160 I N A R R A Y 2 2 7 2 Q A R
0002200 R A Y P 2 6 7 Q \ S I N A R
0002220 R A Y 1 7 F L O A T P ) \r (
0002240 3 1 1 Q 1 . 2 7 3 2 3 9 2
0002260 3 1 Q 3 . 1 4 1 5 9 3 2 0 4
0002300 Q 6 . 2 8 3 1 8 5 1 5 7 Q
0002320 6 . 2 8 3 1 8 5 1 3 2 Q . 0
0002340 1 7 4 5 3 2 9 1 2 0 Q 3 6 0
0002360 . 0 5 6 Q 6 . 2 8 3 1 8 5 )
0002400 \r A R C S I N D 1 \r ( P 6
0002420 Q 2 P 5 Q 1 P 4 Z
0002440 P 3 R E D U C E D P 2
0002460 N E G P P 1 S S U M P
0002500 0 X X I 1 R A D I A N S
0002520 F L G I 0 X ) \0 265 \a \0 \0
0002540 002 @ d 005 003 242 006 \0 \0 021 a 006 H 355 001 n
0002560 277 200 j 321 375 354 005 253 H 355 001 n ? 200 j 321
0002600 354 005 262 * o \0 \0 \0 H \n \0 \0 277 H 355 001
0002620 n ? \0 j 321 354 005 262 ) i 273 o \0 \0 \0 H
0002640 351 o \0 \0 \0 352 \t \0 \0 X 260 027 H 355 001 h
0002660 375 354 005 262 332 i 272 o \0 \0 \0 H 351 X 260 320
0002700 H d 352 \ d o \0 \0 \0 352 ] d o \0 \0 \0
0002720 351 ^ d 352 ^ d d o \0 \0 \0 350 352 o \0 \0
0002740 \0 350 ^ H N M o \0 \0 \0 350 352 o \0 \0 \0
0002760 350 352 Y K 233 o \0 \0 \0 I o \0 \0 \0 352 351
0003000 271 J 226 o \0 \0 \0 I 351 271 A 221 I 020 I o
0003020 \0 \0 \0 352 020 \0 ( 1 0 7 Q S Q R T
0003040 5 2 Q E R R O R ) \r ( 7 F
0003060 L O A T P ) \r ( 2 6 1 Q 5 7
0003100 . 2 9 5 7 8 2 4 5 Q 0 . 0
0003120 2 3 4 Q 2 . 0 2 2 7 Q 1 .
0003140 5 7 0 7 9 6 2 1 6 Q . 7 5 3
0003160 3 0 5 7 2 1 0 Q . 6 5 9 9 5
0003200 2 6 1 7 7 Q . 3 6 9 7 7 2 3
0003220 1 7 1 Q . 4 9 1 8 7 6 2 1
0003240 5 6 Q . 0 8 9 8 2 4 4 6 1 4
0003260 7 Q . 5 3 1 5 0 6 6 1 3 1 Q
0003300 0 . 0 1 0 3 Q . 5 7 5 Q
0003320 1 . 0 4 6 Q " A R C S I N
0003340 : a r g n o t i n r a n
0003360 g e " ) \r C O S D 1 \r ( I 1
0003400 R A D I A N S F L G I 0
0003420 X ) \0 032 \0 \0 \0 002 A 224 o \0 \0 \0 203
0003440 o \0 \0 \0 @ d 005 003 242 006 \0 \0 351 A \n \0
0003460 \0 020 \0 ( 2 7 Q S I N ) \r ( 2 2
0003500 Q F L O A T P ) \r ( 1 2 Q
0003520 9 0 . 0 5 1 . 5 7 0 7 9 6 )
0003540 \r A R C C O S D 1 \r ( P 0
0003560 X X I 1 R A D I A N S F L
0003600 G I 0 X ) \0 036 001 \0 \0 002 @
0003620 d 005 003 242 006 \0 \0 021 001 \0 A 224 o \0 \0 \0
0003640 203 o \0 \0 \0 H A \n \0 \0 351 020 \0 ( 3 2
0003660 Q A R C S I N ) \r ( 7 F L O
0003700 A T P ) \r ( 2 5 Q 9 0 . 0
0003720 2 0 Q 1 . 5 7 0 7 9 6 ) \r T A
0003740 N D 1 \r ( P 3 X 2 P 2
0003760 Y P 1 F L I P P E D P
0004000 0 X X I 1 R A D I A N
0004020 S F L G I 0 X ) \0 244 004 \0
0004040 \0 002 @ d 005 003 242 006 \0 \0 021 1 003 A 230 H
0004060 o \0 \0 \0 \n \0 \0 214 H o \0 \0 \0 \n \0 \0
0004100 o \0 \0 \0 352 X d 355 001 n ? 311 n 017 330 321
0004120 354 005 230 H o \0 \0 \0 351 X 260 031 H 355 001 n
0004140 277 311 n 017 330 321 375 354 005 227 H o \0 \0 \0 350
0004160 X 200 H 355 001 n ? I n 017 333 321 354 005 231 i
0004200 271 o \0 \0 \0 H 351 260 032 H 355 001 n 277 I n
0004220 017 333 321 375 354 005 230 i 271 o \0 \0 \0 H 351 200
0004240 H Z d d 352 [ J K 355 001 ` \0 \0 006 \0 \0
0004260 311 \0 l 006 2 \0 355 \0 352 Z I 226 o \0 \0 \0
0004300 J 353 020 J 020 \0 ( 3 5 Q F R E M A
0004320 I N D E R 2 4 Q F R E M A I
0004340 N D E R ) \r ( 2 1 5 Q A R R A
0004360 Y P 2 1 2 Q \ T A N A R R A
0004400 Y 7 F L O A T P ) \r ( 2 3
0004420 5 Q 1 . 0 1 7 2 Q - 1 . 5
0004440 7 0 7 9 6 1 4 2 Q 1 . 5 7 0
0004460 7 9 6 1 1 4 Q 3 . 1 4 1 5 9
0004500 3 6 5 Q 3 . 1 4 1 5 9 3 4
0004520 1 Q . 0 1 7 4 5 3 2 9 3 2 Q
0004540 1 8 0 . 0 2 1 Q 3 . 1 4 1
0004560 5 9 3 ) \r A R C T A N D 1 \r (
0004600 L ( 1 R A D I A N S F L G
0004620 0 X ) ) \0 i 004 \0 \0 002 @ 006 \0 \0
0004640 o \0 \0 \0 021 " 003 H 355 001 n 277 200 j 321 375
0004660 354 005 253 H 355 001 n ? 200 j 321 354 005 262 034 H
0004700 355 001 h 375 354 005 224 o \0 \0 \0 203 o \0 \0 \0
0004720 273 o \0 \0 \0 H 353 X 200 H d 352 Z H J 355
0004740 001 ` \0 \0 006 \0 \0 311 \0 l \b 2 \0 355 \0 352
0004760 Y K 265 006 A 226 I 020 I 351 271 260 371 I o \0
0005000 \0 \0 352 020 \0 N I L \r ( 1 1 2 Q A
0005020 R R A Y P 1 0 7 Q \ A R C T
0005040 A N A R R A Y 3 F L O A T P
0005060 ) \r ( 1 4 5 Q 5 7 . 2 9 5 7
0005100 8 7 0 Q 1 . 0 6 3 Q 1 .
0005120 5 7 0 7 9 6 5 6 Q - 1 . 5 7
0005140 0 7 9 6 7 . 0 0 2 8 6 6 2 2
0005160 6 ) \r A R C T A N 2 D 1 \r ( I
0005200 2 R A D I A N S F L G I
0005220 1 X I 0 Y ) \0 _ 001 \0 \0
0005240 003 @ 005 003 246 @ 006 \0 \0 b \0 277 A 005 003 246
0005260 A 006 \0 \0 b 002 277 @ A 353 \t \0 \0 i \n \0
0005300 \0 021 001 \0 A 355 001 h 375 354 005 262 031 @ 355 001
0005320 h 375 354 005 227 H o \0 \0 \0 350 260 031 o \0 \0
0005340 \0 H 351 217 @ 355 001 h 375 354 005 226 o \0 \0 \0
0005360 H 351 200 H X B 220 020 H o \0 \0 \0 352 020 \0
0005400 ( 3 7 Q A R C T A N 3 3 Q
0005420 A B S ) \r ( 2 2 Q F L O A T P
0005440 7 F L O A T P ) \r ( 1 3 3
0005460 Q 5 7 . 2 9 5 7 8 1 1 6 Q
0005500 0 . 0 7 7 Q 3 . 1 4 1 5 9 3
0005520 7 0 Q - 3 . 1 4 1 5 9 3 ) \r
0005540 A T A N D 1 \r ( I 2 R A D
0005560 I A N S F L G I 1 X I
0005600 0 Y ) \0 326 \b \0 \0 003 @ 005 003 246 @
0005620 006 \0 \0 b \0 277 A 005 003 246 A 006 \0 \0 b 002
0005640 277 @ 355 001 h 375 354 005 A 355 001 h 375 354 005 021
0005660 b \a H 226 o \0 \0 \0 @ 351 200 @ 272 I 226 o
0005700 \0 \0 \0 A 351 200 A 273 J K 351 J K 350 353 \
0005720 d 352 _ 016 277 L O 016 355 001 ` \0 \0 006 \0 \0
0005740 311 \0 l \a 2 \0 355 \0 352 ^ d 355 001 h 375 354
0005760 005 226 277 o \0 \0 \0 N 351 ] 355 001 n ? I n
0006000 026 207 321 375 354 005 235 M 355 001 n ? I n \t l
0006020 321 375 354 005 226 N o \0 \0 \0 260 032 N 355 001 h
0006040 375 354 005 223 J K 353 214 o \0 \0 \0 K 351 J 353
0006060 o \0 \0 \0 350 276 I 262 023 H 227 N o \0 \0 \0
0006100 350 260 023 o \0 \0 \0 N 351 211 H 226 o \0 \0 \0
0006120 N 351 200 N 276 B 221 N 020 N o \0 \0 \0 352 020
0006140 \0 N I L \r ( 1 2 4 Q A R R A Y
0006160 P 1 2 1 Q \ A T A N A R R A
0006200 Y 2 2 Q F L O A T P 7 F
0006220 L O A T P ) \r ( 3 2 2 Q 5 7
0006240 . 2 9 5 7 8 3 0 4 Q 6 . 2 8
0006260 3 1 8 5 2 7 3 Q 3 . 1 4 1 5
0006300 9 3 2 6 4 Q 3 . 1 4 1 5 9 3
0006320 2 5 0 Q 1 . 5 7 0 7 9 6 2
0006340 4 0 Q 0 . 0 2 1 6 Q . 7 8
0006360 5 3 9 8 2 1 5 3 Q 0 . 0 6
0006400 7 Q 0 . 0 5 4 Q 0 . 0 ) \r
0006420 F E X P T D 1 \r ( I 1 N
0006440 I 0 A ) \0 031 \0 \0 \0 002 A d 005
0006460 003 242 006 \0 \0 @ d 005 003 242 006 \0 \0 \t \0 \0
0006500 352 \t \0 \0 020 \0 ( 2 6 Q A N T I L
0006520 O G 2 2 Q L O G ) \r ( 1 7 Q
0006540 F L O A T P 7 F L O A T P
0006560 ) \r ( ) \r ( P R E T T Y C O M P
0006600 R I N T A A R I T H C O M S )
0006620 \r ( R P A Q Q A A R I T H C O
0006640 M S ( ( F N S L O G A N T
0006660 I L O G S I N A R C S I N
0006700 C O S A R C C O S T A N A
0006720 R C T A N A R C T A N 2 A T
0006740 A N F E X P T ) ( V A R S
0006760 \r \ A N T I L O G A R R A Y \
0007000 A R C T A N A R R A Y \ L O G
0007020 A R R A Y \ S I N A R R A Y 1
0007040 \ S I N A R R A Y 2 \ T A N
0007060 A R R A Y \ A T A N A R R A Y
0007100 ) ( D E C L A R E : \r E V A
0007120 L @ C O M P I L E D O N T C O
0007140 P Y ( M A C R O S ( * n o
0007160 w o b s o l e t e - u s e
0007200 P O L Y E V A L i n s t e a
0007220 d ) H O R N E R I F Y F L E
0007240 Q F G E Q ) ( F I L E S (
0007260 \r L O A D C O M P ) L L F L O
0007300 A T ) ( C O N S T A N T S (
0007320 \ E X P O N E N T . B I A S 1
0007340 2 7 ) ( 2 P I 6 . 2 8 3 1 8
0007360 5 ) ( P I 3 . 1 4 1 5 9 3 )
0007400 ( - P I - 3 . 1 4 1 5 9 3 )
0007420 ( - P I / 2 \r - 1 . 5 7 0 7
0007440 9 6 ) ( P I / 2 1 . 5 7 0 7
0007460 9 6 ) ( 4 / P I 1 . 2 7 3 2
0007500 3 9 ) ( 3 P I / 2 4 . 7 1 2
0007520 3 8 9 ) ( P I / 4 . 7 8 5 3
0007540 9 8 2 ) ( - P I / 4 - . 7 8
0007560 5 3 9 8 2 ) ( P I / 1 8 0 \r
0007600 . 0 1 7 4 5 3 2 9 ) ( 1 8 0 /
0007620 P I 5 7 . 2 9 5 7 8 ) ( - P
0007640 I / 2 - 1 . 5 7 0 7 9 6 ) (
0007660 L N 2 . 6 9 3 1 4 7 2 ) ( 2
0007700 ^ - 1 2 6 1 . 1 7 5 4 9 4 E -
0007720 3 8 ) ) ) ) ) \r ( R P A Q \ A
0007740 N T I L O G A R R A Y ( R E A
0007760 D A R R A Y 8 ( Q U O T E
0010000 F L O A T P ) 0 ) ) \r ( - . 0
0010020 0 0 1 4 1 3 1 6 1 . 0 0 1 3 2
0010040 9 8 8 2 - . 0 0 8 3 0 1 3 6
0010060 . 0 4 1 6 5 7 3 5 - . 1 6 6 6
0010100 6 5 3 . 4 9 9 9 9 9 9 - 1 .
0010120 0 1 . 0 N I L ) \r ( R P A Q
0010140 \ A R C T A N A R R A Y ( R
0010160 E A D A R R A Y 9 ( Q U O T
0010200 E F L O A T P ) 0 ) ) \r ( .
0010220 0 0 2 8 6 6 2 2 6 - . 0 1 6 1
0010240 6 5 7 4 . 0 4 2 9 0 9 6 1 -
0010260 . 0 7 5 2 8 9 6 4 . 1 0 6 5 6
0010300 2 6 - . 1 4 2 0 8 9 . 1 9 9
0010320 9 3 5 5 - . 3 3 3 3 3 1 5 1
0010340 . 0 N I L ) \r ( R P A Q \ L
0010360 O G A R R A Y ( R E A D A R R
0010400 A Y 9 ( Q U O T E F L O A
0010420 T P ) 0 ) ) \r ( - . 0 0 6 4 5
0010440 3 5 4 4 . 0 3 6 0 8 8 4 9 -
0010460 . 0 9 5 3 2 9 4 . 1 6 7 6 5 4
0010500 1 - . 2 4 0 7 3 3 8 . 3 3 1
0010520 7 9 9 - . 4 9 9 8 7 4 1 . 9
0010540 9 9 9 9 6 4 0 . 0 N I L ) \r
0010560 ( R P A Q \ S I N A R R A Y 1
0010600 ( R E A D A R R A Y 6 ( Q
0010620 U O T E F L O A T P ) 0 ) )
0010640 \r ( - 2 . 3 9 E - 8 2 . 7 5 2
0010660 6 E - 6 - . 0 0 0 1 9 8 4 0 9
0010700 . 0 0 8 3 3 3 3 3 2 - . 1 6
0010720 6 6 6 6 7 1 . 0 N I L ) \r (
0010740 R P A Q \ S I N A R R A Y 2
0010760 ( R E A D A R R A Y 4 ( Q U
0011000 O T E F L O A T P ) 0 ) ) \r
0011020 ( - . 0 0 0 0 3 5 9 5 4 4 . 0
0011040 0 2 4 9 0 0 0 7 - . 0 8 0 7 4
0011060 5 4 5 . 7 8 5 3 9 8 2 N I L
0011100 ) \r ( R P A Q \ T A N A R R A
0011120 Y ( R E A D A R R A Y 7 (
0011140 Q U O T E F L O A T P ) 0 )
0011160 ) \r ( . 0 0 9 5 1 6 8 1 . 0 0
0011200 2 9 0 0 5 2 5 . 0 2 4 5 6 5 0
0011220 9 . 0 5 3 3 7 4 0 6 . 1 3 3
0011240 3 9 2 4 . 3 3 3 3 3 1 4 1 .
0011260 0 N I L ) \r ( R P A Q \ A T
0011300 A N A R R A Y ( R E A D A R R
0011320 A Y 8 ( Q U O T E F L O A
0011340 T P ) 0 ) ) \r ( - . 0 0 4 0 5
0011360 4 0 5 8 . 0 2 1 8 6 1 2 3 -
0011400 . 0 5 5 9 0 9 8 9 . 0 9 6 4 2
0011420 0 0 4 - . 1 3 9 0 8 5 3 . 1
0011440 9 9 4 6 5 4 - . 3 3 3 2 9 8 6
0011460 . 9 9 9 9 9 9 4 N I L ) \r (
0011500 P U T P R O P S A A R I T H
0011520 C O P Y R I G H T ( " X e r o
0011540 x C o r p o r a t i o n " 1
0011560 9 8 1 1 9 8 3 1 9 8 4 1 9
0011600 8 5 ) ) \r N I L \r
0011611