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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
|
%* -------------------------------------------
%* mathsPIC 2.1
%* Copyright (c) RWD Nickalls 1999-2000
%* Email: dicknickalls@compuserve.com
%* Date (m/d/y) : 11-05-2000 21:16:17
%* Command Line: /b/s MPICM16.M
%* Input Filename: MPICM16.M
%* Output Filename: MPICM16.MT
%* -------------------------------------------
%% mpicm16.m (figure 16)
%\documentclass[a4paper]{article}
%\usepackage{pictexwd}
%\begin{document}
%
\beginpicture
%% variable(U){12} ( 12 ) %% units = 12 mm
%% paper{units(Umm),xRange(0.5,8.5),yRange(-0.5,5.5)}
\setcoordinatesystem units < 12mm, 12mm>
\setplotarea x from .5 to 8.5, y from -.5 to 5.5
%% variable(r){0.7} ( .7 ) %% line-free radius of \circ (0.7mm)
%% variable*(r){r,divide(U)} ( 5.833333E-2 ) %% line free radius scaled for U mm
%% pointsymbol($\circ$,r)
%% Point(A){1,1} ( 1 , 1 )
%% Point(B){2,4} ( 2 , 4 )
%% Point(C){5,3} ( 5 , 3 )
%% Point(D){6,0} ( 6 , 0 )
%% Point(E){8,2} ( 8 , 2 )
%% Point(F){8,5} ( 8 , 5 )
%% Point(G){3,0} ( 3 , 0 )
%% pointsymbol(default) %% restore $\bullet$
%
%% Point(A1){midpoint(AB)} ( 1.5 , 2.5 )
%% Point(B1){midpoint(BC)} ( 3.5 , 3.5 )
%% Point(C1){midpoint(CD)} ( 5.5 , 1.5 )
%% Point(D1){midpoint(DE)} ( 7 , 1 )
%% Point(E1){midpoint(EF)} ( 8 , 3.5 )
%% Point(F1){midpoint(FG)} ( 5.5 , 2.5 )
%% Point(G1){midpoint(GA)} ( 2 , .5 )
%
%% Point(A2){midpoint(G1A1)} ( 1.75 , 1.5 )
%% Point*(A2){midpoint(AA2)} ( 1.375 , 1.25 )
%% Point(B2){midpoint(A1B1)} ( 2.5 , 3 )
%% Point*(B2){midpoint(BB2)} ( 2.25 , 3.5 )
%% Point(C2){midpoint(B1C1)} ( 4.5 , 2.5 )
%% Point*(C2){midpoint(CC2)} ( 4.75 , 2.75 )
%% Point(D2){midpoint(C1D1)} ( 6.25 , 1.25 )
%% Point*(D2){midpoint(DD2)} ( 6.125 , .625 )
%% Point(E2){midpoint(D1E1)} ( 7.5 , 2.25 )
%% Point*(E2){midpoint(EE2)} ( 7.75 , 2.125 )
%% Point(F2){midpoint(E1F1)} ( 6.75 , 3 )
%% Point*(F2){midpoint(FF2)} ( 7.375 , 4 )
%% Point(G2){midpoint(F1G1)} ( 3.75 , 1.5 )
%% Point*(G2){midpoint(GG2)} ( 3.375 , .75 )
%
%% DrawPoints(ABCDEFG)
\put {$\circ$} at 1 1 %% A
\put {$\circ$} at 2 4 %% B
\put {$\circ$} at 5 3 %% C
\put {$\circ$} at 6 0 %% D
\put {$\circ$} at 8 2 %% E
\put {$\circ$} at 8 5 %% F
\put {$\circ$} at 3 0 %% G
%% DrawPoints(A1B1C1D1E1F1G1)
\put {$\bullet$} at 1.5 2.5 %% A1
\put {$\bullet$} at 3.5 3.5 %% B1
\put {$\bullet$} at 5.5 1.5 %% C1
\put {$\bullet$} at 7 1 %% D1
\put {$\bullet$} at 8 3.5 %% E1
\put {$\bullet$} at 5.5 2.5 %% F1
\put {$\bullet$} at 2 .5 %% G1
%% DrawPoints(A2B2C2D2E2F2G2)
\put {$\bullet$} at 1.375 1.25 %% A2
\put {$\bullet$} at 2.25 3.5 %% B2
\put {$\bullet$} at 4.75 2.75 %% C2
\put {$\bullet$} at 6.125 .625 %% D2
\put {$\bullet$} at 7.75 2.125 %% E2
\put {$\bullet$} at 7.375 4 %% F2
\put {$\bullet$} at 3.375 .75 %% G2
%
%% DrawLine(ABCDEFGA)
\plot 1.018447 1.05534 1.981553 3.94466 / %% AB
\plot 2.05534 3.981553 4.94466 3.018447 / %% BC
\plot 5.018446 2.94466 5.981554 +0.05533986 / %% CD
\plot 6.041248 .0412479 7.958752 1.958752 / %% DE
\putrule from 8 2.058333 to 8 4.941667 %% EF
\plot 7.958752 4.958752 3.041248 .0412479 / %% FG
\plot 2.947825 +0.02608746 1.052175 .9739125 / %% GA
\setplotsymbol ({\Large.})
%% DrawCurve(A1B2B1)
\setquadratic
\plot 1.5 2.5 %% A1
2.25 3.5 %% B2
3.5 3.5 / %% B1
\setlinear
%% DrawCurve(B1C2C1)
\setquadratic
\plot 3.5 3.5 %% B1
4.75 2.75 %% C2
5.5 1.5 / %% C1
\setlinear
%% DrawCurve(C1D2D1)
\setquadratic
\plot 5.5 1.5 %% C1
6.125 .625 %% D2
7 1 / %% D1
\setlinear
%% DrawCurve(D1E2E1)
\setquadratic
\plot 7 1 %% D1
7.75 2.125 %% E2
8 3.5 / %% E1
\setlinear
%% DrawCurve(E1F2F1)
\setquadratic
\plot 8 3.5 %% E1
7.375 4 %% F2
5.5 2.5 / %% F1
\setlinear
%% DrawCurve(F1G2G1)
\setquadratic
\plot 5.5 2.5 %% F1
3.375 .75 %% G2
2 .5 / %% G1
\setlinear
%% DrawCurve(G1A2A1)
\setquadratic
\plot 2 .5 %% G1
1.375 1.25 %% A2
1.5 2.5 / %% A1
\setlinear
%
%% text($A$){A,shift(-.2,0)}
\put {$A$} at .8 1
%% text($B$){B,shift(-.2,.1)}
\put {$B$} at 1.8 4.1
%% text($C$){C,shift(0,.25)}
\put {$C$} at 5 3.25
%% text($D$){D,shift(0,-.25)}
\put {$D$} at 6 -.25
%% text($E$){E,shift(.2,0)}
\put {$E$} at 8.2 2
%% text($F$){F,shift(0,.25)}
\put {$F$} at 8 5.25
%% text($G$){G,shift(0,-.25)}
\put {$G$} at 3 -.25
\scriptsize
%% text($A_1$){A1,shift(.25,0)}
\put {$A_1$} at 1.75 2.5
%% text($B_1$){B1,shift(0,-.2)}
\put {$B_1$} at 3.5 3.3
%% text($C_1$){C1,shift(.25,0)}
\put {$C_1$} at 5.75 1.5
%% text($D_1$){D1,shift(-.2,.15)} %
\put {$D_1$} at 6.8 1.15
%% text($E_1$){E1,shift(-.2,0)}
\put {$E_1$} at 7.8 3.5
%% text($F_1$){F1,shift(.15,-.15)}
\put {$F_1$} at 5.65 2.35
%% text($G_1$){G1,shift(.1,.2)}
\put {$G_1$} at 2.1 .7
%% text($A_2$){A2,shift(.25,0)}
\put {$A_2$} at 1.625 1.25
%% text($B_2$){B2,shift(.1,-.2)}
\put {$B_2$} at 2.35 3.3
%% text($C_2$){C2,shift(-.1,-.15)}
\put {$C_2$} at 4.65 2.6
%% text($D_2$){D2,shift(.1,.2)}
\put {$D_2$} at 6.225 .825
%% text($E_2$){E2,shift(-.25,.05)} %
\put {$E_2$} at 7.5 2.175
%% text($F_2$){F2,shift(.05,-.2)} %
\put {$F_2$} at 7.425 3.8
%% text($G_2$){G2,shift(0,.25)} %
\put {$G_2$} at 3.375 1
\endpicture
%\end{document}
|
