From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 608/CH28/EX28.11/28_11.sce | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100755 608/CH28/EX28.11/28_11.sce

(limited to '608/CH28/EX28.11/28_11.sce')

diff --git a/608/CH28/EX28.11/28_11.sce b/608/CH28/EX28.11/28_11.sce
new file mode 100755
index 000000000..706669966
--- /dev/null
+++ b/608/CH28/EX28.11/28_11.sce
@@ -0,0 +1,31 @@
+//Problem 28.11: In an L–R–C series network, the inductance, L = 8 mH, the capacitance, C = 0.3 μF, and the resistance, R = 15 ohm. Determine the current flowing in the circuit when the input voltage is 7.56/_0° V and the frequency is (a) the resonant frequency, (b) a frequency 3% above the resonant frequency. Find also (c) the impedance of the circuit when the frequency is 3% above the resonant frequency.
+
+//initializing the variables:
+R = 15; // in ohms
+L = 0.008; // IN Henry
+C = 0.3e-6; // IN fARADS
+rv = 7.56; //in volts
+thetav = 0; // in degrees
+x = 0.03;
+
+//calculation:
+//Resonant frequency,
+fr = 1/(2*%pi*((L*C)^0.5))
+wr = 2*%pi*fr
+//At resonance,
+Zr = R
+//voltage
+V = rv*cos(thetav*%pi/180) + %i*rv*sin(thetav*%pi/180)
+//Current at resonance
+Ir = V/Zr
+//Q-factor at resonance, Q = wr*L/R
+Qr = wr*L/R
+//If the frequency is 3% above  fr, then
+del = x
+I = Ir/(1 + (2*del*Qr*%i))
+Z = V/I
+
+printf("\n\n Result \n\n")
+printf("\n (a)Current at resonance, Ir is %.2f A ",Ir)
+printf("\n (b)current flowing in the circuit when frequency 3 percent above the resonant frequency is %.4f + (%.4f)i A ",real(I), imag(I))
+printf("\n (c)impedance of the circuit when the frequency is 3 percent above the resonant frequency is %.0f + (%.2f)i A ",real(Z), imag(Z))
\ No newline at end of file
-- 
cgit