summaryrefslogtreecommitdiff
path: root/graphics/mathspic/dos/mpicm03.pic
blob: bd7a056a8ebe19646cb65fc25cf9566d02dc4514 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
%* -------------------------------------------
%* mathsPIC 2.1
%* Copyright (c) RWD Nickalls 1999-2000
%* Email: dicknickalls@compuserve.com
%* Date (m/d/y) : 11-05-2000  20:55:19
%* Command Line: /b/s  MPICM03.M
%* Input Filename:  MPICM03.M
%* Output Filename: MPICM03.MT
%* -------------------------------------------
%% mpicm03.m (Figure 3)
%\documentclass[a4paper]{article}
%\usepackage{pictexwd}
%\begin{document}
%%-----------
\beginpicture
%% paper{units(cm),xrange(0,6),yrange(0,3),axes(LBT*R*),ticks(1,1)}  
\setcoordinatesystem units < 1cm, 1cm>
\setplotarea x from  0 to  6, y from  0 to  3
\axis left ticks numbered from  0 to  3 by  1  /
\axis right / 
\axis top / 
\axis bottom ticks numbered from  0 to  6 by  1  /
%% point(P){4,2}[$\odot$]  ( 4 , 2 )  
%% point(B){2,0.5}  ( 2 , .5 )  
%% point(S){1,2}  ( 1 , 2 )  
%% drawPoints(PBS)  
\put {$\odot$} at  4  2  %% P
\put {$\bullet$} at  2  .5  %% B
\put {$\bullet$} at  1  2  %% S
\setdashes
\inboundscheckon        %% restrict circles to drawing area
%% drawcircle(P,1)    
\circulararc 360 degrees from  5  2 center at  4  2
%% drawcircle(P,2)    
\circulararc 360 degrees from  6  2 center at  4  2
\setsolid
%% point*(P){P}[,1]  ( 4 , 2 )  %% set line-free radius  of P to 1cm
%% drawArrow(BP)  %% draw arrow from B (below)
\arrow < 2mm>  [ .2679492, .7279404] from   2  .5 to  3.2  1.4
%% point*(P){P}[,2]  ( 4 , 2 )  %% change line-free radius of P to 2cm
%% drawArrow(SP)  %% draw arrow from S (side)
\arrow < 2mm>  [ .2679492, .7279404] from   1  2 to  2  2
%% text($S$){S,shift(-0.4,0)}  
\put {$S$} at  .6  2
%% text($B$){B,shift(-0.4,0)}  
\put {$B$} at  1.6  .5
%% text(\textsc{p}){P,shift(0.3,0)}  
\put {\textsc{p}} at  4.3  2
\newcommand{\textbox}{\fbox{text\hspace{17mm}box}}%
%% text(\textbox){P}  
\put {\textbox} at  4  2
\endpicture
%%--------
%\end{document}