diff options
| author | priyanka | 2015-06-24 15:03:17 +0530 |
|---|---|---|
| committer | priyanka | 2015-06-24 15:03:17 +0530 |
| commit | b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch) | |
| tree | ab291cffc65280e58ac82470ba63fbcca7805165 /635/CH14/EX14.2/Ch14Ex2.sci | |
| download | Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2 Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip | |
initial commit / add all books
Diffstat (limited to '635/CH14/EX14.2/Ch14Ex2.sci')
| -rwxr-xr-x | 635/CH14/EX14.2/Ch14Ex2.sci | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/635/CH14/EX14.2/Ch14Ex2.sci b/635/CH14/EX14.2/Ch14Ex2.sci new file mode 100755 index 000000000..c55c48c23 --- /dev/null +++ b/635/CH14/EX14.2/Ch14Ex2.sci @@ -0,0 +1,10 @@ +// Scilab Code Ex14.2 Calculating dielectric constant from electric polarizability of the atom: Page-464 (2010)
+alpha_Kr = 2.18e-040; // Electric polarizability of the Kr-atom, farad-metre square
+NA = 6.023e+023; // Avogadro's number
+epsilon_0 = 8.85e-012; // Electrical permittivity of free space, coulomb square per newton per metre square
+N = NA/(22.4e-03); // Number of Kr atoms per metre cube
+epsilon_r = N*alpha_Kr/epsilon_0 + 1; // Relative electrical permittivity of Kr specimen
+printf("\nThe diectric constant of Kr specimen = %7.5f", epsilon_r);
+// Result
+// The diectric constant of Kr specimen = 1.00066
+
|