From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 854/CH6/EX6.1/Example6_1.sce | 22 ++++++++++++++++++++++
 854/CH6/EX6.2/Example6_2.sce | 19 +++++++++++++++++++
 854/CH6/EX6.3/Example6_3.sce | 16 ++++++++++++++++
 3 files changed, 57 insertions(+)
 create mode 100755 854/CH6/EX6.1/Example6_1.sce
 create mode 100755 854/CH6/EX6.2/Example6_2.sce
 create mode 100755 854/CH6/EX6.3/Example6_3.sce

(limited to '854/CH6')

diff --git a/854/CH6/EX6.1/Example6_1.sce b/854/CH6/EX6.1/Example6_1.sce
new file mode 100755
index 000000000..26f161873
--- /dev/null
+++ b/854/CH6/EX6.1/Example6_1.sce
@@ -0,0 +1,22 @@
+//clear//
+//Caption: Program to calculate D,E and Polarization P for Teflon slab
+//Example6.1
+//page 142
+clc;
+ax = sym('ax');
+e0 = sym('e0');
+E0 = sym('E0');
+Ein = sym('Ein');
+er = 2.1; //relative permittivity of teflon
+chi = er-1; //electric susceptibility 
+Eout = E0*ax;
+Dout = float(e0*Eout);
+Din = float(er*e0*Ein);
+Pin = float(chi*e0*Ein);
+disp(Dout,'Dout in c/square.metre = ')
+disp(Din,'Din in c/square.metre = ')
+disp(Pin,'Polarization in coulombs per square metre Pin =')
+//Result
+//Dout in c/square.metre =   ax*e0*E0   
+//Din in c/square.metre =    2.1*e0*Ein   
+//Polarization in coulombs per square metre Pin =  1.1*e0*Ein   
diff --git a/854/CH6/EX6.2/Example6_2.sce b/854/CH6/EX6.2/Example6_2.sce
new file mode 100755
index 000000000..165fa1713
--- /dev/null
+++ b/854/CH6/EX6.2/Example6_2.sce
@@ -0,0 +1,19 @@
+//clear//
+//Caption: Program to calculate E and Polarization P for Teflon slab
+//Example6.2
+//page 146
+clc;
+ax = sym('ax');
+e0 = sym('e0');
+E0 = sym('E0');
+er = 2.1; //relative permittivity of teflon
+chi = er-1; //electric susceptibility 
+Eout = E0*ax;
+Ein = float(Eout/er);
+Din = float(e0*Eout);
+Pin = float(Din - e0*Ein);
+disp(Ein,'Ein in V/m = ')
+disp(Pin,'Polarization in coulombs per square metre Pin =')
+//Result
+//Ein in V/m =  0.47619047619048*ax*E0   
+//Polarization in coulombs per square metre Pin = 0.52380952380952*ax*e0*E0 
diff --git a/854/CH6/EX6.3/Example6_3.sce b/854/CH6/EX6.3/Example6_3.sce
new file mode 100755
index 000000000..53b638a6a
--- /dev/null
+++ b/854/CH6/EX6.3/Example6_3.sce
@@ -0,0 +1,16 @@
+//clear//
+//Caption: Program to calculate the capacitance of a parallel plate capacitor
+//Example6.3
+//page 151
+clc;
+S = 10;//area in square inch
+S = 10*(0.0254)^2; //area in square metre
+d = 0.01; //distance between the plates in inch
+d = 0.01*0.0254; //distance between the plates in metre
+e0 = 8.854e-12; //free space permittivity in F/m
+er = 6; //relative permittivity of mica
+e = e0*er;
+C =  parallel_capacitor(e,S,d);
+disp(C*1e09,'Capacitance of a parallel plate capacitor in pico farads C =')
+//Result
+//Capacitance of a parallel plate capacitor in pico farads C = 1.3493496  
-- 
cgit