//chapter 38
//Example 6
clc
//given
m_0=(4*%pi*10^-7)//in weber
e_0=(8.9*10^-12)
R=5*10^-2//meters
dEbydT=10^12
i_d=(e_0*%pi*R*R*dEbydT)
disp(" current in amp=")
disp(i_d)