7 files changed, 103 insertions, 0 deletions
diff --git a/3487/CH6/EX6.1/Ex6_1.sce b/3487/CH6/EX6.1/Ex6_1.sce
new file mode 100644
index 000000000..89cc90988
--- /dev/null
+++ b/3487/CH6/EX6.1/Ex6_1.sce
@@ -0,0 +1,18 @@
+//Chapter 6,Example 6.1 Page 198
+clc
+clear
+Cs = 106 // micro F
+C2 = 0.35 // micro F
+R2 = 318 // ohms
+R1 = 130 // ohms
+w = 314
+Rs = R1*(C2/Cs)
+Cs1 = Cs*(R2/R1)
+tang = w*Cs1*10^-6*Rs
+cosp = tang
+printf (" Rs = %f ohm \n ",Rs)
+printf (" Cs = %f μF \n ",Cs1)
+printf (" tan δ s = %f \n ",tang)
+printf (" cos φ = %f \n ",cosp)
+ 
+//Answers may vary due to round off error
diff --git a/3487/CH6/EX6.2/Ex6_2.sce b/3487/CH6/EX6.2/Ex6_2.sce
new file mode 100644
index 000000000..805a7b429
--- /dev/null
+++ b/3487/CH6/EX6.2/Ex6_2.sce
@@ -0,0 +1,16 @@
+//Chapter 6,Example 6.2 Page 199
+clc
+clear
+Cs = 106 // micro F
+C2 = 0.35 // micro F
+R2 = 318 // ohms
+R1 = 130 // ohms
+w = 314
+Cp = Cs*(R2/R1)
+Rp = R1/(w^2*C2*Cs*10^-12*R2^2)
+tang = 1/(w*Rp*Cp*10^-6)
+printf (" Rp = %f ohm \n ",Rp)
+printf (" Cp = %f μF \n ",Cp)
+printf (" tan δ = %f \n ",tang)
+
+//Answers may vary due to round off error
diff --git a/3487/CH6/EX6.3/Ex6_3.sce b/3487/CH6/EX6.3/Ex6_3.sce
new file mode 100644
index 000000000..a9ac4ddbb
--- /dev/null
+++ b/3487/CH6/EX6.3/Ex6_3.sce
@@ -0,0 +1,19 @@
+//Chapter 6,Example 6.3 Page 199
+clc
+clear
+Cs = 500*10^-12 // F
+R1 = 800 // ohm
+R2 = 180 // ohm
+C2 = 0.15 // micro F
+w = 314
+V = 33*10^3
+Cp = Cs*(R2/R1)
+Rp = R1/(w^2*C2*Cs*10^-6*R2^2)
+tang = 1/(w*Rp*Cp)
+pl = V^2/Rp
+printf (" Rp = %e ohm \n ",Rp)
+printf (" Cp = %e F \n ",Cp)
+printf (" tan δ = %f \n ",tang)
+printf (" Power loss = %f watts \n ",pl)
+
+//Answer may vary due to round off error
diff --git a/3487/CH6/EX6.4/Ex6_4.sce b/3487/CH6/EX6.4/Ex6_4.sce
new file mode 100644
index 000000000..a67907f49
--- /dev/null
+++ b/3487/CH6/EX6.4/Ex6_4.sce
@@ -0,0 +1,9 @@
+//Chapter 6,Example 6.4 Page 200
+clc
+clear
+t = 60
+C = 600*10^-12
+V = 250
+v = 92
+R = t/(C*log(V/v))
+printf (" R = %e ohm \n ",R)
diff --git a/3487/CH6/EX6.5/Ex6_5.sce b/3487/CH6/EX6.5/Ex6_5.sce
new file mode 100644
index 000000000..03462f8f8
--- /dev/null
+++ b/3487/CH6/EX6.5/Ex6_5.sce
@@ -0,0 +1,17 @@
+//Chapter 6,Example 6.5 Page 200
+clc
+clear
+Ca = 50 // pF
+C = 190 // pF
+loss = 0.0085 // loss angle of electrodes
+Er = C/Ca
+tang = 0.0085
+Er1 = Er*tang
+E0 = 8.854*10^-1
+E1 = E0*Er
+jE1 = E0*Er1
+printf (" The dielectric constant = %f \n ",Er)
+printf (" tan δ = %f \n ",tang)
+printf (" E = (%f - j %f ) * 10^-11 F/m \n ",E1,jE1)
+
+//Answer may vary due to round off
diff --git a/3487/CH6/EX6.6/Ex6_6.sce b/3487/CH6/EX6.6/Ex6_6.sce
new file mode 100644
index 000000000..144ae7a04
--- /dev/null
+++ b/3487/CH6/EX6.6/Ex6_6.sce
@@ -0,0 +1,12 @@
+//Chapter 6,Example 6.6 Page 201
+clc
+clear
+w = 314
+E0 = 8.854*10^-12
+Er = 3.8
+tang = 0.0085
+E = 40*10^5
+sigE = w*E0*Er*tang*E^2
+printf (" σE^2 = %f Watts/m^3\n ",sigE)
+
+//Answers may vary due to round off 
diff --git a/3487/CH6/EX6.7/Ex6_7.sce b/3487/CH6/EX6.7/Ex6_7.sce
new file mode 100644
index 000000000..ddcc96613
--- /dev/null
+++ b/3487/CH6/EX6.7/Ex6_7.sce
@@ -0,0 +1,12 @@
+//Chapter 6,Example 6.7 Page 201
+clc
+clear
+//Refer Fig Ex. 6.7
+Er = 3.8
+v = 21 // KV/cm
+ind = v/Er // internal discharge in kV/cm
+V = (ind*0.9)+(v*0.1)
+printf (" Internal discharge = %f kV/cm\n ",ind)
+printf (" V = %f kV rms\n ",V)
+
+//Answer may vary due to round off error