summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/bpolynomial/examples.mp
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/metapost/bpolynomial/examples.mp')
-rw-r--r--Master/texmf-dist/doc/metapost/bpolynomial/examples.mp63
1 files changed, 56 insertions, 7 deletions
diff --git a/Master/texmf-dist/doc/metapost/bpolynomial/examples.mp b/Master/texmf-dist/doc/metapost/bpolynomial/examples.mp
index 135b7881fdc..1d32a2f8f0b 100644
--- a/Master/texmf-dist/doc/metapost/bpolynomial/examples.mp
+++ b/Master/texmf-dist/doc/metapost/bpolynomial/examples.mp
@@ -2,22 +2,40 @@ input bpolynomial;
input graph
prologues := 3;
+transform T;
+T = identity xscaled 10mm yscaled 1mm;
beginfig(1);
newBPolynomial.f(2, 0, -3, -1);
- draw f.getPath(-2, 2) xscaled 1cm yscaled 0.1cm;
+ draw f.getPath(-2, 2) transformed T;
endfig;
beginfig(2);
newBPolynomial.f(2, 0, -3, -1);
- for x=-2 step .25 until 2:
- label(btex $\star$ etex, (x, f.eval(x)) xscaled 1cm yscaled 0.1cm);
- endfor
+ draw f.getPath(-2, 2) transformed T;
+ x := 1.5;
+ show (x, f.eval(x));
+ dotlabeldiam := 2bp;
+ dotlabel.ulft(btex $(1.5, 1.25)$ etex, (x, f.eval(x)) transformed T);
endfig;
beginfig(3);
+ newBPolynomial.f(2, 0, -3, -1);
+ draw f.getPath(-2, 2) transformed T;
+ draw f.getTangent(-1, -1, 1) transformed T;
+endfig;
+
+
+beginfig(4);
+ newBPolynomial.f(2, 0, -3, -1);
+ draw f'.getPath(-2, 2) transformed T;
+ draw f'.getTangent(1, -1, 1) transformed T;
+endfig;
+
+
+beginfig(5);
numeric u;
u := 0.5cm;
%%% Draw a coordinate system.
@@ -51,7 +69,7 @@ path g;
endfig;
-beginfig(4);
+beginfig(6);
path f,g;
xmin := -7; xmax := 7;
ymin := -7; ymax := 7;
@@ -61,8 +79,7 @@ path f,g;
g := g.getPath(xmin, xmax);
draw begingraph(10cm, 6cm);
setrange(xmin,ymin, xmax,ymax);
- autogrid(grid.bot, grid.lft)
- dashed withdots withpen pencircle scaled .7bp withcolor .5white;
+ autogrid(grid.bot, grid.lft) dashed evenly withcolor .9white;
drawoptions(withpen pencircle scaled 1bp);
gdraw f dashed evenly scaled 2;
gdraw g;
@@ -70,4 +87,36 @@ path f,g;
endgraph;
endfig;
+
+beginfig(7);
+ xmin := -6; xmax := 6;
+ ymin := -6; ymax := 6;
+ newBPolynomial.f(0.3, -0.5, -0.5, -1);
+ draw begingraph(10cm, 6cm);
+ setrange(xmin,ymin, xmax,ymax);
+ autogrid(grid.bot, grid.lft) dashed evenly withcolor .9white;
+ drawoptions(withpen pencircle scaled 1bp);
+ %%% Draw f and its derivatives f', f'', f'''.
+ gdraw f.getPath(xmin, xmax);
+ gdraw f'.getPath(xmin, xmax) dashed evenly scaled 2;
+ gdraw f''.getPath(xmin, xmax) dashed withdots
+ withpen pencircle scaled 2bp;
+ gdraw f'''.getPath(-5, 5) withcolor .6white;
+ %%% Draw tangents and mark points.
+ x := 2;
+ drawoptions(withcolor red+.6(green+blue));
+ gdraw f.getTangent(x, -2, 2);
+ gdraw f'.getTangent(x, -1, 1);
+ gdraw f''.getTangent(x, -2, 2);
+ gdraw f'''.getTangent(x, -2, 2);
+ drawoptions(withcolor blue+.6(red+green));
+ dotlabeldiam := 2.5bp;
+ gdotlabel("", (x, f.eval(x)));
+ gdotlabel("", (x, f'.eval(x)));
+ gdotlabel("", (x, f''.eval(x)));
+ gdotlabel("", (x, f'''.eval(x)));
+ drawoptions();
+ endgraph;
+endfig;
+
end