diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /graphics/mathspic/dos/mpicm04.pic |
Initial commit
Diffstat (limited to 'graphics/mathspic/dos/mpicm04.pic')
-rw-r--r-- | graphics/mathspic/dos/mpicm04.pic | 59 |
1 files changed, 59 insertions, 0 deletions
diff --git a/graphics/mathspic/dos/mpicm04.pic b/graphics/mathspic/dos/mpicm04.pic new file mode 100644 index 0000000000..dade5ea84b --- /dev/null +++ b/graphics/mathspic/dos/mpicm04.pic @@ -0,0 +1,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} |