summaryrefslogtreecommitdiff
path: root/1271/CH9/EX9.4/example9_4.sce
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /1271/CH9/EX9.4/example9_4.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 '1271/CH9/EX9.4/example9_4.sce')
-rwxr-xr-x1271/CH9/EX9.4/example9_4.sce15
1 files changed, 15 insertions, 0 deletions
diff --git a/1271/CH9/EX9.4/example9_4.sce b/1271/CH9/EX9.4/example9_4.sce
new file mode 100755
index 000000000..51ab1a241
--- /dev/null
+++ b/1271/CH9/EX9.4/example9_4.sce
@@ -0,0 +1,15 @@
+clc
+// Given that
+D = 5e-4 // electric displacement vector in C/m^2
+P = 4e-4 // electric polarization vector in C/m^2
+v = 0.5 // volume of the slab in m^3
+e_ = 8.85e-12 // electric permittivity of air in C^2/Nm^2
+// Sample Problem 4 on page no. 9.12
+printf("\n # PROBLEM 4 # \n")
+printf(" Standard formula used \n")
+printf(" D= e_*E.\n\n ")
+E= (D-P)/ e_
+k = D/(e_*E)
+p = P*v
+energy_density = 1/2 * k*e_*E^2
+printf("Value of relative permittivity is %d. \n Total dipole moment of the slab is %e C-m.",k,p )