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 /usergrps/uktug/baskervi/7_1/0-0-6.mp |
Initial commit
Diffstat (limited to 'usergrps/uktug/baskervi/7_1/0-0-6.mp')
-rw-r--r-- | usergrps/uktug/baskervi/7_1/0-0-6.mp | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/usergrps/uktug/baskervi/7_1/0-0-6.mp b/usergrps/uktug/baskervi/7_1/0-0-6.mp new file mode 100644 index 0000000000..03131abecf --- /dev/null +++ b/usergrps/uktug/baskervi/7_1/0-0-6.mp @@ -0,0 +1,23 @@ +input graph +defaultfont:="ptmr8r"; +warningcheck:=0; +beginfig(1) +draw begingraph(2.5in,1.75in); +setrange(origin,(100,100)); +numeric p[]; path r; +for j := 0 step 10 until 100: + p[j]:=0; endfor +def check(expr age) = + if age < 100: + xage:=round(age/10) * 10; + p[xage]:=p[xage] + 1; fi +enddef; +gdata ("ages.dat",y, + check((scantokens y1));); +r:=(0,0) for j := 0 step 10 until 100: + --(j,p[j]) endfor --(100,0); +gfill r -- cycle withcolor blue; +frame.llft; +endgraph; +endfig; +end; |