diff options
Diffstat (limited to '2453/CH6/EX6.5/6_5.sce')
| -rwxr-xr-x | 2453/CH6/EX6.5/6_5.sce | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/2453/CH6/EX6.5/6_5.sce b/2453/CH6/EX6.5/6_5.sce new file mode 100755 index 000000000..7aeaf0c44 --- /dev/null +++ b/2453/CH6/EX6.5/6_5.sce @@ -0,0 +1,7 @@ +//To calculate the electronic polarizability
+epsilon0 = 8.854*10^-12;
+epsilon_r = 1.0000684; //dielectric constant
+N = 2.7*10^25; //density, atoms/m^3
+alpha_e = epsilon0*(epsilon_r-1)/N; //electronic polarizability, Fm^2
+printf("electronic polarizability in Fm^2 is");
+disp(alpha_e);
|