summaryrefslogtreecommitdiff
path: root/2243/CH10/EX10.3/Ex10_3.sce
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /2243/CH10/EX10.3/Ex10_3.sce
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '2243/CH10/EX10.3/Ex10_3.sce')
-rwxr-xr-x2243/CH10/EX10.3/Ex10_3.sce17
1 files changed, 17 insertions, 0 deletions
diff --git a/2243/CH10/EX10.3/Ex10_3.sce b/2243/CH10/EX10.3/Ex10_3.sce
new file mode 100755
index 000000000..13f38e429
--- /dev/null
+++ b/2243/CH10/EX10.3/Ex10_3.sce
@@ -0,0 +1,17 @@
+clc();
+clear;
+//Given :
+e0 = 8.85*10^-12 ; // dielectric constant in farad/m
+er1 = 1.006715 ; //relative dielectric constant
+er2 = 1.005970;// relative dielectric constant
+T1 = 300 ; // Temperature in K (273+27 = 300 K)
+T2 = 450; // Temperature in K (273 + 177 = 450 K)
+k = 1.38*10^-23; // in J/K
+N = 2.44*10^25 ; // molecules/m^3
+//e0*(er1 - er2)= ((N*mu_p^2)/(3*k))*((1/T1)- (1/T2))
+mu_p = sqrt((e0*(er1 - er2)*3*k)/(((1/T1)-(1/T2))* N)); //dipole moment in C m
+D = 3.3*10^-30; // dipole of 1 Debye is equal to 3.33 x 10^-30 C m
+printf("Dipole moment = %.2f debye \n",mu_p/D);
+//e0*(er1 - 1) = N*(alpha_e + alpha_i + (mu_p^2/3*k*T1))
+Sum = ((e0*(er1 - 1))/N) - ((mu_p)^2/(3*k*T1)); // alpha_e + alpha_i in farad m^2
+printf("Sum = %.1f x 10^-39 farad m^2",Sum*10^39);