1 files changed, 24 insertions, 0 deletions
diff --git a/1319/CH1/EX1.19/1_19.sce b/1319/CH1/EX1.19/1_19.sce
new file mode 100644
index 000000000..3f7c39da4
--- /dev/null
+++ b/1319/CH1/EX1.19/1_19.sce
@@ -0,0 +1,24 @@
+// To determine bandwidth and half power frequencies
+
+clc;
+clear;
+
+R=50;
+f=750; // Frequency
+w0=(2*%pi*f);
+L=10*(10^-3);
+I=1; // Maximum Current
+
+Q=w0*L/R;
+
+bw=f/Q;
+
+a=(f^2); // let a = f1*f2
+b= bw; // let b = f2-f1
+c=sqrt((b^2)+(4*a)); // let c = f2+f1
+
+f2=(b+c)/2;
+f1=(c-b)/2;
+
+printf('The bandwidth = %g Hz\n',bw)
+printf('The half frequencies are f1 = %g Hz and f2 = %g Hz\n)',f1,f2)