>
AvIt:=proc(L,n,M)
local i,H;
H:=[];
for i from 1 to nops(L)
do
H:=[op(H),L[i]/n];
od;
Areabargraph(H,-max(-min(op(H)),max(op(H))),max(-min(op(H)),max(op(H))),M);
end:

> D10:=[-2, -2, -2, 2, -2, 2, -4, 0, 4, -2, 0, 2, -2, 2, 2, 2, 2, 0, 0, -4, -4, -2, -2, -4, 0, 4, -2, 0, -2, 2, -2, -2, 0, -4, -2, -2, 4, 0, 2, -2, -6, 0, 4, -6, 0, -4, 0, 2, 0, 2, -4, 0, 2, -2, -2, 0, -4, 0, 6, 2, 4, 0, -6, 0, 6, 2, 2, -6, -4, 2, 2, 0, -2, -2, -2, 0, 0, 6, 2, 6, -4, 0, -4, 2, 2, -2, 2, 0, 4, 2, 4, 4, 4, -2, -2, 0, -2, -4, 2, 6, -2, 0, 0, 2, 0, -6, 0, 2, 6, 0, 2, -6, -4, 6, 0, -2, -6, -2, -4, 2, 0, -2, -4, 2, 2, 0, -6, 4, 0, 0, -4, 0, -2, 0, 2, -6, 2, -2, 2, -2, -4, 4, -4, -6, 2, -2, -2, -2, 6, 0, 4, 0, 0, 2, -2, 4, -2, 2, 2, -2, 2, 4, -4, -2, -2, -2, 2, 4, -2, 4, -4, 0, -4, 4, -2, 0, -4, 2, 2, 4, 2, 4, 2, 2, 2, 2, -2, 2, 0, -4, 2, 4, 0, 0, -6, 4, 0, 0, 2, 0, 0, 4, 0, -4, 6, -4, -2, 0, -4, 2, 0, 4, 2, -6, 0, -2, 2, -4, 2, 2, 2, -2, 2, 0, 4, -8, -2, -6, 8, 4, -4, 2, 2, 0, 4, -8, 2, 6, 4, 2, -2, 0, -2, 4, 2, 4, -2, 0, -2, 6, -4, 0, 2, -2, 0, 0, 0, 0, 8, 6, 4, 0, -4, 4, -2, 0, 0, -4, -6, 0, 0, -6, 0, -4, 0, 0, 2, 0, 2, 2, 2, 6, -2, 2, -2, -2, 0, -2, -4, 0, 0, 0, 0, 2, 0, 6, -4, 4, -2, 2, 0, 6, -2, 6, -4, -2, -4, 0, 2, 0, -2, 0, -2, -2, 2, 0, 2, 4, 2, 0, -4, -2, 0, -2, 0, 0, 0, 0, 2, 0, -4, 0, 2, -4, 0, -4, -2, -4, -2, 4, -4, -4, 0, 2, -2, 2, -2, -2, 6, 2, 0, -4, 0, -2, 0, 0, -2, 6, 0, 4, 0, -2, 0, 0, -2, 0, -2, -2, 2, -4, 4, 0, -2, -2, 4, 4, -2, 0, -2, -6, 0, 4, 2, -2, 2, 0, -6, 2, 6, 6, -2, -2, -4, 2, 2, -8, -2, -4, 4, 6, 4, 2, 0, 0, 2, -2, -2, 2, 0, 2, 0, -6, -2, -8, -4, -4, 0, 4, -4, -2, 0, -2, -2, 4, -8, -2, -4, 2, -2, 0, 0, 2, 0, -2, 4, -2, -2, 6, 4, 2, -2, -4, 0, 0, -2, -2, 2, -2, 0, 0, 4, -4, 8, 4, -6, 0, -4, 0, 0, -2, 4, -4, 0, -2, 2, -4, 0, 0, 0, 0, 2, 2, 2, 0, 2, -4, 2, 0, 2, 2, -4, 0, 2, 0, 0, 0, 6, 2, 0, 0, 0, -2, 2, 8, -4, -2, 2, 2, -2, -2]:

