diff options
author | Karl Berry <karl@freefriends.org> | 2013-08-04 23:27:56 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2013-08-04 23:27:56 +0000 |
commit | 45685e2c30714eae1fb1e722a26ca3d24b2f679e (patch) | |
tree | 34e73fd5f0b271a853a975e9b0afb91a1daf0715 /Master/texmf-dist/doc/metapost/featpost/example/loglogpaper.mp | |
parent | e2b5fb5b3af29ba822d3c923b88353508331b8e7 (diff) |
featpost
git-svn-id: svn://tug.org/texlive/trunk@31346 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/metapost/featpost/example/loglogpaper.mp')
-rw-r--r-- | Master/texmf-dist/doc/metapost/featpost/example/loglogpaper.mp | 44 |
1 files changed, 34 insertions, 10 deletions
diff --git a/Master/texmf-dist/doc/metapost/featpost/example/loglogpaper.mp b/Master/texmf-dist/doc/metapost/featpost/example/loglogpaper.mp index 4d00c11df99..24e04e9e196 100644 --- a/Master/texmf-dist/doc/metapost/featpost/example/loglogpaper.mp +++ b/Master/texmf-dist/doc/metapost/featpost/example/loglogpaper.mp @@ -1,32 +1,42 @@ % loglogpaper.mp % L. Nobre G. -% 2009 +% 2012 + +prologues := 3; vardef logten( expr Arg )= (1.696463*mlog( Arg )/1000) enddef; +message "log(100) = " & decimal( logten( 100.00 ) ); +message "log(300) = " & decimal( logten( 300.00 ) ); +message "log(0.01)= " & decimal( logten( 0.01 ) ); +message "log(0.03)= " & decimal( logten( 0.03 ) ); + beginfig(1); numeric xdecs, ydecs, xdecsiz, ydecsiz, llcornx, llcorny, i, j; numeric tmpvalx, tmpvaly; color colormain, coloraux; picture singledec; - xdecs = 5; - ydecs = 4; - xdecsiz = 35mm; - ydecsiz = 35mm; + pen penmain, penaux; + xdecs = 7; + ydecs = 5; + xdecsiz = 22mm; + ydecsiz = 22mm; llcornx = 20mm; - llcorny = 60mm; - colormain = 0.15white; - coloraux = 0.6white; - drawoptions( withcolor coloraux ); + llcorny = 10mm; + colormain = 0.05white; + coloraux = blue+green; + penmain = pencircle scaled 0.26mm; + penaux = pencircle scaled 0.111mm; + drawoptions( withpen penaux withcolor coloraux ); for i=0 upto 10: tmpvalx := xdecsiz*(logten(10+i*2)-1); draw (tmpvalx,0)--(tmpvalx,ydecsiz); tmpvaly := ydecsiz*(logten(10+i*2)-1); draw (0,tmpvaly)--(xdecsiz,tmpvaly); endfor; - drawoptions( withcolor colormain ); + drawoptions( withpen penmain withcolor colormain ); for i=1 upto 10: tmpvalx := xdecsiz*(logten(10*i)-1); draw (tmpvalx,0)--(tmpvalx,ydecsiz); @@ -41,6 +51,20 @@ beginfig(1); draw singledec shifted (llcornx+(i-1)*xdecsiz,llcorny+(j-1)*ydecsiz); endfor; endfor; + label.bot("0.1",(llcornx,llcorny)); + label.bot("1",(llcornx+xdecsiz,llcorny)); + label.bot("10",(llcornx+2*xdecsiz,llcorny)); + label.bot("100",(llcornx+3*xdecsiz,llcorny)); + label.bot("1000",(llcornx+4*xdecsiz,llcorny)); + label.bot("10000",(llcornx+5*xdecsiz,llcorny)); + label.bot("100000",(llcornx+6*xdecsiz,llcorny)); + label.bot("1000000",(llcornx+7*xdecsiz,llcorny)); + label.lft("0.0001",(llcornx,llcorny)); + label.lft("0.001",(llcornx,llcorny+ydecsiz)); + label.lft("0.01",(llcornx,llcorny+2*ydecsiz)); + label.lft("0.1",(llcornx,llcorny+3*ydecsiz)); + label.lft("1",(llcornx,llcorny+4*ydecsiz)); + label.lft("10",(llcornx,llcorny+5*ydecsiz)); endfig; end. |