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}
|