> AvIt(D10,10,9);

> D100:=[-10, -4, -4, 10, -4, 6, 30, 8, 6, -16, -4, -10, 16, -12, 0, 2, 14, -12, 12, 6, -2, -6, 0, -4, -10, -4, 6, -2, 12, -4, -12, -8, -10, -12, 2, -16, 6, -6, 2, 8, -4, -10, -8, 10, 6, 2, -8, 6, 12, -26, 8, -2, 0, -4, 14, -8, 14, 12, 10, 4, 0, 2, -12, 2, -2, -8, 2, -8, 2, 0, 2, -4, 2, -20, 4, 14, -4, -2, 8, -12, -18, 6, 4, -12, 16, 2, -10, -10, 6, -24, -10, -26, -2, -8, 18, 10, 0, 0, -18, 14, -12, 6, -8, 10, 2, 0, 2, 0, 8, 2, -16, -6, -22, -6, -8, 4, 6, -8, 6, 0, -2, 26, -22, -6, 2, 4, -10, -4, 22, 4, -24, 10, 8, 6, 2, 28, 4, 12, 2, 8, -4, 8, -4, -6, 2, -14, -8, 0, -8, 6, 4, 2, 14, -12, -16, -8, -18, 6, 4, -4, -8, -16, -16, 4, 4, -2, 2, 0, -2, 24, -2, 14, 0, 20, 12, 4, 4, 6, 6, 0, -6, 16, 2, -10, 12, -26, 2, -2, 10, 0, -8, -10, -10, 26, 10, 24, 28, 8, -4, -10, 18, 8, -10, 6, -16, 8, 8, 12, -8, 14, 0, -2, -18, 10, 4, -14, 8, -2, 4, 2, -6, 0, 8, -2, -12, -10, -6, -10, -16, -8, 4, 16, 0, -8, 0, 10, -2, -2, -8, -2, 4, 14, 2, 14, 8, -14, -24, -14, 20, 6, -20, 10, -2, -16, 2, -20, 22, -6, -2, -6, 10, 0, -6, -12, 6, 12, 0, -8, 16, 8, 10, 14, -2, 8, 4, -4, 2, 2, 4, 24, -10, 10, -10, 12, -2, 0, 10, 8, -14, -6, -2, -16, -8, 6, -6, -6, -8, 10, -2, 18, -20, 2, -10, 4, -2, 0, -4, -2, -2, -8, -14, -8, -2, 4, 2, -4, 6, 0, -4, -14, -8, -2, -24, 4, -20, -14, 14, -8, 8, -10, 10, 24, 22, 16, 8, -8, 20, -12, -6, -10, 6, -6, -16, 12, -20, -2, 10, -12, 0, -2, -8, 8, -10, -6, -8, 10, 6, -10, 4, -4, 2, 2, 4, 6, 6, -2, -12, -2, -12, 14, -16, -4, 12, 0, 14, -8, -10, -16, 8, -8, -6, -16, -10, -4, 2, -6, 16, 12, 4, 14, 24, -10, 14, 2, 2, -2, 2, 14, 0, -2, -6, -18, 20, 12, -4, 12, -8, -10, 10, -8, -2, -14, -4, -18, 2, -4, 10, -2, 8, 2, 4, -10, 12, -16, -4, 0, 14, 2, 8, 8, 10, -2, 2, -8, -12, 14, -2, -6, 10, -4, 12, 14, 12, -6, -12, 22, 8, -2, -16, 6, 10, 10, -12, 32, 4, -2, -4, -2, 12, 22, -4, 2, 0, 2, -2, 10, -6, -4, 8, -2, 6, -10, -4, -2, 12, 6, 8, 6, -8, -12, -20, 6, 8, 4, 20, -10, 12, -2, -8, 8, -12, 20, 16, 8, 8, 0, 2, 2, -8, -14]:

