summaryrefslogtreecommitdiff
path: root/3753/CH6/EX6.2/Ex6_2.sce
blob: 30d26fc6eb5d8853a762a9f09d71373642ebf946 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
//Example number 6.2, Page number 6.46

clc;clear;close


// Variable declaration
e=1.6*10**-19;    // charge(coulomb)
new=6.8*10**15;   // frequency(revolutions per second)
mew0=4*%pi*10**-7; // coefficient
R=5.1*10**-11;     // radius(m)

// Calculation
i=(e*new);          // current(ampere)
B=mew0*i/(2*R);            // magnetic field at the centre(weber/m**2)
A=%pi*R**2; // in m^2
d=i*A;                    // dipole moment(ampere/m**2)

// Result
printf("magnetic field at the centre is : %.f weber/m**2",B)
printf("\ndipole moment is : %.e Ampere/m**2",(d))