summaryrefslogtreecommitdiff
path: root/3755/CH10/EX10.4/Ex10_4.sce
blob: bc73765319a708356f20d1cddbba35225e07aa90 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
clear
//
//
//

//Variable declaration    
k=1.000074;
epsilon0=8.85*10^-12;        //relative permeability(F/m)
E=1;               //electric field(N/C)
n=2.69*10^25;     //molecular density

//Calculations
p=epsilon0*E*(k-1)/n;    //dipole moment(coulx metre)

//Result
printf("\n dipole moment is %0.2f *10^-41 coul x metre",p*10^41)