summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/ppower4/edemo/matrixb1e.mp
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/latex/ppower4/edemo/matrixb1e.mp')
-rw-r--r--Master/texmf-dist/doc/latex/ppower4/edemo/matrixb1e.mp508
1 files changed, 508 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/ppower4/edemo/matrixb1e.mp b/Master/texmf-dist/doc/latex/ppower4/edemo/matrixb1e.mp
new file mode 100644
index 00000000000..8e0bf2d37cf
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/ppower4/edemo/matrixb1e.mp
@@ -0,0 +1,508 @@
+%
+% fig2dev (version 3.2.4-beta1) -L (m)mp version 0.06 --- Preamble
+%
+
+%
+% mp output driver options:
+% -L mp
+%
+
+% +MP-ADDITIONAL-HEADER
+verbatimtex
+%&latex
+\documentclass{article}
+\begin{document}
+etex
+% -MP-ADDITIONAL-HEADER
+
+
+%SetFigFont macros for latex
+verbatimtex
+%
+\begingroup\makeatletter\ifx\SetFigFont\undefined%
+\gdef\SetFigFont#1#2#3#4#5{%
+ \reset@font\fontsize{#1}{#2pt}%
+ \fontfamily{#3}\fontseries{#4}\fontshape{#5}%
+ \selectfont}%
+\fi\endgroup%
+\ifx\SetFigFontSize\undefined%
+\gdef\SetFigFontSize#1#2{%
+ \fontsize{#1}{#2pt}%
+ \selectfont}%
+\fi%
+etex
+
+% Make arrowheads mitered by default
+% NOTE: subject to change (edited from plain.mp)
+ def forwarr(text t) expr p =
+ _apth:=p;_finarrf(t)
+ enddef;
+ def backarr(text t) expr p =
+ _apth:=p;_finarrb(t)
+ enddef;
+ def _finarrf(text s) text t =
+ if (s=0):fill arrowhead _apth t withcolor white
+ else: fill arrowhead _apth t fi;
+ linejoin:=0;
+ draw arrowhead _apth t
+ enddef;
+ def _finarrb(text s) text t =
+ if (s=0):fill arrowhead reverse _apth t withcolor white
+ else: fill arrowhead reverse _apth t fi;
+ linejoin:=0;
+ draw arrowhead reverse _apth t
+ enddef;
+
+
+% Now draw the figure
+beginfig(0)
+% Some reasonable defaults
+ ahlength:=7;
+ ahangle:=30;
+ labeloffset:=0;
+ truecorners:=1;
+ bboxmargin:=0;
+% Begin ellipse object
+ pickup pencircle scaled 0.90;
+ path c;
+ c = fullcircle scaled 12.72 yscaled 1.00
+ rotated 0.00 shifted (166.50,742.50);
+ draw c withcolor (0.00,0.69,0.00);
+% End ellipse object
+% Begin text object
+ picture q;
+ verbatimtex
+ \def\mpsetfnt{%
+ \SetFigFontSize{10}{13.0}%
+ }%
+ etex;
+ q = btex \mpsetfnt $*$ etex;
+ picture p;
+ p = q rotated 0.00;
+ label.urt(p,((166.50,739.80))+xpart (lrcorner q - llcorner q)*(-cosd 0.00,-sind 0.00)/2+llcorner p) withcolor (0.00,0.00,0.00);
+% End text object
+% Begin ellipse object
+ pickup pencircle scaled 0.90;
+ path c;
+ c = fullcircle scaled 12.72 yscaled 1.00
+ rotated 0.00 shifted (166.50,760.50);
+ draw c withcolor (0.00,0.69,0.00);
+% End ellipse object
+% Begin text object
+ picture q;
+ verbatimtex
+ \def\mpsetfnt{%
+ \SetFigFontSize{10}{13.0}%
+ }%
+ etex;
+ q = btex \mpsetfnt $*$ etex;
+ picture p;
+ p = q rotated 0.00;
+ label.urt(p,((166.50,757.80))+xpart (lrcorner q - llcorner q)*(-cosd 0.00,-sind 0.00)/2+llcorner p) withcolor (0.00,0.00,0.00);
+% End text object
+% Begin ellipse object
+ pickup pencircle scaled 0.90;
+ path c;
+ c = fullcircle scaled 12.72 yscaled 1.00
+ rotated 0.00 shifted (166.50,715.50);
+ draw c withcolor (0.00,0.69,0.00);
+% End ellipse object
+% Begin text object
+ picture q;
+ verbatimtex
+ \def\mpsetfnt{%
+ \SetFigFontSize{10}{13.0}%
+ }%
+ etex;
+ q = btex \mpsetfnt $*$ etex;
+ picture p;
+ p = q rotated 0.00;
+ label.urt(p,((166.50,712.80))+xpart (lrcorner q - llcorner q)*(-cosd 0.00,-sind 0.00)/2+llcorner p) withcolor (0.00,0.00,0.00);
+% End text object
+% Begin ellipse object
+ pickup pencircle scaled 0.90;
+ path c;
+ c = fullcircle scaled 12.72 yscaled 1.00
+ rotated 0.00 shifted (148.50,742.50);
+ draw c withcolor (0.00,0.69,0.00);
+% End ellipse object
+% Begin text object
+ picture q;
+ verbatimtex
+ \def\mpsetfnt{%
+ \SetFigFontSize{10}{13.0}%
+ }%
+ etex;
+ q = btex \mpsetfnt $*$ etex;
+ picture p;
+ p = q rotated 0.00;
+ label.urt(p,((148.50,739.80))+xpart (lrcorner q - llcorner q)*(-cosd 0.00,-sind 0.00)/2+llcorner p) withcolor (0.00,0.00,0.00);
+% End text object
+% Begin ellipse object
+ pickup pencircle scaled 0.90;
+ path c;
+ c = fullcircle scaled 12.72 yscaled 1.00
+ rotated 0.00 shifted (166.50,697.50);
+ draw c withcolor (0.00,0.69,0.00);
+% End ellipse object
+% Begin text object
+ picture q;
+ verbatimtex
+ \def\mpsetfnt{%
+ \SetFigFontSize{10}{13.0}%
+ }%
+ etex;
+ q = btex \mpsetfnt $*$ etex;
+ picture p;
+ p = q rotated 0.00;
+ label.urt(p,((166.50,694.80))+xpart (lrcorner q - llcorner q)*(-cosd 0.00,-sind 0.00)/2+llcorner p) withcolor (0.00,0.00,0.00);
+% End text object
+% Begin ellipse object
+ pickup pencircle scaled 0.90;
+ path c;
+ c = fullcircle scaled 12.72 yscaled 1.00
+ rotated 0.00 shifted (121.50,697.50);
+ draw c withcolor (0.00,0.69,0.00);
+% End ellipse object
+% Begin text object
+ picture q;
+ verbatimtex
+ \def\mpsetfnt{%
+ \SetFigFontSize{10}{13.0}%
+ }%
+ etex;
+ q = btex \mpsetfnt $*$ etex;
+ picture p;
+ p = q rotated 0.00;
+ label.urt(p,((121.50,694.80))+xpart (lrcorner q - llcorner q)*(-cosd 0.00,-sind 0.00)/2+llcorner p) withcolor (0.00,0.00,0.00);
+% End text object
+% Begin ellipse object
+ pickup pencircle scaled 0.90;
+ path c;
+ c = fullcircle scaled 12.72 yscaled 1.00
+ rotated 0.00 shifted (103.50,715.50);
+ draw c withcolor (0.00,0.69,0.00);
+% End ellipse object
+% Begin text object
+ picture q;
+ verbatimtex
+ \def\mpsetfnt{%
+ \SetFigFontSize{10}{13.0}%
+ }%
+ etex;
+ q = btex \mpsetfnt $*$ etex;
+ picture p;
+ p = q rotated 0.00;
+ label.urt(p,((103.50,712.80))+xpart (lrcorner q - llcorner q)*(-cosd 0.00,-sind 0.00)/2+llcorner p) withcolor (0.00,0.00,0.00);
+% End text object
+% Begin ellipse object
+ pickup pencircle scaled 0.90;
+ path c;
+ c = fullcircle scaled 12.72 yscaled 1.00
+ rotated 0.00 shifted (103.50,697.50);
+ draw c withcolor (0.00,0.69,0.00);
+% End ellipse object
+% Begin text object
+ picture q;
+ verbatimtex
+ \def\mpsetfnt{%
+ \SetFigFontSize{10}{13.0}%
+ }%
+ etex;
+ q = btex \mpsetfnt $*$ etex;
+ picture p;
+ p = q rotated 0.00;
+ label.urt(p,((103.50,694.80))+xpart (lrcorner q - llcorner q)*(-cosd 0.00,-sind 0.00)/2+llcorner p) withcolor (0.00,0.00,0.00);
+% End text object
+% Begin ellipse object
+ pickup pencircle scaled 0.90;
+ path c;
+ c = fullcircle scaled 12.00 yscaled 1.00
+ rotated 0.00 shifted (103.50,679.50);
+ draw c withcolor (0.00,0.00,0.69);
+% End ellipse object
+% Begin text object
+ picture q;
+ verbatimtex
+ \def\mpsetfnt{%
+ \SetFigFontSize{10}{13.0}%
+ }%
+ etex;
+ q = btex \mpsetfnt $*$ etex;
+ picture p;
+ p = q rotated 0.00;
+ label.urt(p,((103.50,676.80))+xpart (lrcorner q - llcorner q)*(-cosd 0.00,-sind 0.00)/2+llcorner p) withcolor (0.00,0.00,0.00);
+% End text object
+% Begin ellipse object
+ pickup pencircle scaled 0.90;
+ path c;
+ c = fullcircle scaled 12.00 yscaled 1.00
+ rotated 0.00 shifted (121.50,679.50);
+ draw c withcolor (0.00,0.00,0.69);
+% End ellipse object
+% Begin text object
+ picture q;
+ verbatimtex
+ \def\mpsetfnt{%
+ \SetFigFontSize{10}{13.0}%
+ }%
+ etex;
+ q = btex \mpsetfnt $*$ etex;
+ picture p;
+ p = q rotated 0.00;
+ label.urt(p,((121.50,676.80))+xpart (lrcorner q - llcorner q)*(-cosd 0.00,-sind 0.00)/2+llcorner p) withcolor (0.00,0.00,0.00);
+% End text object
+% Begin ellipse object
+ pickup pencircle scaled 0.90;
+ path c;
+ c = fullcircle scaled 12.00 yscaled 1.00
+ rotated 0.00 shifted (148.50,679.50);
+ draw c withcolor (0.00,0.00,0.69);
+% End ellipse object
+% Begin text object
+ picture q;
+ verbatimtex
+ \def\mpsetfnt{%
+ \SetFigFontSize{10}{13.0}%
+ }%
+ etex;
+ q = btex \mpsetfnt $*$ etex;
+ picture p;
+ p = q rotated 0.00;
+ label.urt(p,((148.50,676.80))+xpart (lrcorner q - llcorner q)*(-cosd 0.00,-sind 0.00)/2+llcorner p) withcolor (0.00,0.00,0.00);
+% End text object
+% Begin ellipse object
+ pickup pencircle scaled 0.90;
+ path c;
+ c = fullcircle scaled 12.00 yscaled 1.00
+ rotated 0.00 shifted (166.50,679.50);
+ draw c withcolor (0.00,0.00,0.69);
+% End ellipse object
+% Begin text object
+ picture q;
+ verbatimtex
+ \def\mpsetfnt{%
+ \SetFigFontSize{10}{13.0}%
+ }%
+ etex;
+ q = btex \mpsetfnt $*$ etex;
+ picture p;
+ p = q rotated 0.00;
+ label.urt(p,((166.50,676.80))+xpart (lrcorner q - llcorner q)*(-cosd 0.00,-sind 0.00)/2+llcorner p) withcolor (0.00,0.00,0.00);
+% End text object
+% Begin ellipse object
+ pickup pencircle scaled 0.90;
+ path c;
+ c = fullcircle scaled 12.00 yscaled 1.00
+ rotated 0.00 shifted (148.50,697.50);
+ draw c withcolor (0.00,0.00,0.69);
+% End ellipse object
+% Begin text object
+ picture q;
+ verbatimtex
+ \def\mpsetfnt{%
+ \SetFigFontSize{10}{13.0}%
+ }%
+ etex;
+ q = btex \mpsetfnt $*$ etex;
+ picture p;
+ p = q rotated 0.00;
+ label.urt(p,((148.50,694.80))+xpart (lrcorner q - llcorner q)*(-cosd 0.00,-sind 0.00)/2+llcorner p) withcolor (0.00,0.00,0.00);
+% End text object
+% Begin ellipse object
+ pickup pencircle scaled 0.90;
+ path c;
+ c = fullcircle scaled 12.72 yscaled 1.00
+ rotated 0.00 shifted (121.50,715.50);
+ draw c withcolor (0.00,0.69,0.00);
+% End ellipse object
+% Begin ellipse object
+ pickup pencircle scaled 0.90;
+ path c;
+ c = fullcircle scaled 12.72 yscaled 1.00
+ rotated 0.00 shifted (148.50,715.50);
+ draw c withcolor (0.00,0.69,0.00);
+% End ellipse object
+% Begin ellipse object
+ pickup pencircle scaled 0.90;
+ path c;
+ c = fullcircle scaled 10.80 yscaled 1.00
+ rotated 0.00 shifted (103.50,697.50);
+ draw c withcolor (0.00,0.00,0.69);
+% End ellipse object
+% Begin ellipse object
+ pickup pencircle scaled 0.90;
+ path c;
+ c = fullcircle scaled 10.80 yscaled 1.00
+ rotated 0.00 shifted (121.50,697.50);
+ draw c withcolor (0.00,0.00,0.69);
+% End ellipse object
+% Begin ellipse object
+ pickup pencircle scaled 0.90;
+ path c;
+ c = fullcircle scaled 10.80 yscaled 1.00
+ rotated 0.00 shifted (148.50,742.50);
+ draw c withcolor (0.00,0.00,0.69);
+% End ellipse object
+% Begin ellipse object
+ pickup pencircle scaled 0.90;
+ path c;
+ c = fullcircle scaled 10.80 yscaled 1.00
+ rotated 0.00 shifted (166.50,742.50);
+ draw c withcolor (0.00,0.00,0.69);
+% End ellipse object
+% Begin ellipse object
+ pickup pencircle scaled 0.90;
+ path c;
+ c = fullcircle scaled 10.80 yscaled 1.00
+ rotated 0.00 shifted (166.50,760.50);
+ draw c withcolor (0.00,0.00,0.69);
+% End ellipse object
+% Begin ellipse object
+ pickup pencircle scaled 0.90;
+ path c;
+ c = fullcircle scaled 12.72 yscaled 1.00
+ rotated 0.00 shifted (148.50,760.50);
+ draw c withcolor (0.00,0.69,0.00);
+% End ellipse object
+% Begin ellipse object
+ pickup pencircle scaled 0.90;
+ path c;
+ c = fullcircle scaled 10.80 yscaled 1.00
+ rotated 0.00 shifted (148.50,760.50);
+ draw c withcolor (0.00,0.00,0.69);
+% End ellipse object
+% Begin polyline object
+ linecap:=0;
+ linejoin:=0;
+ pickup pencircle scaled 0.90;
+ path p;
+ p = (90.00, 729.00)
+ --(135.00, 729.00)
+ --(135.00, 666.00)
+ --(90.00, 666.00)
+ --(90.00, 729.00)--cycle;
+ draw p withcolor (0.00,0.00,0.00);
+% End polyline object
+% Begin polyline object
+ linecap:=0;
+ linejoin:=0;
+ pickup pencircle scaled 0.90;
+ path p;
+ p = (135.00, 729.00)
+ --(180.00, 729.00)
+ --(180.00, 666.00)
+ --(135.00, 666.00)
+ --(135.00, 729.00)--cycle;
+ draw p withcolor (0.00,0.00,0.00);
+% End polyline object
+% Begin polyline object
+ linecap:=0;
+ linejoin:=0;
+ pickup pencircle scaled 0.90;
+ path p;
+ p = (135.00, 774.00)
+ --(180.00, 774.00)
+ --(180.00, 729.00)
+ --(135.00, 729.00)
+ --(135.00, 774.00)--cycle;
+ draw p withcolor (0.00,0.00,0.00);
+% End polyline object
+% Begin text object
+ picture q;
+ verbatimtex
+ \def\mpsetfnt{%
+ \SetFigFontSize{10}{13.0}%
+ }%
+ etex;
+ q = btex \mpsetfnt $*$ etex;
+ picture p;
+ p = q rotated 0.00;
+ label.urt(p,((121.50,712.80))+xpart (lrcorner q - llcorner q)*(-cosd 0.00,-sind 0.00)/2+llcorner p) withcolor (0.00,0.00,0.00);
+% End text object
+% Begin text object
+ picture q;
+ verbatimtex
+ \def\mpsetfnt{%
+ \SetFigFontSize{10}{13.0}%
+ }%
+ etex;
+ q = btex \mpsetfnt $*$ etex;
+ picture p;
+ p = q rotated 0.00;
+ label.urt(p,((148.50,712.80))+xpart (lrcorner q - llcorner q)*(-cosd 0.00,-sind 0.00)/2+llcorner p) withcolor (0.00,0.00,0.00);
+% End text object
+% Begin text object
+ picture q;
+ verbatimtex
+ \def\mpsetfnt{%
+ \SetFigFontSize{10}{13.0}%
+ }%
+ etex;
+ q = btex \mpsetfnt $*$ etex;
+ picture p;
+ p = q rotated 0.00;
+ label.urt(p,((148.50,757.80))+xpart (lrcorner q - llcorner q)*(-cosd 0.00,-sind 0.00)/2+llcorner p) withcolor (0.00,0.00,0.00);
+% End text object
+% Begin text object
+ picture q;
+ verbatimtex
+ \def\mpsetfnt{%
+ \SetFigFontSize{10}{13.0}%
+ }%
+ etex;
+ q = btex \mpsetfnt $B$ etex;
+ picture p;
+ p = q rotated 0.00;
+ label.urt(p,((130.50,751.50))+xpart (lrcorner q - llcorner q)*(-cosd 0.00,-sind 0.00)+llcorner p) withcolor (0.00,0.00,0.00);
+% End text object
+% Begin text object
+ picture q;
+ verbatimtex
+ \def\mpsetfnt{%
+ \SetFigFontSize{10}{13.0}%
+ }%
+ etex;
+ q = btex \mpsetfnt $A$ etex;
+ picture p;
+ p = q rotated 0.00;
+ label.urt(p,((85.50,693.00))+xpart (lrcorner q - llcorner q)*(-cosd 0.00,-sind 0.00)+llcorner p) withcolor (0.00,0.00,0.00);
+% End text object
+% Begin text object
+ picture q;
+ verbatimtex
+ \def\mpsetfnt{%
+ \SetFigFontSize{10}{13.0}%
+ }%
+ etex;
+ q = btex \mpsetfnt $C$ etex;
+ picture p;
+ p = q rotated 0.00;
+ label.urt(p,((184.50,693.00))+llcorner p) withcolor (0.00,0.00,0.00);
+% End text object
+% Begin text object
+ picture q;
+ verbatimtex
+ \def\mpsetfnt{%
+ \SetFigFontSize{10}{13.0}%
+ }%
+ etex;
+ q = btex \mpsetfnt using algorithm $A_1$ etex;
+ picture p;
+ p = q rotated 0.00;
+ label.urt(p,((135.00,648.00))+xpart (lrcorner q - llcorner q)*(-cosd 0.00,-sind 0.00)/2+llcorner p) withcolor (0.00,0.00,0.69);
+% End text object
+% Begin text object
+ picture q;
+ verbatimtex
+ \def\mpsetfnt{%
+ \SetFigFontSize{10}{13.0}%
+ }%
+ etex;
+ q = btex \mpsetfnt using algorithm $A_2$ etex;
+ picture p;
+ p = q rotated 0.00;
+ label.urt(p,((135.00,630.00))+xpart (lrcorner q - llcorner q)*(-cosd 0.00,-sind 0.00)/2+llcorner p) withcolor (0.00,0.69,0.00);
+% End text object
+endfig;
+end