diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /graphics/mathspic/dos/mpicm03.pic |
Initial commit
Diffstat (limited to 'graphics/mathspic/dos/mpicm03.pic')
-rw-r--r-- | graphics/mathspic/dos/mpicm03.pic | 54 |
1 files changed, 54 insertions, 0 deletions
diff --git a/graphics/mathspic/dos/mpicm03.pic b/graphics/mathspic/dos/mpicm03.pic new file mode 100644 index 0000000000..bd7a056a8e --- /dev/null +++ b/graphics/mathspic/dos/mpicm03.pic @@ -0,0 +1,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} |