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