initial commit / add all books

7 files changed, 125 insertions, 0 deletions

diff --git a/3487/CH7/EX7.1/Ex7_1.sce b/3487/CH7/EX7.1/Ex7_1.sce
new file mode 100644
index 000000000..1045e31aa
--- /dev/null
+++ b/3487/CH7/EX7.1/Ex7_1.sce
@@ -0,0 +1,45 @@
+//Chapter 7,Example 7.1 Page 221
+clc
+clear
+//(i)The natural impedence of the line
+d = 100
+r = 0.75
+E0 = 10^-9/36 //Epselon 
+L = 2*10^-7*log(d/r) // inductance per unit length
+C = 2*E0/log(d/r) // capacitance per phase per unit length
+NI = sqrt(L/C) // nautral impedence
+printf ("(i) The natural impedence of the line \n")
+printf (" The natural impedance = %f ohms \n\n",NI)
+//(ii) the line current
+V = 11000 // V
+R = 1000
+Z2= 1000 
+Z1 = 294
+I = V/(sqrt(3)*NI) // the line current
+printf ("(ii) The line current \n")
+printf (" The line current = %f amps \n\n",I)
+//(iii) the rate of power consumption
+E1 = 2*V*R/(sqrt(3)*(Z1+Z2)) 
+P = 3*E1^2*1000/R
+printf ("(iii) The rate of power consumption \n")
+printf (" The rate of power consumption = %f kW \n",P*10^-6)
+E2 = ((Z2-Z1)/(Z2+Z1))*(11/sqrt(3))
+Er = 3*(E2^2)*1000/Z1
+printf (" The rate of reflected energy = %f kW \n\n",Er)
+//(iv) the rate of reflected energy
+printf ("(iv) The rate of reflected energy \n")
+printf (" In order that the incident wave when reaches the terminating resistance, \n does not suffer reflection, the terminating resistance should be equal to \n the surge impedance of the line, i.e.%f ohms \n\n",NI)
+//(v) The amount of reflected and transmitted power
+printf ("(v) The amount of reflected and transmitted power \n")
+L = 0.5*10^-8
+C = 10^-12
+SI = sqrt(L/C) // surge impedence of the cable
+printf (" Surge impedence of the cable = %f ohm \n",SI)
+ReffV = (2*SI/(Z1+SI))*(11/sqrt(3)) // refracted voltage
+Rif = ((SI-Z1)/(Z1+SI))*(11/sqrt(3)) // reflected voltage
+refP = 3*ReffV^2*1000/SI
+rifp = 3*Rif^2*1000/Z1
+printf (" Refracted powers = %f kW \n",refP) // refracted powers
+printf (" Reflected powers = %f kW \n",rifp) // reflected powers
+ 
+// Answers may vary due to round off error
diff --git a/3487/CH7/EX7.2/Ex7_2.sce b/3487/CH7/EX7.2/Ex7_2.sce
new file mode 100644
index 000000000..d4a8262f5
--- /dev/null
+++ b/3487/CH7/EX7.2/Ex7_2.sce
@@ -0,0 +1,17 @@
+//Chapter 7,Example 7.2 Page 222
+clc
+clear
+Lc = 0.3*10^-3 // H
+Cc= 0.4*10^-6 // F
+Ll = 1.5*10^-3 // H
+Cl = 0.012*10^-6 //F
+V = 15 // kV
+Ic = sqrt(Lc/Cc) // The natural impedence of the cable
+Il = sqrt(Ll/Cl) // The natural impedence of the line
+E = 2*Il*V/(Ic+Il) 
+printf ("The natural impedence of the cable = %f ohms \n",Ic) // unit failed to be mentioned 
+printf (" The natural impedence of the line = %f ohms \n",Il)
+printf (" E′′ = %f kV \n",E)
+
+// Answers may vary due to round of error
+
diff --git a/3487/CH7/EX7.3/Ex7_3.sce b/3487/CH7/EX7.3/Ex7_3.sce
new file mode 100644
index 000000000..fa5f99a6a
--- /dev/null
+++ b/3487/CH7/EX7.3/Ex7_3.sce
@@ -0,0 +1,15 @@
+//Chapter 7,Example 7.3 Page 223
+clc
+clear
+E = 100
+Z1 = 1/600 // 1/Z1
+Z2 = 1/800 // 1/Z2
+Z3 = 1/200 // 1/Z3
+E11 = (2*E*Z1)/((Z1+Z2+Z3)*10^-3)
+Iz2 = E11*1000*Z2
+Iz3 = E11*1000*Z3
+printf (" E'' = %f kV \n",E11*10^-3)
+printf (" Iz2′= %f amps \n",Iz2*10^-3)
+printf (" Iz3′= %f amps \n",Iz3*10^-3)
+
+//Answers may vary due to round off error
diff --git a/3487/CH7/EX7.4/Ex7_4.sce b/3487/CH7/EX7.4/Ex7_4.sce
new file mode 100644
index 000000000..219ec6ee1
--- /dev/null
+++ b/3487/CH7/EX7.4/Ex7_4.sce
@@ -0,0 +1,11 @@
+//Chapter 7,Example 7.4 Page 226
+clc
+clear
+E = 500
+t = 2*10^-6
+Z = 350
+C = 3000
+E1 = 2*E*(1-exp((-t*10^12)/(Z*C)))
+printf (" E'' = %f kV \n",E1)
+
+//Answers may vary due to round off error
diff --git a/3487/CH7/EX7.5/Ex7_5.sce b/3487/CH7/EX7.5/Ex7_5.sce
new file mode 100644
index 000000000..2d16ee499
--- /dev/null
+++ b/3487/CH7/EX7.5/Ex7_5.sce
@@ -0,0 +1,10 @@
+//Chapter 7,Example 7.5 Page 226
+clc
+clear
+E = 500
+Z = 350
+L = 800
+E1 = E*(1-exp(-(2*Z/L)*2))
+printf (" E'' = %f kV \n",E1)
+
+//Answers may vary due to round off error
diff --git a/3487/CH7/EX7.6/Ex7_6.sce b/3487/CH7/EX7.6/Ex7_6.sce
new file mode 100644
index 000000000..cce7de5d6
--- /dev/null
+++ b/3487/CH7/EX7.6/Ex7_6.sce
@@ -0,0 +1,21 @@
+//Chapter 7,Example 7.6 Page 228
+clc
+clear
+e0 = 50
+x = 50
+R = 6
+Z = 400
+v = 3*10^5
+//(i)Value of the voltage wave when it has travelled through a distance of 50 km
+pow = (-1/2)*(6/400)*50
+e = e0*exp(pow)
+//(ii)The power loss and the heat loss
+PL = e^2*1000/Z // power loss
+t = x/v
+i0 = e0*1000/Z
+HL = -x*i0*Z*(exp(-0.75)-1)/(R*v) // Heat loss
+printf (" e = %f kV \n",e)
+printf (" Power loss = %f kW \n",PL)
+printf (" Heat loss = %f kJ \n",HL)
+
+// Answers may vary due to round off error
diff --git a/3487/CH7/EX7.7/Ex7_7.sce b/3487/CH7/EX7.7/Ex7_7.sce
new file mode 100644
index 000000000..e6d585651
--- /dev/null
+++ b/3487/CH7/EX7.7/Ex7_7.sce
@@ -0,0 +1,6 @@
+//Chapter 7,Example 7.7 Page 213
+clc
+clear
+//Based on equation 7.3, 7.5 and 7.7
+v = 1/sqrt((4/36)*10^-9*10^-7) 
+printf (" v = %e meters/sec ",v)