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
|
%* -------------------------------------------
%* mathsPIC 2.1
%* Copyright (c) RWD Nickalls 1999-2000
%* Email: dicknickalls@compuserve.com
%* Date (m/d/y) : 11-05-2000 20:58:13
%* Command Line: /b/s MPICM05.M
%* Input Filename: MPICM05.M
%* Output Filename: MPICM05.MT
%* -------------------------------------------
%% mPICm05.m (figure 5)
%% mathsPIC rectangular box
%\documentclass[a4paper]{article}
%\usepackage{pictexwd}
%\begin{document}
%%----------------------
\beginpicture
%% paper{units(mm),xrange(0,50),yrange(0,62)}
\setcoordinatesystem units < 1mm, 1mm>
\setplotarea x from 0 to 50, y from 0 to 62
%% variable(s){20} ( 20 ) % Sides front & back
%% variable(L){34} ( 34 ) % Length
%% variable(a2){56.6} ( 56.6 ) % Angle degrees
\def\fancydashes{\setdashpattern <6pt, 2pt, 1pt, 2pt>}
%% point(A){5,7} ( 5 , 7 )
%% point(B){A,polar(s,90)} ( 5 , 27 )
%% point(C){B,polar(s,0)} ( 25 , 27 )
%% point(D){A,polar(s,0)} ( 25 , 7 )
%% point(H){A,polar(L,a2deg)} ( 23.71635 , 35.38483 )
%% point(G){B,polar(L,a2deg)} ( 23.71635 , 55.38483 )
%% point(F){C,polar(L,a2deg)} ( 43.71635 , 55.38483 )
%% point(E){D,polar(L,a2deg)} ( 43.71635 , 35.38483 )
%% drawpoints(ABCDEFGH)
\put {$\bullet$} at 5 7 %% A
\put {$\bullet$} at 5 27 %% B
\put {$\bullet$} at 25 27 %% C
\put {$\bullet$} at 25 7 %% D
\put {$\bullet$} at 43.71635 35.38483 %% E
\put {$\bullet$} at 43.71635 55.38483 %% F
\put {$\bullet$} at 23.71635 55.38483 %% G
\put {$\bullet$} at 23.71635 35.38483 %% H
\linethickness=2pt \setsolid
%% drawlines(ABCDA)
\putrule from 5 7 to 5 27 %% AB
\putrule from 5 27 to 25 27 %% BC
\putrule from 25 27 to 25 7 %% CD
\putrule from 25 7 to 5 7 %% DA
\setdashes
%% drawlines(HGFEH)
\putrule from 23.71635 35.38483 to 23.71635 55.38483 %% HG
\putrule from 23.71635 55.38483 to 43.71635 55.38483 %% GF
\putrule from 43.71635 55.38483 to 43.71635 35.38483 %% FE
\putrule from 43.71635 35.38483 to 23.71635 35.38483 %% EH
\linethickness=0.4pt \fancydashes
%% drawlines(AH,BG,CF,DE)
\plot 5 7 23.71635 35.38483 / %% AH
\plot 5 27 23.71635 55.38483 / %% BG
\plot 25 27 43.71635 55.38483 / %% CF
\plot 25 7 43.71635 35.38483 / %% DE
%% text($A$){A,shift(-2,-4)}
\put {$A$} at 3 3
%% text($B$){B,shift(-4,1)}
\put {$B$} at 1 28
%% text($C$){C,shift(4,0)}
\put {$C$} at 29 27
%% text($D$){D,shift(1,-4)}
\put {$D$} at 26 3
%% text($E$){E,shift(4,0)}
\put {$E$} at 47.71635 35.38483
%% text($F$){F,shift(2,4)}
\put {$F$} at 45.71635 59.38483
%% text($G$){G,shift(-1,4)}
\put {$G$} at 22.71635 59.38483
%% text($H$){H,shift(-4,1)}
\put {$H$} at 19.71635 36.38483
\endpicture
%%-------------------
%\end{document}
|
