summaryrefslogtreecommitdiff
path: root/854/CH6
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /854/CH6
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 '854/CH6')
-rwxr-xr-x854/CH6/EX6.1/Example6_1.sce22
-rwxr-xr-x854/CH6/EX6.2/Example6_2.sce19
-rwxr-xr-x854/CH6/EX6.3/Example6_3.sce16
3 files changed, 57 insertions, 0 deletions
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