grounding.m

%-----------------------------------------------------------------------
%Electrode Grounding System....
%-----------------------------------------------------------------------

x=1:0.01:10000;
r=x/(2*pi*1)*log(4*1/1);
plot(x,r)
grid on
xlabel('Resistivity Value [Ohm-m]')
ylabel('Resistance of the Ground')
title('The Relation Between Resistivity & Resistance When the Length=1m & Diameter=1cm')

x=1:0.01:30;
r=(50/(2*pi*1)).*log(4*1./x);
figure
plot(x,r)
grid on
xlabel('Diameter of the Electrode [cm]')
ylabel('Resistance of the Ground')
title('The Relation Between the Diameter of the Electrode & Resistance When the Resistivity=50ohm-m & Length=1m')

clear r x

%--------------------------------------------------------------------------
%--------------------------------------------------------------------------
%--------------------------------------------------------------------------