diff options
Diffstat (limited to 'graphics/mathspic/dos/mpicm08b.pic')
-rw-r--r-- | graphics/mathspic/dos/mpicm08b.pic | 53 |
1 files changed, 53 insertions, 0 deletions
diff --git a/graphics/mathspic/dos/mpicm08b.pic b/graphics/mathspic/dos/mpicm08b.pic new file mode 100644 index 0000000000..083d21fb3b --- /dev/null +++ b/graphics/mathspic/dos/mpicm08b.pic @@ -0,0 +1,53 @@ +%* ------------------------------------------- +%* mathsPIC 2.1 +%* Copyright (c) RWD Nickalls 1999-2000 +%* Email: dicknickalls@compuserve.com +%* Date (m/d/y) : 11-05-2000 21:04:01 +%* Command Line: /b/s MPICM08B.M +%* Input Filename: MPICM08B.M +%* Output Filename: MPICM08B.MT +%* ------------------------------------------- +%% mPICm08b.m (figure 8b) +%\documentclass[a4paper]{article} +%\usepackage{pictexwd} +%\begin{document} +%%------------------- +\beginpicture +%% paper{units(mm),xrange(0,45),yrange(0,45)} %, axes(LB), ticks(10,10)} +\setcoordinatesystem units < 1mm, 1mm> +\setplotarea x from 0 to 45, y from 0 to 45 +%% point(P){5,10}[$P$,5] ( 5 , 10 ) +%% point(Q){P,polar(30,90deg)}[$Q$,5] ( 5 , 40 ) +%% point(R){Q,polar(40,0deg)}[$R$,5] ( 45 , 40 ) +%% point(T){P,polar(30,0deg)}[$T$,5] ( 35 , 10 ) +%% drawPoints(PQRT) +\put {$P$} at 5 10 %% P +\put {$Q$} at 5 40 %% Q +\put {$R$} at 45 40 %% R +\put {$T$} at 35 10 %% T +%% drawArrows(PQ,QR,PT,TR,PR) +\arrow < 2mm> [ .2679492, .7279404] from 5 15 to 5 35 +\arrow < 2mm> [ .2679492, .7279404] from 10 40 to 40 40 +\arrow < 2mm> [ .2679492, .7279404] from 10 10 to 30 10 +\arrow < 2mm> [ .2679492, .7279404] from 36.58114 14.74342 to 43.41886 35.25658 +\arrow < 2mm> [ .2679492, .7279404] from 9 13 to 41 37 +%% point(P1){midpoint(PQ)} ( 5 , 25 ) +%% text($p_1$){P1,shift(3,0)} +\put {$p_1$} at 8 25 +%% point(P2){midpoint(PT)} ( 20 , 10 ) +%% text($p_2$){P2,shift(0,-3)} +\put {$p_2$} at 20 7 +%% point(P3){midpoint(PR)} ( 25 , 25 ) +%% text($p_3$){P3,shift(2,-2)} +\put {$p_3$} at 27 23 +%% point(T1){midpoint(TR)} ( 40 , 25 ) +%% text($t$){T1,shift(3,0)} +\put {$t$} at 43 25 +%% point(Q1){midpoint(QR)} ( 25 , 40 ) +%% use a macro for the label +\newcommand{\q}{$q \star q \star q \star q \star q$} +%% text(\q){Q1,shift(-1,3)} +\put {\q} at 24 43 +\endpicture +%%------------------ +%\end{document} |