1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
% loglogpaper.mp
% L. Nobre G.
% 2009
vardef logten( expr Arg )=
(1.696463*mlog( Arg )/1000)
enddef;
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;
llcornx = 20mm;
llcorny = 60mm;
colormain = 0.15white;
coloraux = 0.6white;
drawoptions( 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 );
for i=1 upto 10:
tmpvalx := xdecsiz*(logten(10*i)-1);
draw (tmpvalx,0)--(tmpvalx,ydecsiz);
tmpvaly := ydecsiz*(logten(10*i)-1);
draw (0,tmpvaly)--(xdecsiz,tmpvaly);
endfor;
singledec = currentpicture;
currentpicture := nullpicture;
drawoptions();
for i=1 upto xdecs:
for j=1 upto ydecs:
draw singledec shifted (llcornx+(i-1)*xdecsiz,llcorny+(j-1)*ydecsiz);
endfor;
endfor;
endfig;
end.
|