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