summaryrefslogtreecommitdiff
path: root/graphics/mathspic/dos/mpicm11.pic
blob: 43698069c348ccf26f3c2cb216860dc98703b962 (plain)
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
%* -------------------------------------------
%* mathsPIC 2.1
%* Copyright (c) RWD Nickalls 1999-2000
%* Email: dicknickalls@compuserve.com
%* Date (m/d/y) : 11-05-2000  21:08:12
%* Command Line: /b/s  MPICM11.M
%* Input Filename:  MPICM11.M
%* Output Filename: MPICM11.MT
%* -------------------------------------------
%% mpicm11.m (Figure 11)
%\documentclass[a4paper]{article}
%\usepackage{pictexwd}
%\begin{document}
\beginpicture
\setdashes
%% paper{units(mm),xrange(0,70),yrange(0,60),axes(LBT*R*),ticks(10,10)}  
\setcoordinatesystem units < 1mm, 1mm>
\setplotarea x from  0 to  70, y from  0 to  60
\axis left ticks numbered from  0 to  60 by  10  /
\axis right / 
\axis top / 
\axis bottom ticks numbered from  0 to  70 by  10  /
\setsolid
%% point(A){10,10}  ( 10 , 10 )  %% anchor point
%% point(B){A,polar(50,50deg)}  ( 42.13938 , 48.30222 )  
%% point(C){A,polar(50,0deg)}  ( 60 , 10 )  
%% point(J){pointonline(AB,30)}  ( 29.28363 , 32.98133 )  
%% point(K){perpendicular(J,AC)}  ( 29.28363 , 10 )  
%% drawRightangle(JKC,3)  
\plot   32.28363  10     32.28363  13   /
\plot   29.28363  13     32.28363  13   /
%% drawLines(AB,AC,JK)  
\plot   10  10     42.13938  48.30222 /  %% AB
\putrule from   10  10 to  60  10  %% AC
\putrule from   29.28363  32.98133 to  29.28363  10  %% JK
%% drawIncircle(AJK)  
%% Incircle centre =  23.15115 , 16.13248 ;  TrueRadius =  6.132483 [ 6.132483 ]
\circulararc 360 degrees from  29.28363  16.13248 center at  23.15115  16.13248
%% drawExcircle(AJK,JK)  
%% Excircle centre =  46.13249 , 26.84886 ;  TrueRadius =  16.84886 [ 16.84886 ]
\circulararc 360 degrees from  62.98135  26.84886 center at  46.13249  26.84886
\setplotsymbol({\large .})
\setdots
%% drawCircumcircle(AJK)  
%% circumcircle centre =  19.64182 , 21.49067 ;  Radius =  15 
\circulararc 360 degrees from  34.64181  21.49067 center at  19.64182  21.49067
%% point(I){IncircleCenter(AJK)}[$\odot$]  ( 23.15115 , 16.13248 )  
%% point(E){ExcircleCenter(AJK,JK)}[$\odot$,1.2]  ( 46.13249 , 26.84886 )  
%% point(P1){perpendicular(E,AC)}  ( 46.13249 , 10 )  
%% variable(r){EP1}  ( 16.84886 )  %% radius of excircle
%% variable(d){72}  ( 72 )  %% angle of pentagon (deg)
%% variable(a1){-90}  (-90 )  
%% variable(a2){a1,advance(d)}  (-18 )  
%% variable(a3){a2,advance(d)}  ( 54 )  
%% variable(a4){a3,advance(d)}  ( 126 )  
%% variable(a5){a4,advance(d)}  ( 198 )  
%% point(P2){E,polar(r,a2)}  ( 62.1567 , 21.64227 )  
%% point(P3){E,polar(r,a3)}  ( 56.036 , 40.47987 )  
%% point(P4){E,polar(r,a4)}  ( 36.22898 , 40.47987 )  
%% point(P5){E,polar(r,a5)}  ( 30.10827 , 21.64227 )  
%% drawPoints(ABCJKIEP1P2P3P4P5)  
\put {$\bullet$} at  10  10  %% A
\put {$\bullet$} at  42.13938  48.30222  %% B
\put {$\bullet$} at  60  10  %% C
\put {$\bullet$} at  29.28363  32.98133  %% J
\put {$\bullet$} at  29.28363  10  %% K
\put {$\odot$} at  23.15115  16.13248  %% I
\put {$\odot$} at  46.13249  26.84886  %% E
\put {$\bullet$} at  46.13249  10  %% P1
\put {$\bullet$} at  62.1567  21.64227  %% P2
\put {$\bullet$} at  56.036  40.47987  %% P3
\put {$\bullet$} at  36.22898  40.47987  %% P4
\put {$\bullet$} at  30.10827  21.64227  %% P5
\setplotsymbol({\tiny .})
\setdashes
%% drawline(P1P2P3P4P5P1,EP1,EP2)  
\plot   46.13249  10     62.1567  21.64227 /  %% P1P2
\plot   62.1567  21.64227     56.036  40.47987 /  %% P2P3
\putrule from   56.036  40.47987 to  36.22898  40.47987  %% P3P4
\plot   36.22898  40.47987     30.10827  21.64227 /  %% P4P5
\plot   30.10827  21.64227     46.13249  10 /  %% P5P1
\putrule from   46.13249  25.64886 to  46.13249  10  %% EP1
\plot   47.27376  26.47803     62.1567  21.64227 /  %% EP2
\setsolid
%% drawAnglearc{angle(P2EP1),radius(9),internal,clockwise}  
\circulararc -71.99998 degrees from  54.692  24.0677 center at  46.13249  26.84886
\newcommand{\figtitle}{%
   \fbox{%
   \begin{minipage}{30mm}%
   Triangle, pentagon and three circles%
   \end{minipage}%
   }}%
%% text(\figtitle){20,52}  
\put {\figtitle} at  20  52
%% variable(s){5}  ( 5 )  
%% text($A$){A,polar(s,230deg)}  
\put {$A$} at  6.786062  6.169777
%% text($B$){B,polar(s,50deg)}  
\put {$B$} at  45.35332  52.13245
%% text($C$){C,polar(s,0deg)}  
\put {$C$} at  65  10
%% text($J$){J,polar(s,90deg)}  
\put {$J$} at  29.28363  37.98133
%% text($K$){K,polar(s,270deg)}  
\put {$K$} at  29.28363  5
%% text($E$){E,polar(s,a3deg)}  
\put {$E$} at  49.07141  30.89394
%% text($72$){E,polar(5.5,-54deg)}  
\put {$72$} at  49.36531  22.39926
%% text($I$){I,shift(3,0)}  
\put {$I$} at  26.15115  16.13248
%% text($P_1$){P1,polar(s,a1)}  
\put {$P_1$} at  46.13249  5
%% text($P_2$){P2,polar(s,a2)}  
\put {$P_2$} at  66.91198  20.09719
%% text($P_3$){P3,polar(s,a3)}  
\put {$P_3$} at  58.97492  44.52495
\endpicture
%\end{document}