> AvIt(D100,100,11);

> D1000:=[32, 0, 20, 32, 4, -6, -10, 50, 30, -10, -30, 80, 0, 18, 20, -44, 24, 16, 54, -20, 38, -24, -18, 40, 12, 28, 62, 4, -8, -26, -8, 14, -8, -8, -32, 40, 74, 8, 96, 52, -8, -8, 22, -20, -16, -4, -34, 8, 6, -50, -30, 10, -24, 2, 42, 34, -8, 0, 32, -46, 22, -24, 0, -6, 20, 2, 36, -78, 50, -4, -32, -4, 6, 2, 52, -34, 60, 42, 52, -56, -4, 4, 20, 96, -16, -20, -64, 6, -10, -28, 68, 12, -10, -10, -20, 18, 14, -70, 24, -34, 10, 8, -38, 6, -38, -4, 8, 22, 46, 46, -14, -10, 4, -78, -16, -34, 82, -26, 24, 42, -24, 18, 34, 28, 0, 10, 10, -24, 18, -22, -16, 0, 38, -16, 36, -68, -10, 20, -18, -42, 34, -62, 30, 16, 14, 22, 12, -14, -46, -20, 48, -22, -12, -40, -22, 10, -50, 14, 56, -28, -28, -10, 64, -2, 54, 40, -8, -62, 8, 16, -38, 26, 62, -2, -14, -42, -34, -60, 64, -30, -18, 6, -28, 6, 44, 0, -22, 18, 2, 38, 70, 4, 2, 18, 22, -22, -20, -28, 0, -76, 4, 4, 20, -58, -10, -8, -24, 18, 14, 20, -16, -10, 16, -42, 8, -72, -20, 6, 50, -10, 28, -2, 12, -64, 30, 22, -42, -28, 4, -18, -12, 4, 30, 36, -22, 38, 22, -2, 34, 28, -40, 42, -28, 42, 30, 20, -4, 28, 44, 26, -32, 14, -42, -2, 4, 4, -32, 44, -56, -36, -20, 48, 52, 38, 6, -12, -24, -20, -26, -4, -10, 18, 30, 38, 18, 32, -30, -60, -72, -40, 4, -40, -6, -30, 2, 24, -16, 26, 18, -14, 48, 12, -66, 50, 2, -82, -2, -28, 24, 18, 82, 28, 14, -22, -46, -34, 30, 30, -32, 62, -40, 6, -8, -12, 0, 0, -22, -6, -20, -2, -6, 18, 38, 8, 12, -24, -54, -26, 18, -8, -6, 8, -10, -62, 8, 8, -8, 56, 12, 14, -14, -44, 44, 12, 36, 2, 8, 76, 10, 52, 0, -10, -50, -22, 12, 12, 80, 26, 22, -74, -6, 12, 20, -28, 8, 16, -6, -26, 8, 14, 26, -30, 6, -16, -30, -10, -16, -38, 16, -20, -6, -12, -28, -18, 22, 36, 6, 88, -50, -10, -14, -34, 8, 22, -38, -18, -36, 30, -34, -18, -34, -8, -56, -22, -34, 32, -6, 12, -24, -34, -24, 54, -50, 42, -10, -2, 2, -44, -42, 26, 24, 70, 6, -58, 22, -44, -48, -8, -28, -12, 50, -62, 8, -48, -48, 18, -44, -52, 8, -8, -52, -38, 18, -44, -12, 42, -2, 52, -10, -46, 32, -14, -52, 26, 16, 28, -8, 34, 28, -58, -28, -54, 8, -22, 20, 24, 34, 22, -22, 8, 20, 22, 12, -10, 0, -2, 2, 4, 6, 2, -46, -38, 10, -28, -32, -20, 20, 8, 10, 26, -20, 10, 2, 58, -34, -6, -4, 64, 68, -40]:

> AvIt(D1000,1000,11);

>