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