6 files changed, 129 insertions, 0 deletions
diff --git a/608/CH45/EX45.01/45_01.sce b/608/CH45/EX45.01/45_01.sce
new file mode 100755
index 000000000..37fbae79e
--- /dev/null
+++ b/608/CH45/EX45.01/45_01.sce
@@ -0,0 +1,25 @@
+//Problem 45.01: A 500 nF capacitor is connected in series with a 100 kohm resistor and the circuit is connected to a 50 V, d.c. supply. Calculate (a) the initial value of current flowing, (b) the value of current 150 ms after connection, (c) the value of capacitor voltage 80 ms after connection, and (d) the time after connection when the resistor voltage is 35 V.
+
+//initializing the variables:
+C = 500E-9; // in Farad
+R = 100000; // in Ohm
+V = 50; // in VOlts
+ti = 0.15; // in sec
+tc = 0.08; // in sec
+Vrt = 35; // in Volts
+
+//calculation:
+//Initial current, 
+i0 = (V/R)
+//when time t = 150ms current is
+i150 = (V/R)*%e^(-1*ti/(R*C))
+//capacitor voltage, Vc
+Vc = V*(1 - %e^(-1*tc/(R*C)))
+//time, t
+tvr = -1*R*C*log(Vrt/V)
+
+printf("\n\n Result \n\n")
+printf("\n initial value of current flowing is %.2E A",i0)
+printf("\n current flowing at t = 150ms is %.2E A",i150)
+printf("\n  value of capacitor voltage at t = 80ms is %.2f V",Vc)
+printf("\n  the time after connection when the resistor voltage is 35 V is %.4f sec",tvr)
diff --git a/608/CH45/EX45.02/45_02.sce b/608/CH45/EX45.02/45_02.sce
new file mode 100755
index 000000000..abe0fa15b
--- /dev/null
+++ b/608/CH45/EX45.02/45_02.sce
@@ -0,0 +1,14 @@
+//Problem 45.02: A d.c. voltage supply of 200 V is connected across a 5 μF capacitor as shown in Figure 45.5. When the supply is suddenly cut by opening switch S, the capacitor is left isolated except for a parallel resistor of 2 Mohm. Calculate the p.d. across the capacitor after 20 s.
+
+//initializing the variables:
+C = 5E-6; // in Farad
+R = 2000000; // in Ohm
+V = 200; // in VOlts
+tc = 20; // in sec
+
+//calculation:
+//capacitor voltage, Vc
+Vc = V*(%e^(-1*tc/(R*C)))
+
+printf("\n\n Result \n\n")
+printf("\n  value of capacitor voltage at t = 20s is %.2f V",Vc)
diff --git a/608/CH45/EX45.03/45_03.sce b/608/CH45/EX45.03/45_03.sce
new file mode 100755
index 000000000..703ee814b
--- /dev/null
+++ b/608/CH45/EX45.03/45_03.sce
@@ -0,0 +1,29 @@
+//Problem 45.03: A coil of inductance 50 mH and resistance 5 ohm is connected to a 110 V, d.c. supply. Determine (a) the final value of current, (b) the value of current after 4 ms, (c) the value of the voltage across the resistor after 6 ms, (d) the value of the voltage across the inductance after 6 ms, and (e) the time when the current reaches 15 A.
+
+//initializing the variables:
+L = 0.05; // in Henry
+R = 5; // in Ohm
+V = 110; // in VOlts
+ti = 0.004; // in sec
+tvr = 0.006; // in sec
+tvl = 0.006; // in sec
+it = 15; // in amperes
+
+//calculation:
+//steady state current i
+i = V/R
+//when time t = 4ms current is
+i4 = (V/R)*(1 - %e^(-1*ti*R/L))
+//resistor voltage, VR
+VR6 = V*(1 - %e^(-1*tvr*R/L))
+//inductor voltage, VL
+VL6 = V*(%e^(-1*tvl*R/L))
+//time, t
+ti = (-1*L/R)*log(1 - it*R/V)
+
+printf("\n\n Result \n\n")
+printf("\n steady state current i is %.0f A",i)
+printf("\n when time t = 4ms current is is %.2f A",i4)
+printf("\n  value of resistor voltage at t = 6ms is %.2f V",VR6)
+printf("\n  value of inductor voltage at t = 6ms is %.2f V",VL6)
+printf("\n  the time after connection when the current is 15 A is %.5f sec",ti)
diff --git a/608/CH45/EX45.04/45_04.sce b/608/CH45/EX45.04/45_04.sce
new file mode 100755
index 000000000..d71ea6b36
--- /dev/null
+++ b/608/CH45/EX45.04/45_04.sce
@@ -0,0 +1,17 @@
+//Problem 45.04:  In the circuit shown in Figure 45.8, a current of 5 A flows from the supply source. Switch S is then opened. Determine (a) the time for the current in the 2 H inductor to fall to 200 mA, and (b) the maximum voltage appearing across the resistor.
+
+//initializing the variables:
+i = 5; // in Amperes
+L = 2 // in Henry
+i1 = 0.2; // in Amperes
+R = 10; // in Ohm
+
+//calculation:
+//time t
+ti = (-1*L/R)*log(i1/i)
+//voltage across the resistor is a maximum 
+VRm = i*R
+
+printf("\n\n Result \n\n")
+printf("\n  time t for the current in the 2 H inductor to fall to 200 mA is %.3f sec",ti)
+printf("\n  max voltage across the resistor is %.0f V",VRm)
diff --git a/608/CH45/EX45.05/45_05.sce b/608/CH45/EX45.05/45_05.sce
new file mode 100755
index 000000000..f9554f693
--- /dev/null
+++ b/608/CH45/EX45.05/45_05.sce
@@ -0,0 +1,30 @@
+//Problem 45.05:  A series L –R–C circuit has inductance, L = 2 mH, resistance, R = 1 kohm and capacitance, C = 5 μF. (a) Determine whether the circuit is over, critical or underdamped. (b) If C = 5 nF, determine the state of damping.
+
+//initializing the variables:
+L = 0.002 // in Henry
+R = 1000; // in Ohm
+C1 = 5E-6; // in farad
+C2 = 5E-9; // in farad
+
+//calculation:
+a = (R/(2*L))^2
+b = 1/(L*C1)
+if (a>b) then
+	s1 = "overdamped";
+elseif (a<b) then
+	s1 = "underdamped";
+else
+	s1 = "critically damped";
+end
+c = 1/(L*C2)
+if (a>c) then
+	s2 = "overdamped";
+elseif (a<c) then
+	s2 = "underdamped";
+else
+	s2 = "critically damped";
+end
+    
+printf("\n\n Result \n\n")
+printf("\n  circuit is %s",s1)
+printf("\n  if C = 5 nF, circuit is %s",s2)
+\ No newline at end of file
diff --git a/608/CH45/EX45.06/45_06.sce b/608/CH45/EX45.06/45_06.sce
new file mode 100755
index 000000000..2630b6c0c
--- /dev/null
+++ b/608/CH45/EX45.06/45_06.sce
@@ -0,0 +1,14 @@
+//Problem 45.06:  In the circuit of problem 45.05, what value of capacitance will give critical damping ?
+
+
+//initializing the variables:
+L = 0.002 // in Henry
+R = 1000; // in Ohm
+
+//calculation:
+a = (R/(2*L))^2
+//for critically damped
+C = 4*L/R^2
+	
+printf("\n\n Result \n\n")
+printf("\n  capacitance C is %.2E F",C)