1 files changed, 24 insertions, 0 deletions
diff --git a/620/CH27/EX27.15/example27_15.sce b/620/CH27/EX27.15/example27_15.sce
new file mode 100644
index 000000000..f9f3ba062
--- /dev/null
+++ b/620/CH27/EX27.15/example27_15.sce
@@ -0,0 +1,24 @@
+l=10*10^(-6);
+rs=5;
+c=0.01*10^(-6);
+fr0=sqrt(1-c*rs^2/l)/(2*%pi*sqrt(l*c));
+x_l=2*%pi*fr0*l;
+disp("Part a");
+r=sqrt(l/c);
+rmin=r-rs;
+disp("the minimum resistance (in Ω) to be added is"); disp(rmin);
+disp("Part b");
+f=100*10^3;
+fr=sqrt(1-c*rs^2/l)/(2*%pi*sqrt(l*c));
+q=fr/f;
+fr1=sqrt(q^2/(1+q^2))/(2*%pi*sqrt(l*c));
+x_l1=2*%pi*fr1*l;
+q1=fr1/f;
+rs1=x_l1/q1;
+rmin1=r1-rs;
+disp("the resiatance (in Ω) to be added in seriesis"); disp(rmin1);
+disp("Part c");
+rp=(rs1^2+x_l^2)/rs1;
+z=(rs^2+x_l^2)/rs;
+r2=1/(1/rp-1/z);
+disp("the shunting resistance (in Ω) to be connected is"); disp(r2);
+\ No newline at end of file