$ od -c -N 50000 [qv]<IDL>DINDE>DINDEREEXPS.DCOM!1
0000000 ( F I L E C R E A T E D " 5
0000020 - M a y - 8 6 1 7 : 0 5 : 0 7
0000040 " ( " c o m p i l e d o n
0000060 " { D S K } < L I S P F I L E
0000100 S > D I N D E R E E X P S . ; 1
0000120 ) " 1 2 - N o v - 8 5 1 4 :
0000140 5 9 : 2 3 " \r t c o m p l ' d
0000160 i n " L O O P S 1 8 - A p
0000200 r - 8 6 . . . " d a t e d
0000220 " 1 8 - A p r - 8 6 1 8 : 4 8
0000240 : 3 1 " ) \r ( F I L E C R E A T
0000260 E D " 3 1 - O c t - 8 5 1 0
0000300 : 2 2 : 3 2 " { D S K } < L I
0000320 S P F I L E S > D I N D E R E E
0000340 X P S . ; 2 8 3 2 1 c h a n
0000360 g e s t o : ( V A R S \r D
0000400 I N D E R E E X P S C O M S )
0000420 p r e v i o u s d a t e : "
0000440 1 3 - M a y - 8 5 1 5 : 3 6 :
0000460 0 1 " { D S K } < L I S P F I
0000500 L E S > D I N D E R E E X P S .
0000520 ; 1 ) \r B o o l e a n A r r a y
0000540 . ! D 1 \r ( I 0 s e l f )
0000560 \0 032 002 \0 \0 001 @ 021 021 001 H g \0 \0 \n
0000600 \0 \0 271 H g \0 \0 g \0 \0 l 003 I 017 016 020
0000620 \0 ( 1 2 Q F e t c h M e t h o
0000640 d O r H e l p ) \r ( 2 2 Q !
0000660 1 7 Q E B . N O T 7 R e e
0000700 x p r e s s i o n ) \r ( ) \r F l
0000720 o a t A r r a y . A B S D 1 \r
0000740 ( I 0 s e l f ) \0 032 002 \0 \0
0000760 001 @ 021 021 001 H g \0 \0 \n \0 \0 271 H g \0
0001000 \0 g \0 \0 l 003 I 017 016 020 \0 ( 1 2 Q
0001020 F e t c h M e t h o d O r H e l
0001040 p ) \r ( 2 2 Q A B S 1 7 Q
0001060 E R . A B S 7 R e e x p r e
0001100 s s i o n ) \r ( ) \r F l o a t A
0001120 r r a y . A C O S D 1 \r ( I
0001140 0 s e l f ) \0 032 002 \0 \0 001 @ 021
0001160 021 001 H g \0 \0 \n \0 \0 271 H g \0 \0 g \0
0001200 \0 l 003 I 017 016 020 \0 ( 1 2 Q F e t
0001220 c h M e t h o d O r H e l p ) \r
0001240 ( 2 2 Q A C O S 1 7 Q E R
0001260 . A C O S 7 R e e x p r e s
0001300 s i o n ) \r ( ) \r F l o a t A r
0001320 r a y . A S I N D 1 \r ( I 0
0001340 s e l f ) \0 032 002 \0 \0 001 @ 021 021
0001360 001 H g \0 \0 \n \0 \0 271 H g \0 \0 g \0 \0
0001400 l 003 I 017 016 020 \0 ( 1 2 Q F e t c
0001420 h M e t h o d O r H e l p ) \r (
0001440 2 2 Q A S I N 1 7 Q E R .
0001460 A S I N 7 R e e x p r e s s
0001500 i o n ) \r ( ) \r F l o a t A r r
0001520 a y . A T A N D 1 \r ( I 0
0001540 s e l f ) \0 032 002 \0 \0 001 @ 021 021 001
0001560 H g \0 \0 \n \0 \0 271 H g \0 \0 g \0 \0 l
0001600 003 I 017 016 020 \0 ( 1 2 Q F e t c h
0001620 M e t h o d O r H e l p ) \r ( 2
0001640 2 Q A T A N 1 7 Q E R . A
0001660 T A N 7 R e e x p r e s s i
0001700 o n ) \r ( ) \r F l o a t A r r a
0001720 y . C E I L I N G D 1 \r ( I
0001740 0 s e l f ) \0 032 002 \0 \0 001 @ 021
0001760 021 001 H g \0 \0 \n \0 \0 271 H g \0 \0 g \0
0002000 \0 l 003 I 017 016 020 \0 ( 1 2 Q F e t
0002020 c h M e t h o d O r H e l p ) \r
0002040 ( 2 2 Q C E I L I N G 1 7 Q
0002060 E R . C E I L I N G 7 R e
0002100 e x p r e s s i o n ) \r ( ) \r F
0002120 l o a t A r r a y . C O S D 1
0002140 \r ( I 0 s e l f ) \0 032 002 \0
0002160 \0 001 @ 021 021 001 H g \0 \0 \n \0 \0 271 H g
0002200 \0 \0 g \0 \0 l 003 I 017 016 020 \0 ( 1 2 Q
0002220 F e t c h M e t h o d O r H e
0002240 l p ) \r ( 2 2 Q C O S 1 7 Q
0002260 E R . C O S 7 R e e x p r
0002300 e s s i o n ) \r ( ) \r F l o a t
0002320 A r r a y . E X P D 1 \r ( I
0002340 0 s e l f ) \0 032 002 \0 \0 001 @ 021
0002360 021 001 H g \0 \0 \n \0 \0 271 H g \0 \0 g \0
0002400 \0 l 003 I 017 016 020 \0 ( 1 2 Q F e t
0002420 c h M e t h o d O r H e l p ) \r
0002440 ( 2 2 Q E X P 1 7 Q E R .
0002460 E X P 7 R e e x p r e s s i
0002500 o n ) \r ( ) \r F l o a t A r r a
0002520 y . F L O O R D 1 \r ( I 0
0002540 s e l f ) \0 032 002 \0 \0 001 @ 021 021 001
0002560 H g \0 \0 \n \0 \0 271 H g \0 \0 g \0 \0 l
0002600 003 I 017 016 020 \0 ( 1 2 Q F e t c h
0002620 M e t h o d O r H e l p ) \r ( 2
0002640 2 Q F L O O R 1 7 Q E R .
0002660 F L O O R 7 R e e x p r e s
0002700 s i o n ) \r ( ) \r F l o a t A r
0002720 r a y . G A M M A D 1 \r ( I
0002740 0 s e l f ) \0 032 002 \0 \0 001 @ 021
0002760 021 001 H g \0 \0 \n \0 \0 271 H g \0 \0 g \0
0003000 \0 l 003 I 017 016 020 \0 ( 1 2 Q F e t
0003020 c h M e t h o d O r H e l p ) \r
0003040 ( 2 2 Q G A M M A 1 7 Q E
0003060 R . G A M M A 7 R e e x p r
0003100 e s s i o n ) \r ( ) \r F l o a t
0003120 A r r a y . L G A M M A D 1 \r
0003140 ( I 0 s e l f ) \0 032 002 \0 \0
0003160 001 @ 021 021 001 H g \0 \0 \n \0 \0 271 H g \0
0003200 \0 g \0 \0 l 003 I 017 016 020 \0 ( 1 2 Q
0003220 F e t c h M e t h o d O r H e l
0003240 p ) \r ( 2 2 Q L G A M M A 1
0003260 7 Q E R . L G A M M A 7 R
0003300 e e x p r e s s i o n ) \r ( ) \r
0003320 F l o a t A r r a y . L O G D
0003340 1 \r ( I 0 s e l f ) \0 032 002
0003360 \0 \0 001 @ 021 021 001 H g \0 \0 \n \0 \0 271 H
0003400 g \0 \0 g \0 \0 l 003 I 017 016 020 \0 ( 1 2
0003420 Q F e t c h M e t h o d O r H
0003440 e l p ) \r ( 2 2 Q L O G 1 7
0003460 Q E R . L O G 7 R e e x p
0003500 r e s s i o n ) \r ( ) \r F l o a
0003520 t A r r a y . L O G 1 0 D 1 \r
0003540 ( I 0 s e l f ) \0 032 002 \0 \0
0003560 001 @ 021 021 001 H g \0 \0 \n \0 \0 271 H g \0
0003600 \0 g \0 \0 l 003 I 017 016 020 \0 ( 1 2 Q
0003620 F e t c h M e t h o d O r H e l
0003640 p ) \r ( 2 2 Q L O G 1 0 1 7
0003660 Q E R . L O G 1 0 7 R e e
0003700 x p r e s s i o n ) \r ( ) \r F l
0003720 o a t A r r a y . S I N D 1 \r
0003740 ( I 0 s e l f ) \0 032 002 \0 \0
0003760 001 @ 021 021 001 H g \0 \0 \n \0 \0 271 H g \0
0004000 \0 g \0 \0 l 003 I 017 016 020 \0 ( 1 2 Q
0004020 F e t c h M e t h o d O r H e l
0004040 p ) \r ( 2 2 Q S I N 1 7 Q
0004060 E R . S I N 7 R e e x p r e
0004100 s s i o n ) \r ( ) \r F l o a t A
0004120 r r a y . S Q R T D 1 \r ( I
0004140 0 s e l f ) \0 032 002 \0 \0 001 @ 021
0004160 021 001 H g \0 \0 \n \0 \0 271 H g \0 \0 g \0
0004200 \0 l 003 I 017 016 020 \0 ( 1 2 Q F e t
0004220 c h M e t h o d O r H e l p ) \r
0004240 ( 2 2 Q S Q R T 1 7 Q E R
0004260 . S Q R T 7 R e e x p r e s
0004300 s i o n ) \r ( ) \r F l o a t A r
0004320 r a y . T R U N C D 1 \r ( I
0004340 0 s e l f ) \0 032 002 \0 \0 001 @ 021
0004360 021 001 H g \0 \0 \n \0 \0 271 H g \0 \0 g \0
0004400 \0 l 003 I 017 016 020 \0 ( 1 2 Q F e t
0004420 c h M e t h o d O r H e l p ) \r
0004440 ( 2 2 Q T R U N C 1 7 Q E
0004460 R . T R U N C 7 R e e x p r
0004500 e s s i o n ) \r ( ) \r F l o a t
0004520 A r r a y . U N A R Y M I N U S
0004540 D 1 \r ( I 0 s e l f ) \0
0004560 032 002 \0 \0 001 @ 021 021 001 H g \0 \0 \n \0 \0
0004600 271 H g \0 \0 g \0 \0 l 003 I 017 016 020 \0 (
0004620 1 2 Q F e t c h M e t h o d O
0004640 r H e l p ) \r ( 2 2 Q U N A R
0004660 Y M I N U S 1 7 Q E R . U N
0004700 A R Y M I N U S 7 R e e x p
0004720 r e s s i o n ) \r ( ) \r ( P R E
0004740 T T Y C O M P R I N T D I N D
0004760 E R E E X P S C O M S ) \r ( R P
0005000 A Q Q D I N D E R E E X P S C
0005020 O M S ( ( M E T H O D S B o
0005040 o l e a n A r r a y . ! F l o
0005060 a t A r r a y . A B S F l o a
0005100 t A r r a y . A C O S F l o a
0005120 t A r r a y . A S I N \r F l o
0005140 a t A r r a y . A T A N F l o
0005160 a t A r r a y . C E I L I N G
0005200 F l o a t A r r a y . C O S F
0005220 l o a t A r r a y . E X P F l
0005240 o a t A r r a y . F L O O R F
0005260 l o a t A r r a y . G A M M A
0005300 \r F l o a t A r r a y . L G A M
0005320 M A F l o a t A r r a y . L O
0005340 G F l o a t A r r a y . L O G
0005360 1 0 F l o a t A r r a y . S I
0005400 N F l o a t A r r a y . S Q R
0005420 T F l o a t A r r a y . T R U
0005440 N C \r F l o a t A r r a y . U
0005460 N A R Y M I N U S ) ) ) \r ( M E
0005500 T H B o o l e a n A r r a y
0005520 ! N I L ( * L o g i c a l
0005540 N O T . ) ( m e t h o d B
0005560 o o l e a n A r r a y . ! M e
0005600 t h o d C l a s s i f i c a t i
0005620 o n R e e x p r e s s i o n )
0005640 ) \r ( M E T H F l o a t A r r
0005660 a y A B S N I L ( * A b
0005700 s o u l t e v a l u e . ) (
0005720 m e t h o d F l o a t A r r a
0005740 y . A B S M e t h o d C l a s
0005760 s i f i c a t i o n R e e x p
0006000 r e s s i o n ) \r ) \r ( M E T H
0006020 F l o a t A r r a y A C O S
0006040 N I L ( * A r c - c o s i
0006060 n e . ) ( m e t h o d F l o
0006100 a t A r r a y . A C O S M e t
0006120 h o d C l a s s i f i c a t i o
0006140 n R e e x p r e s s i o n ) )
0006160 \r ( M E T H F l o a t A r r a
0006200 y A S I N N I L ( * A r
0006220 c - s i n e . ) ( m e t h o d
0006240 F l o a t A r r a y . A S I N
0006260 M e t h o d C l a s s i f i c
0006300 a t i o n R e e x p r e s s i
0006320 o n ) ) \r ( M E T H F l o a t
0006340 A r r a y A T A N N I L (
0006360 * A r c - t a n g e n t . )
0006400 ( m e t h o d F l o a t A r r
0006420 a y . A T A N M e t h o d C l
0006440 a s s i f i c a t i o n R e e
0006460 x p r e s s i o n ) ) \r ( M E T
0006500 H F l o a t A r r a y C E I
0006520 L I N G N I L ( * L e a s
0006540 t i n t e g e r g r e a t e
0006560 r t h a n o r e q u a l
0006600 t o a r g u m e n t . ) ( m
0006620 e t h o d \r F l o a t A r r a
0006640 y . C E I L I N G M e t h o d
0006660 C l a s s i f i c a t i o n R
0006700 e e x p r e s s i o n ) ) \r ( M
0006720 E T H F l o a t A r r a y C
0006740 O S N I L ( * C o s i n e
0006760 . ) ( m e t h o d F l o a t
0007000 A r r a y . C O S M e t h o d
0007020 C l a s s i f i c a t i o n R
0007040 e e x p r e s s i o n ) ) \r ( M
0007060 E T H F l o a t A r r a y E
0007100 X P N I L ( * E x p o n e
0007120 n t i a l o f a r g u m e n
0007140 t . ) ( m e t h o d F l o a
0007160 t A r r a y . E X P M e t h o
0007200 d C l a s s i f i c a t i o n
0007220 \r R e e x p r e s s i o n ) ) \r
0007240 ( M E T H F l o a t A r r a y
0007260 F L O O R N I L ( * G r
0007300 e a t e s t i n t e g e r l
0007320 e s s t h a n o r e q u a
0007340 l t o t h e a r g u m e n
0007360 t . ) ( m e t h o d \r F l o
0007400 a t A r r a y . F L O O R M e
0007420 t h o d C l a s s i f i c a t i
0007440 o n R e e x p r e s s i o n )
0007460 ) \r ( M E T H F l o a t A r r
0007500 a y G A M M A N I L ( *
0007520 T h e G A M M A f u n c t i
0007540 o n a p p l i e d t o t h
0007560 e a r g u m e n t . ) ( m e
0007600 t h o d F l o a t A r r a y .
0007620 G A M M A \r M e t h o d C l a
0007640 s s i f i c a t i o n R e e x
0007660 p r e s s i o n ) ) \r ( M E T H
0007700 F l o a t A r r a y L G A M
0007720 M A N I L ( * T h e n a
0007740 t u r a l l o g o f t h e
0007760 G A M M A f u n c t i o n
0010000 o f t h e a r g u m e n t .
0010020 ) ( m e t h o d \r F l o a t
0010040 A r r a y . L G A M M A M e t
0010060 h o d C l a s s i f i c a t i o
0010100 n R e e x p r e s s i o n ) )
0010120 \r ( M E T H F l o a t A r r a
0010140 y L O G N I L ( * N a t
0010160 u r a l l o g a r i t h m . )
0010200 ( m e t h o d F l o a t A r
0010220 r a y . L O G M e t h o d C l
0010240 a s s i f i c a t i o n \r R e
0010260 e x p r e s s i o n ) ) \r ( M E
0010300 T H F l o a t A r r a y L O
0010320 G 1 0 N I L ( * B a s e
0010340 1 0 l o g a r i t h m . ) (
0010360 m e t h o d F l o a t A r r a
0010400 y . L O G 1 0 M e t h o d C l
0010420 a s s i f i c a t i o n \r R e
0010440 e x p r e s s i o n ) ) \r ( M E
0010460 T H F l o a t A r r a y S I
0010500 N N I L ( * S i n e . )
0010520 ( m e t h o d F l o a t A r r
0010540 a y . S I N M e t h o d C l a
0010560 s s i f i c a t i o n R e e x
0010600 p r e s s i o n ) ) \r ( M E T H
0010620 F l o a t A r r a y S Q R T
0010640 N I L ( * S q u a r e r
0010660 o o t . ) ( m e t h o d F l
0010700 o a t A r r a y . S Q R T M e
0010720 t h o d C l a s s i f i c a t i
0010740 o n R e e x p r e s s i o n )
0010760 ) \r ( M E T H F l o a t A r r
0011000 a y T R U N C N I L ( *
0011020 T h e i n t e g e r p a r t
0011040 o f t h e a r g u m e n t
0011060 . ) ( m e t h o d F l o a t
0011100 A r r a y . T R U N C \r M e t
0011120 h o d C l a s s i f i c a t i o
0011140 n R e e x p r e s s i o n ) )
0011160 \r ( M E T H F l o a t A r r a
0011200 y U N A R Y M I N U S N I L
0011220 ( * - 1 . 0 t i m e s t
0011240 h e a r g u m e n t . ) ( m
0011260 e t h o d F l o a t A r r a y
0011300 . U N A R Y M I N U S \r M e t
0011320 h o d C l a s s i f i c a t i o
0011340 n R e e x p r e s s i o n ) )
0011360 \r ( P U T P R O P S D I N D E
0011400 R E E X P S C O P Y R I G H T
0011420 ( " M a s s a c h u s e t t s
0011440 I n s t i t u t e o f T e
0011460 c h n o l o g y " 1 9 8 5 ) )
0011500 \r N I L \r
0011505