summaryrefslogtreecommitdiff
path: root/graphics/mathspic/dos/mpicm08b.m
diff options
context:
space:
mode:
Diffstat (limited to 'graphics/mathspic/dos/mpicm08b.m')
-rw-r--r--graphics/mathspic/dos/mpicm08b.m30
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}
+
+