diff options
author | Karl Berry <karl@freefriends.org> | 2006-01-09 00:49:07 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-01-09 00:49:07 +0000 |
commit | 007f67a693e4d031fd3d792df8e4d5f43e2cb2e7 (patch) | |
tree | 90d17e00e572ecb1e24764b6f29c80e098b08d29 /Master/texmf-dist/doc/latex/ppower4/edemo/matrixb1e.mp | |
parent | 950209b26f70aa87ed07c54f82a95b6f03b7c3a0 (diff) |
doc/latex
git-svn-id: svn://tug.org/texlive/trunk@84 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/latex/ppower4/edemo/matrixb1e.mp')
-rw-r--r-- | Master/texmf-dist/doc/latex/ppower4/edemo/matrixb1e.mp | 508 |
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 |