Procedura na výpočet bodů - při prvním čtení vynechat

>	bb:=proc(x,y,n)

>	local i,k;

>	i:=(log10(y)-log10(x))/(n-1);

>	seq(evalf(10^(log10(x)+(k-1)*i)),k=1..n);

>

end:

>	body:=[seq([bb(2,1e6,100)[i],20*log10(evalf(subs(f=bb(0.3,2e5,100)[i],modul)))],i=1..100)]:

>	semilogplot(body,color=red);