1 files changed, 33 insertions, 0 deletions
diff --git a/3673/CH18/EX18.1/Ex18_1.sce b/3673/CH18/EX18.1/Ex18_1.sce
new file mode 100644
index 000000000..b935f946a
--- /dev/null
+++ b/3673/CH18/EX18.1/Ex18_1.sce
@@ -0,0 +1,33 @@
+//Example 18_1 page no:889
+clc;
+//calculating for first foster network
+s=0;
+P0=5*(s^2+4)*(s^2+25)/(s^2+16);
+s=-%i*4;
+P2=5*(s^2+4)*(s^2+25)/(s*(s-(%i*4)));
+H=5;
+Wn=8;
+C0=1/P0;
+Lx=H;
+C2=1/(2*P2);
+L2=2*P2/Wn^2*4;
+disp("here the results are displayed in decimal values");
+disp("the elements of first foster network is");
+disp(C0,"the capacitance C0 is (in Farad)");
+disp(Lx,"the inductance Linfinity is (in H)");
+disp(C2,"the capacitance C2 is (in Farad)");
+disp(L2,"the inductance L2 is(in H)");
+//calculating for second foster network
+s=-%i*2;
+P1=1*(s*(s^2+16))/(5*(s+(-%i*2))*(s^2+25));
+s=-%i*2;
+P2=1*(s*(s^2+16))/(5*(s+(-%i*2))*(s^2+25));
+L1=1/(2*P1);
+C1=(2*P1)/4;
+L2=(1/(1.5*P2));
+C2=2*3/(70*25);
+disp("the elements of second foster network is");
+disp(C1,"the capacitance C1 is (in Farad)");
+disp(L1,"the inductance L1 is (in H)");
+disp(C2,"the capacitance C2 is (in Farad)");
+disp(L2,"the inductance L2 is(in H)");