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