%PROGRAM TO FIND OUT MAGNETIC FIELD INTENSITY DUE TO INFINITELY LONG
%CURRENT CARRYING FILAMENT

I = input('Enter the value of current in Amperes = ');

P = input('Enter the value of radius in meters = ');

%Calculate Magnetic Field Intensity
H = I/(2*pi*P);

disp('The Magnetic Field Intensity due to Infinitely Long current carrying wire is = ');

H