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