$ od -c -N 50000 [qv]<IDL>koto>IDL-TDEMO.DCOM!1
0000000 ( F I L E C R E A T E D " 2 8
0000020 - J u n - 8 6 1 5 : 1 5 : 1 9
0000040 " ( " c o m p i l e d o n
0000060 " { Q V } < P E D E R S E N >
0000100 L I S P > I D L - T D E M O . ;
0000120 3 ) \r " 1 2 - N o v - 8 5 1
0000140 4 : 5 9 : 2 3 " r e c o m p i
0000160 l e d c h a n g e s : C O M
0000200 P U T E - T S T A T S I D L -
0000220 T - D E M O I D L D E M O . C
0000240 L E A N U P I D L D E M O \r
0000260 I D L D E M O . S H A D E I T E
0000300 M I D L D E M O . W H E N S E
0000320 L E C T E D F N Q U A N T I L
0000340 E - P L O T i n " I N T E R
0000360 L I S P - D 1 1 - M a y - 8 6
0000400 . . . " d a t e d \r " 1 1
0000420 - M a y - 8 6 1 5 : 1 9 : 0 8
0000440 " ) \r ( F I L E C R E A T E D
0000460 " 2 8 - J u n - 8 6 1 5 : 1 4
0000500 : 2 9 " { Q V } < P E D E R S
0000520 E N > L I S P > I D L - T D E M
0000540 O . ; 3 9 4 2 3 c h a n g e
0000560 s t o : ( F N S \r I D L D
0000600 E M O . C L E A N U P I D L D
0000620 E M O I D L D E M O . W H E N
0000640 S E L E C T E D F N I D L D E
0000660 M O . S H A D E I T E M T D E
0000700 M O I D L - T - D E M O C O
0000720 M P U T E - T S T A T S \r Q U
0000740 A N T I L E - P L O T I D L D
0000760 E M O . S H A D E D O U B L E I
0001000 T E M ) ( V A R S I D L - T
0001020 D E M O C O M S ) p r e v i o
0001040 u s d a t e : " 2 5 - J u n
0001060 - 8 6 1 2 : 4 3 : 3 5 " \r {
0001100 Q V } < P E D E R S E N > L I S
0001120 P > I D L - T D E M O . ; 1 ) \r
0001140 C O M P U T E - T S T A T S D
0001160 1 \r ( P 1 V P 0 M I
0001200 1 N I 0 M A T R I X )
0001220 \0 & 002 \0 \0 002 A 247 @ k \n \0 \0 b 002
0001240 277 @ \t \0 \0 @ \t \0 \0 021 002 001 H I A I
0001260 \v \0 \0 I \n \0 \0 H \v \0 \0 020 \0 ( 4 3
0001300 Q I D L - Q U O T I E N T 3
0001320 7 Q I D L - S Q R T 3 3 Q
0001340 I D L - Q U O T I E N T 2 1 Q
0001360 S A M P L E - V A R I A N C E
0001400 1 5 Q M E A N 6 I D L A
0001420 R R A Y - D I M E N S I O N ) \r
0001440 N I L \r ( ) \r I D L - T - D E M
0001460 O D 1 \r ( P 3 I D L D E M
0001500 O . M E N U P 2 T T Y W I
0001520 N D O W F 4 T t y D i s p
0001540 l a y S t r e a m F 5 I D
0001560 L D E M O . T T Y W I N D O W
0001600 F 6 I D L D E M O . S H A D
0001620 E D I T E M F 7 S H A D E
0001640 1 ) \0 z 004 004 \0 \0 T \t \0 \0 ` \0 \0
0001660 037 d o \0 \0 \0 024 004 277 d g \0 \0 024 026 277
0001700 d o \0 \0 \0 024 022 277 d g \0 \0 024 277 d
0001720 g \0 \0 024 034 277 j d n 177 377 d h 032 032 032
0001740 032 021 002 001 H d I 024 \n 277 022 021 002 003 J c
0001760 \n d l 005 n 001 220 d n 001 J \f \0 \0 \n \0
0002000 \0 K J g \0 \0 g \0 \0 \f \0 \0 K 006 \0 \0
0002020 311 004 001 c \f d K W 016 \v \0 \0 J \t \0 \0
0002040 h 020 \0 ( 1 6 6 Q G I V E . T T
0002060 Y . P R O C E S S 1 6 2 Q I
0002100 D L D E M O . S H A D E I T E M
0002120 1 4 2 Q A T T A C H M E N U
0002140 1 2 7 Q S H A P E W 1 2 4
0002160 Q C R E A T E R E G I O N 3
0002200 W F R O M D S ) \r ( 1 4 6 Q
0002220 M E N U 1 3 7 Q T O P 1 3
0002240 4 Q R I G H T 5 1 Q D E F
0002260 A U L T M E N U H E L D F N 4
0002300 2 Q C L R P R O M P T 2 3 Q
0002320 I D L D E M O . W H E N S E L
0002340 E C T E D F N 6 004 003 M E N U
0002360 T Y P E # ) \r ( 3 3 Q " T y
0002400 p e s c r i p t M e n u f o
0002420 r I D L d e m o " 1 4 Q
0002440 ( ( " M a k e a r a n d o m
0002460 s a m p l e " " ( S E T Q
0002500 S A M P L E S ( R E S H A P E
0002520 ( A S V E C T O R * 1 5 0
0002540 1 0 ) ( N O R M A L S 1 5 0
0002560 0 ) ) " ) ( " G e t i t s
0002600 v a r i a n c e " " ( S E T Q
0002620 V ( S A M P L E - V A R I A
0002640 N C E S A M P L E S ) " ) (
0002660 " G e t i t s m e a n " "
0002700 ( S E T Q M ( M E A N S A
0002720 M P L E S ) " ) ( " C o m p u
0002740 t e t h e t - s t a t i s t
0002760 i c s " " ( S E T Q T S T A
0003000 T S ( I D L - Q U O T I E N T
0003020 M ( I D L - S Q R T ( I D
0003040 L - Q U O T I E N T V 1 0
0003060 V ) V ) M ) " ) ( " W h a
0003100 t s t h e m a x i m u m v
0003120 a l u e ? " " ( M A X - R E D
0003140 U C E T S T A T S " ) ( " W
0003160 h a t s t h e m i n i m u m
0003200 v a l u e ? " " ( M I N - R
0003220 E D U C E T S T A T S " ) (
0003240 " D e s c r i b e t h e d i
0003260 s t r i b u t i o n " " ( H I
0003300 S T O G R A M T S T A T S N
0003320 I L ' T - v a l u e ' N o r
0003340 m a l - S a m p l e " ) ( " C
0003360 o m p a r e q u a n t i l e s
0003400 " ) ( " F i r s t g e t P
0003420 e r c e n t p o i n t s " "
0003440 ( P R O G N ( S E T Q T E M
0003460 P ( G E N V E C T O R 1 5 0
0003500 1 . 0 ) ) ( S E T Q T P O
0003520 I N T S ( I N V - T - D I S T
0003540 ( I D L - Q U O T I E N T T
0003560 E M P 1 5 1 T E M P ) 9
0003600 T E M P ) ) " ) ( " S o r t
0003620 t h e T s t a t s " " ( S
0003640 E T Q O T S T A T S ( A T *
0003660 T S T A T S ( O R D E R T
0003700 S T A T S ) ) " ) ( " M a k
0003720 e a q u a n t i l e p l o
0003740 t " " ( S E T Q S C A T (
0003760 S C A T T E R P L O T ( A S V
0004000 E C T O R * T P O I N T S
0004020 O T S T A T S ) ' T h e o r e
0004040 c t i c a l ' C o m p u t e d
0004060 ) " ) ( " A d d a l i
0004100 n e o f s l o p e o n e "
0004120 " ( P L O T L I N E S C A T
0004140 1 . 0 0 . 0 N I L 2 "
0004160 ) ( " D o t h e s a m e
0004200 t o a p e r t u r b e d d
0004220 a t a s e t " ) ( " P e r t
0004240 u r b S A M P L E S " " ( P
0004260 R O G N ( S E T Q P E R (
0004300 I D L - C O P Y S A M P L E S
0004320 ) ) ( A S S I G N * ( N O R
0004340 M A L S 1 5 0 0 . 0 5 . 0
0004360 ) P E R ' A L L 0 ) " )
0004400 ( " P r o g r a m m T s t a t
0004420 s " " ( D F C O M P U T E -
0004440 T S T A T S " ) ( " C o m p u
0004460 t e t h e t - s t a t i s t
0004500 i c s " " ( S E T Q P E R -
0004520 T S T A T S ( C O M P U T E -
0004540 T S T A T S P E R ) " ) (
0004560 " D e s c r i b e t h e d i
0004600 s t r i b u t i o n " " ( H I
0004620 S T O G R A M P E R - T S T A
0004640 T S N I L ' P e r - T - v a
0004660 l u e " ) ( " P r o g r a m
0004700 q u a n t i l e p l o t "
0004720 " ( D F Q U A N T I L E - P L
0004740 O T " ) ( " M a k e a q
0004760 u a n t i l e p l o t " " (
0005000 Q U A N T I L E - P L O T P E
0005020 R - T S T A T S 1 0 " ) ( "
0005040 N o n - z e r o m e a n s "
0005060 " ( P R O G N ( S E T Q N O
0005100 N - Z E R O ( I D L - C O P Y
0005120 S A M P L E S ) ) ( S E T Q
0005140 N O N - Z E R O ( I D L - P
0005160 L U S N O N - Z E R O 3 . 0
0005200 N O N - Z E R O ) ) " ) ( "
0005220 A s b e f o r e " " ( P R O
0005240 G N ( S E T Q N O N - Z E R
0005260 O - T S T A T S ( C O M P U T
0005300 E - T S T A T S N O N - Z E R
0005320 O ) ) ( Q U A N T I L E - P L
0005340 O T N O N - Z E R O - T S T A
0005360 T S 1 0 ) " ) ( " W h a t
0005400 h a p p e n s i n g e n e r
0005420 a l ? " " ( P R O G N ( S E
0005440 T Q X - V A L U E S ( G E N
0005460 V E C T O R 2 0 1 - 1 0 0 .
0005500 0 1 . 0 ) ) ( S E T Q I N
0005520 F - S A M P L E S ( A D J O I
0005540 N X - V A L U E S ( S E T Q
0005560 I N F - S A M P L E ( R E S
0005600 H A P E ( A S V E C T O R *
0005620 2 0 1 9 ) ( N O R M A L S
0005640 9 ) ) ) ) " ) ( " C o m p u
0005660 t e t h e t - s t a t i s t
0005700 i c s " " ( S E T Q I N F -
0005720 T S T A T S ( C O M P U T E -
0005740 T S T A T S I N F - S A M P L
0005760 E S ) " ) ( " P l o t t h e
0006000 i n f l u e n c e c u r v e
0006020 " " ( S C A T T E R P L O T
0006040 ( A S V E C T O R * X - V A L
0006060 U E S I N F - T S T A T S )
0006100 ' X - v a l u e ' T - v a l
0006120 u e ' L I N E " ) ( " R e d
0006140 o w i t h n o n - z e r o
0006160 m e a n " " ( S E T Q N O N
0006200 - Z E R O - I N F - S A M P L E
0006220 S ( A D J O I N X - V A L U
0006240 E S ( I D L - P L U S I N F
0006260 - S A M P L E 3 . 0 I N F -
0006300 S A M P L E ) ) " ) ( " P l o
0006320 t t h e i n f l u e n c e
0006340 c u r v e " " ( S C A T T E R
0006360 P L O T ( A S V E C T O R 8
0006400 X - V A L U E S ( C O M P U
0006420 T E - T S T A T S N O N - Z E
0006440 R O - I N F - S A M P L E S )
0006460 ) ' X - v a l u e ' T -
0006500 v a l u e ' L I N E " ) ) ) \r
0006520 I D L D E M O . C L E A N U P
0006540 D 1 \r ( P 0 T T Y W I N D O
0006560 W F 1 T t y D i s p l a y
0006600 S t r e a m ) \0 025 001 001 \0 \0 Q \t
0006620 \0 \0 021 001 \0 H \t \0 \0 H g \0 \0 \n \0 \0
0006640 h 020 \0 ( 2 1 Q P U T W I N D O
0006660 W P R O P 1 2 Q D E T A C H
0006700 A L L W I N D O W S 3 W F R
0006720 O M D S ) \r ( 1 6 Q M I N S I
0006740 Z E ) \r ( ) \r I D L D E M O D
0006760 1 \r ( P 3 I D L D E M O . M
0007000 E N U P 2 T T Y W I N D O
0007020 W F 4 T t y D i s p l a y
0007040 S t r e a m F 5 I D L D E
0007060 M O . T T Y W I N D O W F 6
0007100 I D L D E M O . S H A D E D I
0007120 T E M F 7 S H A D E 1 )
0007140 \0 { 004 004 \0 \0 T \t \0 \0 ` \0 \0 037 d o
0007160 \0 \0 \0 024 004 277 d g \0 \0 024 026 277 d o \0
0007200 \0 \0 024 022 277 d g \0 \0 024 277 d g \0 \0
0007220 024 034 277 j d n 177 377 d h 032 032 032 032 021 002
0007240 001 H d I 024 \n 277 022 021 002 003 J c \n d l
0007260 005 n 002 : n 001 , l 226 \f \0 \0 \n \0 \0 K
0007300 J g \0 \0 g \0 \0 \f \0 \0 K 006 \0 \0 311 004
0007320 001 c \f d K W 016 \v \0 \0 J \t \0 \0 h 020
0007340 \0 ( 1 6 7 Q G I V E . T T Y .
0007360 P R O C E S S 1 6 3 Q I D L
0007400 D E M O . S H A D E D O U B L E
0007420 I T E M 1 4 3 Q A T T A C H
0007440 M E N U 1 3 0 Q S H A P E W
0007460 1 2 5 Q C R E A T E R E G I
0007500 O N 3 W F R O M D S ) \r ( 1
0007520 4 7 Q M E N U 1 4 0 Q T O
0007540 P 1 3 5 Q R I G H T 5 1 Q
0007560 D E F A U L T M E N U H E L D
0007600 F N 4 2 Q C L R P R O M P T
0007620 2 3 Q I D L D E M O . W H E
0007640 N S E L E C T E D F N 6 004 003
0007660 M E N U T Y P E # ) \r ( 3 3 Q
0007700 " T y p e s c r i p t M e n
0007720 u f o r I D L d e m o "
0007740 1 4 Q ( ( " I n s p e c t L
0007760 o t t e r y d a t a " " ( I
0010000 N S P E C T L O T T E R Y " )
0010020 ( " S e l e c t w i n n i n
0010040 g n u m b e r s " " ( S E T
0010060 Q N U M B E R S I T " ) (
0010100 " H i s t o g r a m o f w i
0010120 n n i n g n u m b e r s " "
0010140 ( H I S T O G R A M N U M B E
0010160 R S N I L % " W i n n i n g
0010200 n u m b e r s % " " ) ( "
0010220 S e l e c t p a y o f f s "
0010240 " ( S E T Q P A Y O F F I
0010260 T " ) ( " H i s t o g r a m
0010300 o f p a y o f f s " " ( S E
0010320 T Q H I S T ( H I S T O G R
0010340 A M P A Y O F F N I L ' P
0010360 a y o f f s ) " ) ( " A d d
0010400 $ 5 0 0 l i n e t o H i
0010420 s t o g r a m " " ( P L O T L
0010440 I N E H I S T N I L 5 0 0
0010460 ' $ 5 0 0 \r \t 2 " ) ( "
0010500 R e l a t e P a y o f f t o
0010520 w i n n i n g n u m b e r "
0010540 " ( S E T Q S C A T ( S C
0010560 A T T E R P L O T ( A S V E C
0010600 T O R * N U M B E R S P A Y
0010620 O F F ) % " W i n n i n g
0010640 N u m b e r s ) " ) ( " R e g
0010660 r e s s p a y o f f o n n
0010700 u m b e r " " ( S E T Q R E
0010720 S U L T ( R E G R E S S P A
0010740 Y O F F ( A D J O I N 1 . 0
0010760 N U M B E R S ) ) " ) ( " I
0011000 n s p e c t r e s u l t " "
0011020 ( I N S P E C T R E S U L T "
0011040 ) ( " A d d t h e r e g r
0011060 e s s i o n l i n e " " ( A
0011100 D D L I N E S S C A T ( R E
0011120 S H A P E ( A S V E C T O R *
0011140 1 2 ) R E S U L T ) " )
0011160 ( " A d d s m o o t h e r t
0011200 o m e n u " " ( P L O T A D
0011220 D M E N U I T E M S S C A T
0011240 ( Q U O T E R I G H T ) \r \t \t
0011260 ( Q U O T E ( ( S m o o t
0011300 h S C A T T E R P L O T . S M
0011320 O O T H ) ) ) " ) ( " S e l e
0011340 c t P a y o f f ' s f o r
0011360 S e c o n d Y e a r " " ( S
0011400 E T Q P A Y O F F 2 ( A T *
0011420 L O T T E R Y 2 ' A L L p
0011440 a y o f f 2 ) " ) ( " S e l
0011460 e c t P a y o f f ' s f o r
0011500 T h i r d Y e a r " " ( S
0011520 E T Q P A Y O F F 3 ( A T *
0011540 L O T T E R Y 2 ' A L L p
0011560 a y o f f 3 ) " ) ( " C o m
0011600 p a r e p a y o f f ' s f o
0011620 r t h r e e y e a r s " "
0011640 ( S E T Q B O X P L O T ( B
0011660 O X P L O T S ( A S V E C T O
0011700 R * P A Y O F F P A Y O F F
0011720 2 P A Y O F F 3 ) ' ( Y e a
0011740 r 1 Y e a r 2 Y e a r 3 )
0011760 ) " ) ( " A d d $ 5 0 0
0012000 m a r k t o B o x p l o t
0012020 s " " ( P L O T L I N E B O
0012040 X P L O T 0 5 0 0 ( Q U O
0012060 T E $ 5 0 0 ) \r \t 2 " ) )
0012100 ) \r I D L D E M O . S H A D E I
0012120 T E M D 1 \r ( P 1 R E G I
0012140 O N 1 P 0 M E N U W I
0012160 2 S H A D E I 1 M E N U
0012200 I 0 I T E M 1 ) \0 . 002 \0
0012220 \0 003 A \t \0 \0 021 001 \0 @ A \n \0 \0 021 001
0012240 001 h d d H I 001 I 002 001 I 002 002 001 I 002
0012260 002 002 001 g \0 \0 g \0 \0 B \r \v \0 \0 020 \0
0012300 ( 5 3 Q B I T B L T 1 3 Q
0012320 M E N U I T E M R E G I O N 3
0012340 W F R O M M E N U ) \r ( 4 6 Q
0012360 I N V E R T 4 3 Q T E X T
0012400 U R E ) \r ( ) \r I D L D E M O .
0012420 W H E N S E L E C T E D F N D
0012440 1 \r ( P 0 F O R M I 2
0012460 B U T T O N I 1 M E N U
0012500 I 0 I T E M F 1 I D L
0012520 D E M O . S H A D E D I T E M
0012540 F 2 S H A D E 1 F 3 I
0012560 D L D E M O . T T Y W I N D O W
0012600 ) \0 6 001 003 \0 003 @ 002 001 021 001 \0 Q A
0012620 R \v \0 \0 S \t \0 \0 H \t \0 \0 @ A 006 \0
0012640 \0 311 004 \n \0 \0 002 001 c 002 d 265 \v A 006 \0
0012660 \0 311 004 001 c 002 A R \v \0 \0 h 020 \0 ( 6
0012700 2 Q I D L D E M O . S H A D E
0012720 I T E M 3 5 Q M E M B 2 3
0012740 Q B K S Y S B U F 1 7 Q G
0012760 I V E . T T Y . P R O C E S S
0013000 1 3 Q I D L D E M O . S H A D
0013020 E I T E M ) \r ( 5 0 Q M E N U
0013040 3 0 Q M E N U ) \r ( ) \r Q U
0013060 A N T I L E - P L O T D 1 \r (
0013100 P 3 O T S T A T S P 2
0013120 T P O I N T S P 1 T E M P
0013140 P 0 M I 1 N I 0
0013160 V E C T O R ) \0 L 004 \0 \0 002 @
0013200 j \n \0 \0 021 001 \0 H o \0 \0 \0 \n \0 \0 021
0013220 001 001 I H k 330 I \v \0 \0 A k 331 I \v \0
0013240 \0 021 001 002 @ d \t \0 \0 \n \0 \0 021 001 003 J
0013260 K \n \0 \0 o \0 \0 \0 A k 331 o \0 \0 \0 \v
0013300 \0 \0 o \0 \0 \0 \v \0 \0 020 \0 ( 1 1 1 Q
0013320 S C A T T E R P L O T 1 0 2
0013340 Q C O N C A T 6 4 Q A S V
0013360 E C T O R * 5 4 Q A T * 5
0013400 1 Q O R D E R 4 1 Q I N V
0013420 - T - D I S T 3 2 Q I D L -
0013440 Q U O T I E N T 1 7 Q G E N
0013460 V E C T O R 4 I D L A R R A
0013500 Y - D I M E N S I O N ) \r N I L
0013520 \r ( 1 0 6 Q " C o m p u t e
0013540 d T - v a l u e s " 7 7 Q
0013560 " d f ' s " 7 0 Q " T o n
0013600 " 1 4 Q 1 . 0 ) \r ( P R E
0013620 T T Y C O M P R I N T I D L -
0013640 T D E M O C O M S ) \r ( R P A Q
0013660 Q I D L - T D E M O C O M S
0013700 ( ( F N S C O M P U T E - T S
0013720 T A T S I D L - T - D E M O
0013740 I D L D E M O . C L E A N U P
0013760 I D L D E M O I D L D E M O .
0014000 S H A D E I T E M \r I D L D E
0014020 M O . W H E N S E L E C T E D F
0014040 N Q U A N T I L E - P L O T )
0014060 ( P ( S E T Q L O T T E R
0014100 Y ( I D L M A T R I X - F R O
0014120 M - L I S T ( R E A D F I L E
0014140 ( Q U O T E \r { Q V } < I D
0014160 L > D A T A > L O T T E R Y 1 .
0014200 D A T A ) ) ) ) ( S E T Q L
0014220 O T T E R Y 2 ( I D L M A T R
0014240 I X - F R O M - L I S T ( R E
0014260 A D F I L E ( Q U O T E \r {
0014300 Q V } < I D L > D A T A > L O T
0014320 T E R Y 2 . D A T A ) ) ) ) (
0014340 S E T Q L O T T E R Y 3 ( I
0014360 D L M A T R I X - F R O M - L I
0014400 S T ( R E A D F I L E ( Q U
0014420 O T E \r { Q V } < I D L > D A
0014440 T A > L O T T E R Y 3 . D A T A
0014460 ) ) ) ) ( T E D I T ( Q U O
0014500 T E { Q V } < I D L > D E M O
0014520 > D E M O S C R I P T . T E D I
0014540 T ) T E D I T W I N D O W ) )
0014560 ) ) \r ( S E T Q L O T T E R Y
0014600 ( I D L M A T R I X - F R O M
0014620 - L I S T ( R E A D F I L E
0014640 ( Q U O T E { Q V } < I D L >
0014660 D A T A > L O T T E R Y 1 . D A
0014700 T A ) ) ) ) \r ( S E T Q L O T
0014720 T E R Y 2 ( I D L M A T R I X
0014740 - F R O M - L I S T ( R E A D
0014760 F I L E ( Q U O T E { Q V }
0015000 < I D L > D A T A > L O T T E R
0015020 Y 2 . D A T A ) ) ) ) \r ( S E T
0015040 Q L O T T E R Y 3 ( I D L M
0015060 A T R I X - F R O M - L I S T
0015100 ( R E A D F I L E ( Q U O T E
0015120 { Q V } < I D L > D A T A > L
0015140 O T T E R Y 3 . D A T A ) ) ) )
0015160 \r ( T E D I T ( Q U O T E {
0015200 Q V } < I D L > D E M O > D E M
0015220 O S C R I P T . T E D I T ) T
0015240 E D I T W I N D O W ) \r ( P U T
0015260 P R O P S I D L - T D E M O
0015300 C O P Y R I G H T ( " X e r o
0015320 x C o r p o r a t i o n " 1
0015340 9 8 6 ) ) \r N I L \r
0015352