diff options
Diffstat (limited to 'graphics/mathspic/dos/mpicm08b.m')
-rw-r--r-- | graphics/mathspic/dos/mpicm08b.m | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/graphics/mathspic/dos/mpicm08b.m b/graphics/mathspic/dos/mpicm08b.m new file mode 100644 index 0000000000..e3f586ed52 --- /dev/null +++ b/graphics/mathspic/dos/mpicm08b.m @@ -0,0 +1,30 @@ +%% 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)} +point(P){5,10}[$P$,5] +point(Q){P,polar(30,90 deg)}[$Q$,5] +point(R){Q,polar(40,0 deg)}[$R$,5] +point(T){P,polar(30,0 deg)}[$T$,5] +drawPoints(PQRT) +drawArrows(PQ,QR,PT,TR,PR) +point(P1){midpoint(PQ)} +text($p_1$){P1,shift(3,0)} +point(P2){midpoint(PT)} +text($p_2$){P2,shift(0,-3)} +point(P3){midpoint(PR)} +text($p_3$){P3,shift(2,-2)} +point(T1){midpoint(TR)} +text($t$){T1,shift(3,0)} +point(Q1){midpoint(QR)} +%% use a macro for the label +\newcommand{\q}{$q \star q \star q \star q \star q$} +text(\q){Q1,shift(-1,3)} +\endpicture +%%------------------ +\end{document} + + |