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 /1535/CH13/EX13.7 | |
| 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 '1535/CH13/EX13.7')
| -rwxr-xr-x | 1535/CH13/EX13.7/Ch13Ex7.sci | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/1535/CH13/EX13.7/Ch13Ex7.sci b/1535/CH13/EX13.7/Ch13Ex7.sci new file mode 100755 index 000000000..2a096a959 --- /dev/null +++ b/1535/CH13/EX13.7/Ch13Ex7.sci @@ -0,0 +1,9 @@ +// Scilab Code Ex13.7: Ratio of electronic polarizability to ionic polarizability: Page-289 (2010)
+epsilon_r = 4.9; // Absolute relative dielectric constant of material, farad per metre
+n = 1.6; // Refractive index of dielectric material
+// As (n^2 - 1)/(n^2 + 2)*(alpha_e + alpha_i)/alpha_e = N*(alpha_e + alpha_i)/(3*epsilon_0) = (epsilon_r - 1)/(epsilon_r + 2), solving for alpha_i/alpha_e
+alpha_ratio = ((epsilon_r - 1)/(epsilon_r + 2)*(n^2 + 2)/(n^2 - 1) - 1)^(-1); // Ratio of electronic polarizability to ionic polarizability
+printf("\nThe ratio of electronic polarizability to ionic polarizability = %4.2f", alpha_ratio);
+
+// Result
+// The ratio of electronic polarizability to ionic polarizability = 1.53
\ No newline at end of file |