diff options
Diffstat (limited to 'Master/texmf-dist/doc/latex/ppower4/edemo/matrixb2e.mp')
-rw-r--r-- | Master/texmf-dist/doc/latex/ppower4/edemo/matrixb2e.mp | 508 |
1 files changed, 508 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/ppower4/edemo/matrixb2e.mp b/Master/texmf-dist/doc/latex/ppower4/edemo/matrixb2e.mp new file mode 100644 index 00000000000..2e45d76395d --- /dev/null +++ b/Master/texmf-dist/doc/latex/ppower4/edemo/matrixb2e.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 (135.00,738.00); + 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,((135.00,735.30))+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 (135.00,756.00); + 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,((135.00,753.30))+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 (90.00,693.00); + 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,((90.00,690.30))+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 (72.00,693.00); + 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,((72.00,690.30))+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 (153.00,711.00); + 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,((153.00,708.30))+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 (117.00,711.00); + 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,((117.00,708.30))+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 (117.00,693.00); + 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,((117.00,690.30))+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 (135.00,711.00); + 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,((135.00,708.30))+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 (135.00,693.00); + 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,((135.00,690.30))+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 (153.00,693.00); + 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,((153.00,690.30))+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 (153.00,738.00); + 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,((153.00,735.30))+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 (153.00,756.00); + 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,((153.00,753.30))+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 (117.00,738.00); + 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,((117.00,735.30))+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 (117.00,756.00); + 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,((117.00,753.30))+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 (90.00,711.00); + 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,((90.00,708.30))+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 (72.00,711.00); + 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,((72.00,708.30))+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 10.80 yscaled 1.00 + rotated 0.00 shifted (72.00,711.00); + 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 (90.00,711.00); + 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 (90.00,693.00); + 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 (72.00,693.00); + 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 (135.00,738.00); + 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 (135.00,756.00); + 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 = (58.50, 724.50) + --(103.50, 724.50) + --(103.50, 679.50) + --(58.50, 679.50) + --(58.50, 724.50)--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 = (103.50, 679.50) + --(166.50, 679.50) + --(166.50, 724.50) + --(103.50, 724.50) + --(103.50, 679.50)--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 = (166.50, 724.50) + --(103.50, 724.50) + --(103.50, 769.50) + --(166.50, 769.50) + --(166.50, 724.50)--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 $A$ etex; + picture p; + p = q rotated 0.00; + label.urt(p,((54.00,702.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,((171.00,702.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 $B$ etex; + picture p; + p = q rotated 0.00; + label.urt(p,((99.00,742.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 using algorithm $A_2$ etex; + picture p; + p = q rotated 0.00; + label.urt(p,((112.50,639.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 +% 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,((112.50,657.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 +endfig; +end |