clc;
i=0.1;  //current in Ampere
r=0.05;  //radius in metre
h=(i*100)/(2*(%pi)*r);  //calculating h
disp(h,"H field intensity for 100 turns in A/metre = ");  //displaying result