$ od -c -N 50000 [eris]<Lisp>KOTO>LISPUSERS>PLOTEXAMPLES.TEDIT!1 0000000 X E R O X \t P L O T E X A M P L 0000020 E S \r 2 \r \r 4 \r \r 1 \r \r P L O T 0000040 E X A M P L E S \r 1 \r \r 4 \r \r 0000060 B y : J a n P e d e r s e 0000100 n ( P e d e r s e n . P A @ 0000120 X e r o x . c o m ) \r u s e d 0000140 i n c o n j u n c t i o n 0000160 w i t h P L O T \r T h i s p 0000200 a c k a g e c o n t a i n s 0000220 t w o e x a m p l e s o f 0000240 h o w P L O T m i g h t 0000260 b e u s e d t o p r o d u 0000300 c e h i g h l e v e l p l 0000320 o t t i n g f a c i l i t i e 0000340 s . T h e f i r s t e x a 0000360 m p l e i s a h i s t o g 0000400 r a m p r i m i t i v e , a 0000420 n d t h e s e c o n d i s 0000440 a s c a t t e r p l o t t e 0000460 r . T h e c o d e i s c 0000500 o m m e n t e d , a n d e x 0000520 p l o i t s m o s t o f t 0000540 h e f a c i l i t i e s i n 0000560 P L O T . T h e s c a t t 0000600 e r p l o t e x a m p l e i 0000620 s t h e s i m p l e r o f 0000640 t h e t w o , a n d i s 0000660 s u g g e s t e d a s a 0000700 s t a r t i n g p o i n t . \r 0000720 ( S C A T P L O T y x 0000740 p o i n t l a b e l s y l 0000760 a b e l x l a b e l t i 0001000 t l e s y m b o l ) \t [ F u 0001020 n c t i o n ] \r G e n e r a t e 0001040 s o f a s c a t t e r p l 0001060 o t o f y v s x w h i 0001100 c h a r e n u m e r i c l 0001120 i s t s o f e q u a l l e 0001140 n g t h . I f x i n N I 0001160 L , t h e n y i s p l o 0001200 t t e d v s t h e i n t e 0001220 g e r s f r o m 1 t o ( 0001240 L E N G T H y ) . P o i n t 0001260 l a b e l s i s a l i s t 0001300 o f l a b e l s , o n e 0001320 f o r e a c h p o i n t p 0001340 l o t t e d . Y l a b e l a 0001360 n d x l a b e l a r e l a 0001400 b e l s f o r t h e x a 0001420 n d y a x i s r e s p e c 0001440 t i v e l y . T i t l e i s 0001460 a t i t l e f o r t h e 0001500 s c a t t e r p l o t . S y 0001520 m b o l i s t h e p l o t 0001540 t i n g s y m b o l t o u 0001560 s e , m u s t b e a B I 0001600 T M A P ; d e f a u l t s t 0001620 o S T A R . \r R e t u r n s 0001640 a P L O T . \r ( H I S T P L O 0001660 T b a t c h l a b e l s h 0001700 a d e ) \t [ F u n c t i o n ] \r 0001720 B a t c h i s a l i s t 0001740 o f n u m b e r s , o r a 0001760 l i s t o f p a i r s ( 0002000 n u m b e r . f r e q u e n 0002020 c y ) w h o s e h i s t o g 0002040 r a m w i l l b e d i s p 0002060 l a y e d . L a b e l i s 0002100 a n o p t i o n a l l a b e 0002120 l f o r t h o s e n u m b 0002140 e r s . S h a d e i s a 0002160 s h a d e t o u s e t o 0002200 f i l l t h e b a r s o f 0002220 t h e h i s t o g r a m ( 0002240 d e f a u l t s t o S H A D 0002260 E 3 ) . T h e c a s e o f 0002300 a l l e n t r i e s i n 0002320 b a t c h b e i n g i n t e 0002340 g e r s i s t r e a t e d 0002360 s p e c i a l l y . \r R e t u 0002400 r n s a P L O T . \0 \0 \0 \0 \0 0002420 003 ( L I S T ( ( P A G E N I 0002440 L ( P A P E R S I Z E L e t 0002460 t e r F O L I O I N F O ( A 0002500 R A B I C ) S T A R T I N G P 0002520 A G E # 1 ) ( 0 0 6 1 2 0002540 7 9 2 ) ( ( F O L I O N I 0002560 L ( P A R A L O O K S ( Q U 0002600 A D C E N T E R E D ) C H A 0002620 R L O O K S ( S U P E R S C R 0002640 I P T 0 I N V I S I B L E 0002660 O F F S E L E C T P O I N T 0002700 O F F P R O T E C T E D O F 0002720 F S I Z E 1 0 F A M I L Y 0002740 M O D E R N O V E R L I N E 0002760 O F F S T R I K E O U T O 0003000 F F U N D E R L I N E O F F 0003020 E X P A N S I O N R E G U L 0003040 A R S L O P E R E G U L A R 0003060 W E I G H T M E D I U M I 0003100 N V E R T E D O F F U S E R 0003120 I N F O N I L S T Y L E N 0003140 I L ) F O R M A T I N F O ( 0003160 A R A B I C ) ) ( 1 7 4 3 6 0003200 2 8 8 3 6 ) N I L ) ( H 0003220 E A D I N G N I L ( H E A D 0003240 I N G T Y P E R U N N I N G H 0003260 E A D ) ( 8 4 7 4 4 5 2 8 0003300 3 6 ) N I L ) ( T E X T 0003320 N I L N I L ( 8 4 9 6 4 0003340 5 6 6 0 0 ) N I L ) ) ) ( 0003360 P A G E N I L ( P A P E R S 0003400 I Z E L e t t e r F O L I O 0003420 I N F O ( A R A B I C ) S T 0003440 A R T I N G P A G E # N I L ) 0003460 ( 0 0 6 1 2 7 9 2 ) ( 0003500 ( F O L I O N I L ( P A R A 0003520 L O O K S ( Q U A D C E N T 0003540 E R E D ) C H A R L O O K S 0003560 ( S U P E R S C R I P T 0 I 0003600 N V I S I B L E O F F S E L 0003620 E C T P O I N T O F F P R O 0003640 T E C T E D O F F S I Z E 0003660 1 0 F A M I L Y M O D E R N 0003700 O V E R L I N E O F F S T 0003720 R I K E O U T O F F U N D E 0003740 R L I N E O F F E X P A N S 0003760 I O N R E G U L A R S L O P 0004000 E R E G U L A R W E I G H T 0004020 M E D I U M I N V E R T E D 0004040 O F F U S E R I N F O N I 0004060 L S T Y L E N I L ) F O R 0004100 M A T I N F O ( A R A B I C ) 0004120 ) ( 1 7 4 3 6 2 8 8 3 6 0004140 ) N I L ) ( H E A D I N G 0004160 N I L ( H E A D I N G T Y P E 0004200 R U N N I N G H E A D ) ( 8 0004220 4 7 4 4 5 2 8 3 6 ) N I 0004240 L ) ( T E X T N I L N I L 0004260 ( 8 4 9 6 4 5 6 6 0 0 ) 0004300 N I L ) ) ) ( P A G E N I 0004320 L ( P A P E R S I Z E L e t 0004340 t e r F O L I O I N F O ( A 0004360 R A B I C ) S T A R T I N G P 0004400 A G E # N I L ) ( 0 0 6 0004420 1 2 7 9 2 ) ( ( F O L I O 0004440 N I L ( P A R A L O O K S ( 0004460 Q U A D C E N T E R E D ) C 0004500 H A R L O O K S ( S U P E R S 0004520 C R I P T 0 I N V I S I B L 0004540 E O F F S E L E C T P O I N 0004560 T O F F P R O T E C T E D 0004600 O F F S I Z E 1 0 F A M I 0004620 L Y M O D E R N O V E R L I 0004640 N E O F F S T R I K E O U T 0004660 O F F U N D E R L I N E O 0004700 F F E X P A N S I O N R E G 0004720 U L A R S L O P E R E G U L 0004740 A R W E I G H T M E D I U M 0004760 I N V E R T E D O F F U S 0005000 E R I N F O N I L S T Y L E 0005020 N I L ) F O R M A T I N F O 0005040 ( A R A B I C ) ) ( 1 7 4 0005060 3 6 2 8 8 3 6 ) N I L ) 0005100 ( H E A D I N G N I L ( H E 0005120 A D I N G T Y P E R U N N I N 0005140 G H E A D ) ( 8 4 7 4 4 5 0005160 2 8 3 6 ) N I L ) ( T E X 0005200 T N I L N I L ( 8 4 9 6 0005220 4 5 6 6 0 0 ) N I L ) ) ) 0005240 ) ) \0 \0 \0 \0 \0 005 \0 005 \0 ( \0 \0 \0 \0 0005260 001 310 \0 021 \0 \0 \0 004 002 003 \0 \0 \0 \0 \0 \0 0005300 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0005320 \0 \0 \0 ( \0 212 \0 212 001 8 \0 006 \0 \0 \0 004 0005340 002 003 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0005360 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 ( \0 212 \0 212 0005400 001 8 \0 \0 \0 \0 \0 004 002 004 \0 \0 \0 \0 \0 \0 0005420 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0005440 \0 \0 \0 D \0 \0 \0 \0 001 310 \0 \0 \0 \0 \0 \0 0005460 003 004 \0 \0 001 001 310 001 \0 \0 \0 \0 \0 \0 \0 \v 0005500 P A G E H E A D I N G \0 \v R U N 0005520 N I N G H E A D \0 \0 \0 \0 \0 \0 \0 \0 0005540 \0 \0 \0 \0 \0 \0 \0 1 \0 \0 \0 \0 001 310 \0 \v 0005560 \0 \0 \0 004 003 004 \0 \0 002 001 274 001 001 310 001 \0 0005600 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0005620 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 004 \0 005 \0 0005640 024 \0 006 M O D E R N \0 \n \0 \0 \0 \0 \0 0005660 \0 001 \0 \0 024 \0 006 M O D E R N \0 \f \0 0005700 \0 \0 \0 \0 \0 002 \0 \0 024 \0 006 M O D E R 0005720 N \0 006 \0 \0 \0 \0 \0 \0 \0 \0 \0 022 \0 004 L 0005740 O G O \0 030 \0 \0 \0 \0 \0 \0 \0 \0 \0 024 \0 0005760 006 M O D E R N \0 \n \0 \0 \0 \0 \0 \0 \0 0006000 \0 \0 \0 \0 \0 \0 002 \0 004 \0 \0 \0 005 \0 \0 \0 0006020 \0 004 \0 \0 \0 001 \0 \0 \0 \0 003 \0 \0 \0 \r \0 0006040 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 004 \0 \0 \0 002 0006060 \0 001 \0 \v H R U L E . G E T F N 001 0006100 \0 024 \0 006 M O D E R N \0 \n \0 \0 \0 \0 0006120 \0 \0 \0 \0 \0 \0 \0 001 \0 \0 \0 \0 005 \0 \0 \0 0006140 \0 \0 002 \0 003 \0 \0 \0 002 \0 001 \0 \v H R U 0006160 L E . G E T F N 001 \0 024 \0 006 M O D 0006200 E R N \0 \n \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0006220 001 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 003 \0 \0 0006240 \0 002 \0 001 \0 \v H R U L E . G E T F 0006260 N 001 \0 024 \0 006 M O D E R N \0 \n \0 \0 0006300 \0 \0 \0 \0 \0 \0 \0 \0 \0 001 \0 \0 \0 \0 005 \0 0006320 \0 \0 \0 \0 002 \0 002 \0 \0 \0 016 \0 \0 \0 \0 002 0006340 \0 \0 \0 \0 \0 002 \0 002 \0 \0 \0 002 \0 001 \0 \v 0006360 H R U L E . G E T F N 001 \0 024 \0 006 0006400 M O D E R N \0 \f \0 \0 \0 \0 \0 \0 002 \0 0006420 \0 \0 \0 001 \0 \0 \0 \0 002 \0 \0 \0 \0 \0 002 \0 0006440 003 \0 \0 \0 002 \0 001 \0 \v H R U L E . G 0006460 E T F N 001 \0 024 \0 006 M O D E R N \0 0006500 \f \0 \0 \0 \0 \0 \0 002 \0 \0 \0 \0 001 \0 \0 \0 0006520 \0 002 \0 \0 \0 \0 \0 002 \0 001 \0 \0 \0 , \0 \0 0006540 \0 \0 005 \0 \0 \0 \0 \0 002 \0 001 \0 \0 \0 036 \0 0006560 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 005 \0 \0 001 V 0006600 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 005 \0 \0 \0 0006620 \v \0 \0 \0 \0 005 \0 \0 \0 0 \0 \0 \0 \0 001 \0 0006640 \0 \0 \r \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 005 0006660 \0 \0 001 200 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 0006700 005 \0 \0 \0 020 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 0006720 \0 005 \0 \0 \0 \n \0 \0 \0 \0 005 \0 \0 \0 021 \0 0006740 \0 \0 \0 001 \0 \0 \0 \r \0 \0 \0 \0 005 \0 \0 \0 0006760 \0 \0 002 \0 005 \0 \0 001 , \0 \0 \0 \0 005 \0 \0 0007000 \0 \0 \0 002 \0 005 \0 \0 \0 017 \0 \0 \0 \0 005 \0 0007020 \0 005 \v \0 , z 272 0007027