summaryrefslogtreecommitdiff
path: root/graphics/mathspic/dos/mpicm08a.pic
blob: 885fb808398e72d85fbdc22e1838b315f52b1748 (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
%* -------------------------------------------
%* mathsPIC 2.1
%* Copyright (c) RWD Nickalls 1999-2000
%* Email: dicknickalls@compuserve.com
%* Date (m/d/y) : 11-05-2000  21:02:19
%* Command Line: /b/s  MPICM08A.M
%* Input Filename:  MPICM08A.M
%* Output Filename: MPICM08A.MT
%* -------------------------------------------
%% mPICm08a.m (figure 8a)
%\documentclass[a4paper]{article}
%\usepackage{pictexwd}
%\begin{document}
%\framebox{\vbox{
%%-------------------
\beginpicture
%% paper{units(mm),xrange(10,40),yrange(0,45)}  %, axes(LB), ticks(10,10)}
\setcoordinatesystem units < 1mm, 1mm>
\setplotarea x from  10 to  40, y from  0 to  45
%% point(N){15,20}  ( 15 , 20 )  
%% point(S){N,shift(20,0)}  ( 35 , 20 )  
%% text(\framebox{$N$}){N,shift(0,-2.5)}  
\put {\framebox{$N$}} at  15  17.5
%% text(\framebox{$S$}){S,shift(0,-2.5)}  
\put {\framebox{$S$}} at  35  17.5
%% point(Z){midpoint(NS)}  ( 25 , 20 )  
%% drawAngleArrow{angle(NZS),radius(NZ),clockwise,internal}  
\circulararc -180 degrees from  15  20 center at  25  20
\arrow <1.5mm>  [0.5, 1] from   34.95   20.99875 to  35  20
%% point(N1){N,shift(2,1)}  ( 17 , 21 )  
%% point(S1){S,shift(-2,1)}  ( 33 , 21 )  
%% point(Z1){Z,shift(0,-3)}  ( 25 , 17 )  
%% drawAngleArrow{angle(N1Z1S1),radius(N1Z1),clockwise,internal}  
\circulararc -126.8699 degrees from  17  21 center at  25  17
\arrow <1.5mm>  [0.5, 1] from   32.50349   21.86803 to  33  21
%% point(N2){N1,shift(2,-0.5)}  ( 19 , 20.5 )  
%% point(S2){S1,shift(-2,-0.5)}  ( 31 , 20.5 )  
%% point(Z2){Z,shift(0,-10)}  ( 25 , 10 )  
%% drawAngleArrow{angle(N2Z2S2),radius(N2Z2),clockwise,internal}  
\circulararc -59.48976 degrees from  19  20.5 center at  25  10
\arrow <1.5mm>  [0.5, 1] from   30.11199   20.95982 to  31  20.5
\endpicture
%\  }}
%\end{document}