diff options
Diffstat (limited to 'Master/texmf-dist/doc/metapost/bpolynomial/examples.mp')
-rw-r--r-- | Master/texmf-dist/doc/metapost/bpolynomial/examples.mp | 63 |
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 |