1 files changed, 21 insertions, 0 deletions
diff --git a/1319/CH1/EX1.21/1_21.sce b/1319/CH1/EX1.21/1_21.sce
new file mode 100644
index 000000000..242ece728
--- /dev/null
+++ b/1319/CH1/EX1.21/1_21.sce
@@ -0,0 +1,21 @@
+// To determine Rl for which resonance can take place
+
+clc;
+clear;
+
+Rl=poly(0,'Rl');
+Rc=5;
+Xc=6;
+Xl=15;
+
+x=(((Rl^2)+(Xl^2))*Xc)-(((Rc^2)+(Xc^2))*Xl);
+
+Rl=roots(x);
+
+disp(x)
+
+printf('The above eqaution must be eqauted to zero to get Rl \n')
+
+disp(Rl)
+
+printf('The above eqaution leads to imaginary roots which is not possible, hence no value of Rl can bring resonance in the circuit at the given condition \n' )