1 files changed, 31 insertions, 0 deletions
diff --git a/608/CH33/EX33.06/33_06.sce b/608/CH33/EX33.06/33_06.sce
new file mode 100755
index 000000000..8e3938d9b
--- /dev/null
+++ b/608/CH33/EX33.06/33_06.sce
@@ -0,0 +1,31 @@
+//Problem 33.06: Use Th´evenin’s theorem to determine the current flowing in the capacitor of the network shown in Figure 33.29.
+
+//initializing the variables:
+rv = 16.55; // in volts
+thetav = -22.62; // in degrees
+R1 = 4; // in ohm
+R2 = %i*2; // in ohm
+R3 = %i*6; // in ohm
+R4 = 3; // in ohm
+R5 = 5; // in ohm
+R6 = -1*%i*8; // in ohm
+
+//calculation:
+//voltage
+V = rv*cos(thetav*%pi/180) + %i*rv*sin(thetav*%pi/180)
+//The capacitor is removed from branch AB, as shown in Figure 33.30.
+//Impedance, Z
+Z1 = R3 + R4 + R5
+Z = R1 + (Z1*R2/(R2 + Z1))
+I1 = V/Z
+I2 = (R2/(R2 +Z1))*I1
+//The open-circuit voltage, E
+E = I2*R5
+//If the voltage source is removed from Figure 33.30, the impedance, z, ‘looking in’ at AB is given by
+z = R5*((R1*R2/(R1 + R2)) + R3 + R4)/(R5 + ((R1*R2/(R1 + R2)) + R3 + R4))
+//The Th´evenin equivalent circuit is shown in Figure 33.31, where the current flowing in the capacitor, I, is given by
+I = E/(z + R6)
+Imag = (real(I)^2 + imag(I)^2)^0.5
+phiid = (atan(imag(I)/real(I)))*180/%pi
+printf("\n\n Result \n\n")
+printf("\n the current flowing in the capacitor of the network is %.2f/_%.2f° A",Imag,phiid)
+\ No newline at end of file