summaryrefslogtreecommitdiff
path: root/graphics/mathspic/dos/mpicm01.pic
blob: d1a027420786fd197e54d424acc0121bbfcf102d (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
%* -------------------------------------------
%* 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}