summaryrefslogtreecommitdiff
path: root/graphics/mathspic/dos/mpicm10.m
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/mpicm10.m
Initial commit
Diffstat (limited to 'graphics/mathspic/dos/mpicm10.m')
-rw-r--r--graphics/mathspic/dos/mpicm10.m33
1 files changed, 33 insertions, 0 deletions
diff --git a/graphics/mathspic/dos/mpicm10.m b/graphics/mathspic/dos/mpicm10.m
new file mode 100644
index 0000000000..7b41aab5cf
--- /dev/null
+++ b/graphics/mathspic/dos/mpicm10.m
@@ -0,0 +1,33 @@
+%% mPICm10.m (figure 10)
+%% mathsPIC circle with arrows
+%%-------------------
+\documentclass[a4paper]{article}
+\usepackage{pictexwd}
+\begin{document}
+%%---------------------
+\beginpicture
+paper{units(mm), xrange(5,55), yrange(5,55)}
+point(C){30,30}[$\odot$,1.2] %% center
+variable(r){20} %% radius
+drawcircle(C,r)
+point(P){C, polar(r,250 deg)}
+point(Q){C, polar(r,120 deg)}
+point(S){C, polar(r,-30 deg)}
+drawpoints(CPQS)
+drawlines(PCSQP)
+text($P$){P, polar(5,250 deg)}
+text($Q$){Q, polar(5,120 deg)}
+text($S$){S, polar(5,-30 deg)}
+drawAngleArrow{angle(PCS), radius(8) anticlockwise internal}
+text($\beta$){C, polar(5,285 deg)}
+drawAngleArrow{angle(PQS), radius(12) anticlockwise internal}
+text($\alpha$){Q, polar(8,-65 deg)}
+show angle(PQS) % alpha
+show angle(PCS) % beta
+\endpicture
+%%-------------------
+\end{document}
+
+
+
+