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
|
%* -------------------------------------------
%* mathsPIC 2.1
%* Copyright (c) RWD Nickalls 1999-2000
%* Email: dicknickalls@compuserve.com
%* Date (m/d/y) : 11-05-2000 20:59:41
%* Command Line: /b/s MPICM06.M
%* Input Filename: MPICM06.M
%* Output Filename: MPICM06.MT
%* -------------------------------------------
%% mPICm06.m (figure 6)
%% mathsPIC boxed setArrowShape diagram
%\documentclass[a4paper]{article}
%\usepackage{pictexwd}
%\begin{document}
%%-------------------
\beginpicture
%% paper{units(mm),xrange(0,100),yrange(0,70),axes(LBTR)} %, ticks(10,10)}
\setcoordinatesystem units < 1mm, 1mm>
\setplotarea x from 0 to 100, y from 0 to 70
\axis left /
\axis right /
\axis top /
\axis bottom /
%% first do all the small arrows (from top down)
%% point(J11){5,30} ( 5 , 30 )
%% point(J12){20,30} ( 20 , 30 )
%% point(J9){5,25} ( 5 , 25 )
%% point(J10){20,25} ( 20 , 25 )
%% point(J7){5,20} ( 5 , 20 )
%% point(J8){20,20} ( 20 , 20 )
%% point(J5){5,15} ( 5 , 15 )
%% point(J6){20,15} ( 20 , 15 )
%% point(J3){5,10} ( 5 , 10 )
%% point(J4){20,10} ( 20 , 10 )
%% point(J1){5,5} ( 5 , 5 )
%% point(J2){20,5} ( 20 , 5 )
%%
%% arrowshape(6,30,60)
%% drawArrows(J11J12)
\arrow < 6mm> [ .2679492, 1.154701] from 5 30 to 20 30
%% arrowshape(4,30,60)
%% drawArrows(J9J10)
\arrow < 4mm> [ .2679492, 1.154701] from 5 25 to 20 25
%% arrowshape(2,30,60)
%% drawArrows(J7J8)
\arrow < 2mm> [ .2679492, 1.154701] from 5 20 to 20 20
%% arrowshape(6,30,40)
%% drawArrows(J5J6)
\arrow < 6mm> [ .2679492, .7279404] from 5 15 to 20 15
%% arrowshape(4,30,40)
%% drawArrows(J3J4)
\arrow < 4mm> [ .2679492, .7279404] from 5 10 to 20 10
%% arrowshape(2,30,40)
%% drawArrows(J1J2)
\arrow < 2mm> [ .2679492, .7279404] from 5 5 to 20 5
%%
%% text(\texttt{Arrowshape(2,30,40)}){J2,shift(5,0)}[l]
\put {\texttt{Arrowshape(2,30,40)}} [l] at 25 5
%% text(\texttt{Arrowshape(4,30,40)}){J4,shift(5,0)}[l]
\put {\texttt{Arrowshape(4,30,40)}} [l] at 25 10
%% text(\texttt{Arrowshape(6,30,40)}){J6,shift(5,0)}[l]
\put {\texttt{Arrowshape(6,30,40)}} [l] at 25 15
%% text(\texttt{Arrowshape(2,30,60)}){J8,shift(5,0)}[l]
\put {\texttt{Arrowshape(2,30,60)}} [l] at 25 20
%% text(\texttt{Arrowshape(4,30,60)}){J10,shift(5,0)}[l]
\put {\texttt{Arrowshape(4,30,60)}} [l] at 25 25
%% text(\texttt{Arrowshape(6,30,60)}){J12,shift(5,0)}[l]
\put {\texttt{Arrowshape(6,30,60)}} [l] at 25 30
%%
%% now draw big arrow
%% point(D){30,40} ( 30 , 40 )
%% point(A){D,shift(62,0)} ( 92 , 40 )
%% arrowshape(20,50,75)
%% drawArrow(DA)
\arrow < 20mm> [ .4663076, 1.534654] from 30 40 to 92 40
%% point(B1){82,44.75} ( 82 , 44.75 )
%% point(B2){82,35.25} ( 82 , 35.25 )
%% point(C1){72,55} ( 72 , 55 )
%% point(C2){72,25} ( 72 , 25 )
%% drawpoints(DAB1B2C1C2)
\put {$\bullet$} at 30 40 %% D
\put {$\bullet$} at 92 40 %% A
\put {$\bullet$} at 82 44.75 %% B1
\put {$\bullet$} at 82 35.25 %% B2
\put {$\bullet$} at 72 55 %% C1
\put {$\bullet$} at 72 25 %% C2
%% text($A$){A,shift(4,0)}
\put {$A$} at 96 40
%% text($B_1$){B1,shift(3,3)}
\put {$B_1$} at 85 47.75
%% text($B_2$){B2,shift(3,-3)}
\put {$B_2$} at 85 32.25
%% text($C_1$){C1,shift(-4,3)}
\put {$C_1$} at 68 58
%% text($C_2$){C2,shift(0,-4)}
\put {$C_2$} at 72 21
%% text($D$){D,shift(-4,0)}
\put {$D$} at 26 40
%%
%% point(T1){10,63} ( 10 , 63 )
%% point(T2){10,57} ( 10 , 57 )
%% point(T3){10,51} ( 10 , 51 )
%% text(\texttt{Arrowshape($L$,$B$,$C$)}){T1}[l]
\put {\texttt{Arrowshape($L$,$B$,$C$)}} [l] at 10 63
%% text($B$ = \mbox{angle $B_1AB_2$ degrees}){T2}[l]
\put {$B$ = \mbox{angle $B_1AB_2$ degrees}} [l] at 10 57
%% text($C$ = \mbox{angle $C_1AC_2$ degrees}){T3}[l]
\put {$C$ = \mbox{angle $C_1AC_2$ degrees}} [l] at 10 51
%%
\betweenarrows {$L$} from 74 55 to 92 55
\endpicture
%%-------------------
%\end{document}
|