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 /3014/CH7/EX7.5/Ex7_5.sce | |
| 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 '3014/CH7/EX7.5/Ex7_5.sce')
| -rwxr-xr-x | 3014/CH7/EX7.5/Ex7_5.sce | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/3014/CH7/EX7.5/Ex7_5.sce b/3014/CH7/EX7.5/Ex7_5.sce new file mode 100755 index 000000000..5d50688ed --- /dev/null +++ b/3014/CH7/EX7.5/Ex7_5.sce @@ -0,0 +1,19 @@ +
+clc
+//Given that
+k = 80 // relative Dielectric constant of sea water
+epsilon_0 = 1/9e9 // Permittivity of free space
+epsilon = 80*epsilon_0 // Permittivity of free space
+sigma = 4.3 // conductivity in mho/m
+delta = 10 // penetration depth in cm
+mu_0 = 4*%pi*1e-7 // permeability f free space
+F = 1e8 // Given frequency in Hz
+printf("Example 7.5")
+f = (1/(%pi*mu_0*sigma))/(delta*1e-2)^2 // Calculation of frequency
+f1= ceil(f/1e8)*1e8 // Rounding off
+printf("\nFrequency required for penetration of depth %d cm is %e Hz",delta,f1)
+omega = 2*%pi*F
+x = 2*sigma/(epsilon*omega)
+if x>1 then
+ printf("\n Sea water is good conductor at frequency lesser than 1e8 Hz\n\n ")
+end
|