summaryrefslogtreecommitdiff
path: root/graphics/mathspic/dos/mpicm09.m
blob: bd2020e114eb123b0229c28c28b1a1fd9654c1de (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
%% mPICm09.m  (figure 9)
%% mathsPIC   (4 circles figure)
\documentclass[a4paper]{article}
\usepackage{pictexwd}
\begin{document}
%%-------------------
\beginpicture
paper{units(mm),xrange(0,70),yrange(0,60)}%
point(A){30,11}[circle,8]
point(B){A,shift(-10,30)}[circle,15]     %% big circle
point(C){A,polar(30,20 deg)}[circle,5]
point(D){A,polar(45,50 deg)}[circle,7]
drawPoints(ABCD)
drawLines(AB,AC,BC,BD,CD)
\setdashes
drawLine(AD)
text($A$){A}
%% use a macro for the formula
\newcommand{\formula}{%
\     $\displaystyle \sum_{p\ge0} \Delta_{jp} z^{(p+1)}$%
\     }%
text(\formula){B}
text($C$){C}
text($D$){D}
\endpicture
%%------------------
\end{document}