diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /info/examples/lgc2/4-2-10.mp |
Initial commit
Diffstat (limited to 'info/examples/lgc2/4-2-10.mp')
-rw-r--r-- | info/examples/lgc2/4-2-10.mp | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/info/examples/lgc2/4-2-10.mp b/info/examples/lgc2/4-2-10.mp new file mode 100644 index 0000000000..293de78133 --- /dev/null +++ b/info/examples/lgc2/4-2-10.mp @@ -0,0 +1,27 @@ +% --- start of displayed preamble in the book --- +input graph +path m[],w[]; +def wcheck(expr decade,value) = + augment.w1(decade,0);augment.w1(decade,value); + augment.w1(decade+5,value);augment.w1(decade+5,0); +enddef; +def mcheck(expr decade,value) = + augment.m1(decade+5,0);augment.m1(decade+5,value); + augment.m1(decade+10,value);augment.m1(decade+10,0); +enddef; +% --- end of displayed preamble in the book --- +defaultfont:="ptmr8r"; +warningcheck:=0; +beginfig(1) +draw begingraph(3.75in,2in); +gdata ("decade.dat",y, + wcheck((scantokens y1),(scantokens y2)); + mcheck((scantokens y1),(scantokens y3));); +gfill m1--cycle; +gdraw w1; +glabel.bot (btex Number of burials per decade + ($n \approx 4300$) etex,OUT); +frame.llft; +endgraph; +endfig; +end; |