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/mpicm06.pic |
Initial commit
Diffstat (limited to 'graphics/mathspic/dos/mpicm06.pic')
-rw-r--r-- | graphics/mathspic/dos/mpicm06.pic | 113 |
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} |