initial commit / add all books

1 files changed, 43 insertions, 0 deletions

diff --git a/608/CH25/EX25.07/25_07.sce b/608/CH25/EX25.07/25_07.sce
new file mode 100755
index 000000000..a4c790679
--- /dev/null
+++ b/608/CH25/EX25.07/25_07.sce
@@ -0,0 +1,43 @@
+//Problem 25.07: (a) For the network diagram of Figure 25.8, determine the value of impedance Z1 (b) If the supply frequency is 5 kHz, determine the value of the components comprising impedance Z1.

+

+//initializing the variables:

+RL = %i*6; // in ohm

+R2 = 8; // in ohm

+Z3 = 10; // in ohm

+rv = 50; // in volts

+thetav = 30; // in degrees

+ri = 31.4; // in amperes

+thetai = 52.48; // in degrees

+f = 5000; // in Hz

+

+//calculation:

+//impedance, Z2

+Z2 = R2 + RL

+//voltage

+V = rv*cos(thetav*%pi/180) + %i*rv*sin(thetav*%pi/180)

+//current, I

+I = ri*cos(thetai*%pi/180) + %i*ri*sin(thetai*%pi/180)

+//Total circuit admittance,

+YT = I/V

+//admittance, Y3

+Y3 = 1/Z3

+//admittance, Y2

+Y2 = 1/Z2

+//admittance, Y1

+Y1 = YT - Y2 - Y3

+//impedance, Z1

+Z1 = 1/Y1

+

+printf("\n\n Result \n\n")

+printf("\n (a)the impedance Z1 is %.2f + (%.2f)i ohm",real(Z1), imag(Z1))

+

+//resistance, R1

+R1 = real(Z1)

+X1 = imag(Z1) 

+if ((R1>0)&(X1<0)) then

+    C1 = -1/(2*%pi*f*X1)

+    printf("\n (b)The series circuit thus consists of a resistor of resistance %.2f ohm and a capacitor of capacitance %.2E Farad\n",R1,C1)

+elseif ((R1>0)&(X1>0)) then

+    L1 = 2*%pi*f*X1

+    printf("\n (b)The series circuit thus consists of a resistor of resistance %.2f ohm and a inductor of insuctance %.2E Henry\n",R1,L1)

+end
\ No newline at end of file