summaryrefslogtreecommitdiff
path: root/graphics/mathspic/dos/mpicm06.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/mpicm06.pic
Initial commit
Diffstat (limited to 'graphics/mathspic/dos/mpicm06.pic')
-rw-r--r--graphics/mathspic/dos/mpicm06.pic113
1 files changed, 113 insertions, 0 deletions
diff --git a/graphics/mathspic/dos/mpicm06.pic b/graphics/mathspic/dos/mpicm06.pic
new file mode 100644
index 0000000000..4794e7d6ed
--- /dev/null
+++ b/graphics/mathspic/dos/mpicm06.pic
@@ -0,0 +1,113 @@
+%* -------------------------------------------
+%* mathsPIC 2.1
+%* Copyright (c) RWD Nickalls 1999-2000
+%* Email: dicknickalls@compuserve.com
+%* Date (m/d/y) : 11-05-2000 20:59:41
+%* Command Line: /b/s MPICM06.M
+%* Input Filename: MPICM06.M
+%* Output Filename: MPICM06.MT
+%* -------------------------------------------
+%% mPICm06.m (figure 6)
+%% mathsPIC boxed setArrowShape diagram
+%\documentclass[a4paper]{article}
+%\usepackage{pictexwd}
+%\begin{document}
+%%-------------------
+\beginpicture
+%% paper{units(mm),xrange(0,100),yrange(0,70),axes(LBTR)} %, ticks(10,10)}
+\setcoordinatesystem units < 1mm, 1mm>
+\setplotarea x from 0 to 100, y from 0 to 70
+\axis left /
+\axis right /
+\axis top /
+\axis bottom /
+%% first do all the small arrows (from top down)
+%% point(J11){5,30} ( 5 , 30 )
+%% point(J12){20,30} ( 20 , 30 )
+%% point(J9){5,25} ( 5 , 25 )
+%% point(J10){20,25} ( 20 , 25 )
+%% point(J7){5,20} ( 5 , 20 )
+%% point(J8){20,20} ( 20 , 20 )
+%% point(J5){5,15} ( 5 , 15 )
+%% point(J6){20,15} ( 20 , 15 )
+%% point(J3){5,10} ( 5 , 10 )
+%% point(J4){20,10} ( 20 , 10 )
+%% point(J1){5,5} ( 5 , 5 )
+%% point(J2){20,5} ( 20 , 5 )
+%%
+%% arrowshape(6,30,60)
+%% drawArrows(J11J12)
+\arrow < 6mm> [ .2679492, 1.154701] from 5 30 to 20 30
+%% arrowshape(4,30,60)
+%% drawArrows(J9J10)
+\arrow < 4mm> [ .2679492, 1.154701] from 5 25 to 20 25
+%% arrowshape(2,30,60)
+%% drawArrows(J7J8)
+\arrow < 2mm> [ .2679492, 1.154701] from 5 20 to 20 20
+%% arrowshape(6,30,40)
+%% drawArrows(J5J6)
+\arrow < 6mm> [ .2679492, .7279404] from 5 15 to 20 15
+%% arrowshape(4,30,40)
+%% drawArrows(J3J4)
+\arrow < 4mm> [ .2679492, .7279404] from 5 10 to 20 10
+%% arrowshape(2,30,40)
+%% drawArrows(J1J2)
+\arrow < 2mm> [ .2679492, .7279404] from 5 5 to 20 5
+%%
+%% text(\texttt{Arrowshape(2,30,40)}){J2,shift(5,0)}[l]
+\put {\texttt{Arrowshape(2,30,40)}} [l] at 25 5
+%% text(\texttt{Arrowshape(4,30,40)}){J4,shift(5,0)}[l]
+\put {\texttt{Arrowshape(4,30,40)}} [l] at 25 10
+%% text(\texttt{Arrowshape(6,30,40)}){J6,shift(5,0)}[l]
+\put {\texttt{Arrowshape(6,30,40)}} [l] at 25 15
+%% text(\texttt{Arrowshape(2,30,60)}){J8,shift(5,0)}[l]
+\put {\texttt{Arrowshape(2,30,60)}} [l] at 25 20
+%% text(\texttt{Arrowshape(4,30,60)}){J10,shift(5,0)}[l]
+\put {\texttt{Arrowshape(4,30,60)}} [l] at 25 25
+%% text(\texttt{Arrowshape(6,30,60)}){J12,shift(5,0)}[l]
+\put {\texttt{Arrowshape(6,30,60)}} [l] at 25 30
+%%
+%% now draw big arrow
+%% point(D){30,40} ( 30 , 40 )
+%% point(A){D,shift(62,0)} ( 92 , 40 )
+%% arrowshape(20,50,75)
+%% drawArrow(DA)
+\arrow < 20mm> [ .4663076, 1.534654] from 30 40 to 92 40
+%% point(B1){82,44.75} ( 82 , 44.75 )
+%% point(B2){82,35.25} ( 82 , 35.25 )
+%% point(C1){72,55} ( 72 , 55 )
+%% point(C2){72,25} ( 72 , 25 )
+%% drawpoints(DAB1B2C1C2)
+\put {$\bullet$} at 30 40 %% D
+\put {$\bullet$} at 92 40 %% A
+\put {$\bullet$} at 82 44.75 %% B1
+\put {$\bullet$} at 82 35.25 %% B2
+\put {$\bullet$} at 72 55 %% C1
+\put {$\bullet$} at 72 25 %% C2
+%% text($A$){A,shift(4,0)}
+\put {$A$} at 96 40
+%% text($B_1$){B1,shift(3,3)}
+\put {$B_1$} at 85 47.75
+%% text($B_2$){B2,shift(3,-3)}
+\put {$B_2$} at 85 32.25
+%% text($C_1$){C1,shift(-4,3)}
+\put {$C_1$} at 68 58
+%% text($C_2$){C2,shift(0,-4)}
+\put {$C_2$} at 72 21
+%% text($D$){D,shift(-4,0)}
+\put {$D$} at 26 40
+%%
+%% point(T1){10,63} ( 10 , 63 )
+%% point(T2){10,57} ( 10 , 57 )
+%% point(T3){10,51} ( 10 , 51 )
+%% text(\texttt{Arrowshape($L$,$B$,$C$)}){T1}[l]
+\put {\texttt{Arrowshape($L$,$B$,$C$)}} [l] at 10 63
+%% text($B$ = \mbox{angle $B_1AB_2$ degrees}){T2}[l]
+\put {$B$ = \mbox{angle $B_1AB_2$ degrees}} [l] at 10 57
+%% text($C$ = \mbox{angle $C_1AC_2$ degrees}){T3}[l]
+\put {$C$ = \mbox{angle $C_1AC_2$ degrees}} [l] at 10 51
+%%
+\betweenarrows {$L$} from 74 55 to 92 55
+\endpicture
+%%-------------------
+%\end{document}