//chapter 38
//Example 5
clc
//given
m_0=(4*%pi*10^-7)//in weber
e_0=(8.9*10^-12)
R=5*10^-2//meters
dEbydT=10^12
B=(0.5*m_0*e_0*R*dEbydT)
disp(" magnetic field in weber/m^2=")
disp(B)