//Exa 7.1
clc;
clear;
close;
//Given data
Bo=1.7*10^-5;//in weber/m^2
meu_o=4*%pi*10^-7;//permeability of free space in weber/amp-meter
H=Bo/meu_o;//in A/m
disp(H,"Horizontal component of magnetic filed intensity in A/m : ");