%* ------------------------------------------- %* 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}