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
|
%* -------------------------------------------
%* mathsPIC 2.1
%* Copyright (c) RWD Nickalls 1999-2000
%* Email: dicknickalls@compuserve.com
%* Date (m/d/y) : 11-05-2000 20:56:58
%* Command Line: /b/s MPICM04.M
%* Input Filename: MPICM04.M
%* Output Filename: MPICM04.MT
%* -------------------------------------------
%% mPICm04.m (figure 4)
%% mathsPIC triangle
%\documentclass[a4paper]{article}
%\usepackage{pictexwd}
%\begin{document}
%%-------------------
\beginpicture
\setdashes
%% paper{units(mm),xrange(0,70),yrange(0,50),axes(LRTB),ticks(10,10)}
\setcoordinatesystem units < 1mm, 1mm>
\setplotarea x from 0 to 70, y from 0 to 50
\axis left ticks numbered from 0 to 50 by 10 /
\axis right ticks numbered from 0 to 50 by 10 /
\axis top ticks numbered from 0 to 70 by 10 /
\axis bottom ticks numbered from 0 to 70 by 10 /
\setsolid
%% point(A){10,10}[$\odot$,1.2] ( 10 , 10 ) %% anchor point
%% point(B){A,polar(40,50deg)}[$\odot$,1.2] ( 35.7115 , 40.64178 )
%% point(C){A,polar(50,10deg)}[$\odot$,1.2] ( 59.24039 , 18.68241 )
%% point(D){perpendicular(B,AC)} ( 40.17626 , 15.32089 )
%% drawPoints(ABCD)
\put {$\odot$} at 10 10 %% A
\put {$\odot$} at 35.7115 40.64178 %% B
\put {$\odot$} at 59.24039 18.68241 %% C
\put {$\bullet$} at 40.17626 15.32089 %% D
%% drawLine(ABCA)
\plot 10.77135 10.91925 34.94016 39.72252 / %% AB
\plot 36.58879 39.82301 58.3631 19.50117 / %% BC
\plot 58.05862 18.47403 11.18177 10.20838 / %% CA
\setdashes
%% drawLine(BD)
\plot 35.91988 39.46001 40.17626 15.32089 / %% BD
\setsolid
%% drawRightangle(BDC,2.5)
\plot 42.63828 15.75501 42.20416 18.21703 /
\plot 39.74214 17.78291 42.20416 18.21703 /
%% text($B$){B,shift(-1,4)}
\put {$B$} at 34.7115 44.64178
%% text($A$){A,shift(-4,-2)}
\put {$A$} at 6 8
%% text($C$){C,shift(4,-1)}
\put {$C$} at 63.24039 17.68241
%% text($D$){D,shift(1,-4)}
\put {$D$} at 41.17626 11.32089
%% showLength(BD) 25.7115
%% showLength(AC) 50
%% showArea(ABC) 642.7875
\endpicture
%%------------------
%\end{document}
|
