summaryrefslogtreecommitdiff
path: root/graphics/mathspic/dos/mpicm04.pic
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /graphics/mathspic/dos/mpicm04.pic
Initial commit
Diffstat (limited to 'graphics/mathspic/dos/mpicm04.pic')
-rw-r--r--graphics/mathspic/dos/mpicm04.pic59
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}