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