R=15e-2; % polmer v m
mi0=4*pi*1e-7; % permeabilnost vakuuma
z=0;

%I=0:0.1:1;
I=1;
z=-20e-2:1e-2:20e-2;

B=mi0*I*R^2./(2*(z.^2+R.^2).^1.5)

plot(z,B,'*-','Linewidth',2)
xlabel('Razdalja  /m')
ylabel('Polje    /T')

% ['   Tok /A  Polje /uT']
[I;B*1e6]'    % Potrebno za Matlab izris v stolpcih