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
|
%* -------------------------------------------
%* mathsPIC 2.1
%* Copyright (c) RWD Nickalls 1999-2000
%* Email: dicknickalls@compuserve.com
%* Date (m/d/y) : 11-05-2000 20:46:50
%* Command Line: /b/s MPICM01.M
%* Input Filename: MPICM01.M
%* Output Filename: MPICM01.MT
%* -------------------------------------------
%% mPICm01.m (figure 1)
%% mathsPIC (smallTriangle with incircle)
%%-------------------
%\documentclass[a4paper]{article}
%\usepackage{pictexwd}
%\begin{document}
%%---------------------
\beginpicture
%% paper{units(cm)xrange(0,5),yrange(0,2.5)}
\setcoordinatesystem units < 1cm, 1cm>
\setplotarea x from 0 to 5, y from 0 to 2.5
%% point(A){0,0} ( 0 , 0 )
%% point(B){A,polar(5,10deg)} ( 4.924039 , .8682409 )
%% point(C){A,polar(3,50deg)} ( 1.928363 , 2.298133 )
%% drawpoint(ABC)
\put {$\bullet$} at 0 0 %% A
\put {$\bullet$} at 4.924039 .8682409 %% B
\put {$\bullet$} at 1.928363 2.298133 %% C
%% drawTriangle(ABC)
\plot 0 0 4.924039 .8682409 / %% AB
\plot 4.924039 .8682409 1.928363 2.298133 / %% BC
\plot 1.928363 2.298133 0 0 / %% CA
%% drawIncircle(ABC)
%% Incircle centre = 2.156815 , 1.245238 ; TrueRadius = .8517928 [ .8517928 ]
\circulararc 360 degrees from 3.008607 1.245238 center at 2.156815 1.245238
%% variable(d){0.5} ( .5 )
%% text($A$){A,shift(-d,0)}
\put {$A$} at -.5 0
%% text($B$){B,shift(d,0)}
\put {$B$} at 5.424039 .8682409
%% text($C$){C,shift(-d,0)}
\put {$C$} at 1.428363 2.298133
\endpicture
%%-----------------
%\end{document}
|