1 files changed, 22 insertions, 0 deletions
diff --git a/2360/CH6/EX6.15/ex6_15.sce b/2360/CH6/EX6.15/ex6_15.sce
new file mode 100755
index 000000000..4f69acfed
--- /dev/null
+++ b/2360/CH6/EX6.15/ex6_15.sce
@@ -0,0 +1,22 @@
+// Exa 6.15
+format('v',7);clc;clear;close;
+// Given data
+f1 = 8;//frequency in MHz
+f1= f1*10^6;// in Hz
+f2 = 12;//frequency in MHz
+f2= f2*10^6;// in Hz
+C1 = 120;//capacitance in pF
+C1 = C1 * 10^-12;// in F
+C2 = 40;//capacitance in pF
+C2 = C2 * 10^-12;// in F
+// f1 = 1/(2*%pi*(sqrt(L*(C1+Cd))))     (i)
+// f2 = 1/(2*%pi*(sqrt(L*(C2+Cd))))     (ii)
+// From eq(i) and (ii)
+Cd= (f2^2*C2-f1^2*C1)/(f1^2-f2^2);// in F
+// From eq(i)
+C=C1+Cd;
+L=1/((C1+Cd)*(2*%pi*f1)^2);// inductance in H
+L= L*10^6;// in µH
+Cd= Cd*10^12;// self capacitance in pF
+disp(Cd,"The self capacitance in pF is");
+disp(L,"The inductance in µH is : ")