23 files changed, 328 insertions, 0 deletions
diff --git a/1109/CH14/EX14.1/14_1.sce b/1109/CH14/EX14.1/14_1.sce
new file mode 100755
index 000000000..6332c8072
--- /dev/null
+++ b/1109/CH14/EX14.1/14_1.sce
@@ -0,0 +1,7 @@
+clear;
+clc;
+Rk=600;fc=3000;
+L=Rk/(%pi*fc);
+printf("-Desired value of inductor L = %f mH\n",round(L*(10^3)*10)/10);
+C=1/(%pi*Rk*fc);
+printf("-Desired value of capacitor C = %f microfarads",round(C*(10^6)*10^4)/10^4);
diff --git a/1109/CH14/EX14.10/14_10.sce b/1109/CH14/EX14.10/14_10.sce
new file mode 100755
index 000000000..277024d17
--- /dev/null
+++ b/1109/CH14/EX14.10/14_10.sce
@@ -0,0 +1,25 @@
+clear;
+clc;
+fc=1.2*(10^3);fi=1.1*(10^3);Rk=600; //fi=frequency at which infinite attenuation occrus
+L0=Rk/(4*%pi*fc);
+C0=1/(4*%pi*fc*Rk);
+printf("The elements of the constant-K H.P. are:\n");
+printf("  L = %f mH\n",fix(L0*(10^3)*100)/100);
+printf("  C = %f microfarads\n\n",fix(C0*(10^6)*100)/100);
+m1=round(sqrt(1-((fi/fc)^2))*10)/10;
+C1=2*C0/m1;
+L1=L0/m1;
+C2=4*m1*C0/(1-(m1*m1));
+printf("The elements of the m-derived H.P.T. filter are:\n");
+printf("  2C/m = %f microfarads\n",fix(C1*(10^6)*100)/100);
+printf("  L/m = %f mH\n",round(L1*(10^3)*10)/10);
+printf("  4mC/(1-m^2) = %f microfarads\n\n",fix(C2*(10^6)*100)/100);
+m2=0.6;
+C3=2*C0/m2;
+L2=L0/m2;
+C4=4*m2*C0/(1-(m2*m2));
+printf("The elements of the terminating half section m-derived H.P.T. filter are:\n");
+printf("  2C/m = %f microfarads\n",round(C3*(10^6)*100)/100);
+printf("  L/m = %f mH\n",round(L2*(10^3)*100)/100);
+printf("  4mC/(1-m^2) = %f microfarads\n\n",round(C4*(10^6)*100)/100);
+printf("The complete composite filter is constructed by using the  constant-K in cascade with the sharp-cut off m-derived section and terminating half section");
diff --git a/1109/CH14/EX14.11/14_11.sce b/1109/CH14/EX14.11/14_11.sce
new file mode 100755
index 000000000..953246216
--- /dev/null
+++ b/1109/CH14/EX14.11/14_11.sce
@@ -0,0 +1,17 @@
+clear;
+clc;
+fc=1*(10^6);Rk=75;m=0.6;
+L0=Rk/(4*%pi*fc);
+C0=1/(4*%pi*fc*Rk);
+printf("The elements of the prototype T-section H.P. are:\n");
+printf("  L = %f mH\n",round(L0*(10^3)*1000)/1000);
+printf("  C = %f picofarads\n\n",round(C0*(10^12)));
+C1=2*C0/m;
+L1=L0/m;
+C2=4*m*C0/(1-(m*m));
+printf(" The elements of the terminating half section m-derived H.P.T. filter are:\n");
+printf("  2C/m = %f picofarads\n",fix(C1*(10^12)));
+printf("  L/m = %f mH\n",round(L1*(10^6))/1000);
+printf("  Cshunt = %f picofarads\n\n",round(C2*(10^12)));
+fi=fc*sqrt(1-(m*m));
+printf(" Frequency of peak attenuation = %d kHz",fi*(10^-3));
diff --git a/1109/CH14/EX14.12/14_12.sce b/1109/CH14/EX14.12/14_12.sce
new file mode 100755
index 000000000..a7f928735
--- /dev/null
+++ b/1109/CH14/EX14.12/14_12.sce
@@ -0,0 +1,25 @@
+clear;
+clc;
+Rk=500;fc=1000;fi1=1065;fi2=1250;
+L0=Rk/(%pi*fc);
+C0=1/(%pi*fc*Rk);
+printf("The elements of the constant-K L.P. are:\n");
+printf("  L = %f mH\n",round(L0*(10^3)));
+printf("  C = %f microfarads\n\n",round(C0*(10^6)*100)/100);
+m1=0.4
+L1=m1*L0/2;
+L2=(1-(m1*m1))*L0/(4*m1);
+C1=m1*C0;
+printf("The elements of the m-derived L.P.T. filter are:\n");
+printf("  mL/2 = %f mH\n",round(L1*(10^3)*10)/10);
+printf(" mC = %f microfarads\n",round(C1*(10^6)*1000)/1000);
+printf("  (1-m^2)L/4m = %f mH\n\n",fix(L2*(10^3)*10)/10);
+m2=sqrt(1-((fc/fi2)^2));
+L3=m2*L0/2;
+L4=(1-(m2*m2))*L0/(4*m2);
+C2=m2*C0;
+printf("The elements of the terminating half sections m-derived L.P.T. filter are:\n");
+printf("  mL/2 = %f mH\n",fix(L3*(10^3)*10)/10);
+printf("  C = %f microfarads\n",round(C2*(10^6)*1000)/1000);
+printf("  Lshunt = %f mH\n\n",fix(L4*(10^3)*10)/10);
+printf("The complete composite filter is constructed by using the  constant-K in cascade with the short-cut of m-derived section and terminating half section");
diff --git a/1109/CH14/EX14.13/14_13.sce b/1109/CH14/EX14.13/14_13.sce
new file mode 100755
index 000000000..ae69f90b0
--- /dev/null
+++ b/1109/CH14/EX14.13/14_13.sce
@@ -0,0 +1,12 @@
+clear;
+clc;
+f1=1000;f2=4000;Rk=600;
+C1=(f2-f1)/(4*%pi*Rk*f1*f2);
+L1=Rk/(%pi*(f2-f1));
+C2=1/(%pi*Rk*(f2-f1));
+L2=Rk*(f2-f1)/(4*%pi*f1*f2);
+printf("The elements of the prototype band pass filter are:\n");
+printf("  L1 = %f mH\n",fix(L1*(10^5))/100);
+printf("  C1 = %f microfarads\n",round(C1*(10^11))/10^5);
+printf("  L2 = %f mH\n",round(L2*(10^4))/10);
+printf("  C2 = %f microfarads",round(C2*(10^10))/10^4);
diff --git a/1109/CH14/EX14.14/14_14.sce b/1109/CH14/EX14.14/14_14.sce
new file mode 100755
index 000000000..628e79ca1
--- /dev/null
+++ b/1109/CH14/EX14.14/14_14.sce
@@ -0,0 +1,14 @@
+clear;
+clc;
+f1=12000;f2=16000;Rk=600;
+C1=(f2-f1)/(4*%pi*Rk*f1*f2);
+L1=Rk/(%pi*(f2-f1));
+C2=1/(%pi*Rk*(f2-f1));
+L2=Rk*(f2-f1)/(4*%pi*f1*f2);
+printf("The elements of the prototype band pass filter are:\n");
+printf("  L1 = %f mH\n",round(L1*(10^5))/100);
+printf("  C1 = %f picofarads\n",round(C1*(10^12)));
+printf("  L2 = %f mH\n",L2*(10^3));
+printf("  C2 = %f microfarads",C2*(10^6));
+//the difference in result of L2 and C2 is due to erroneous value in textbook.
+disp("The difference in result of C2 and L2 is due to erroneous value in textbook")
diff --git a/1109/CH14/EX14.15/14_15.sce b/1109/CH14/EX14.15/14_15.sce
new file mode 100755
index 000000000..0c8158f05
--- /dev/null
+++ b/1109/CH14/EX14.15/14_15.sce
@@ -0,0 +1,13 @@
+clear;
+clc;
+fc=5000;fi=1.25*fc;Rk=600; //fi=frequency at which infinite attenuation occus
+L0=Rk/(%pi*fc);
+C0=1/(%pi*fc*Rk);
+m=sqrt(1-((fc/fi)^2));
+L1=m*L0/2;
+L2=(1-(m*m))*L0/(4*m);
+C1=m*C0;
+printf("The elements of the m-derived L.P.T. filter are:\n");
+printf("  mL/2 = %f mH\n",round(L1*(10^5))/100);
+printf("  mC = %f microfarads\n",fix(C1*(10^10))/10^4);
+printf("  (1-m^2)L/4m = %f mH",round(L2*(10^4))/10);
diff --git a/1109/CH14/EX14.16/14_16.sce b/1109/CH14/EX14.16/14_16.sce
new file mode 100755
index 000000000..f940a7d93
--- /dev/null
+++ b/1109/CH14/EX14.16/14_16.sce
@@ -0,0 +1,8 @@
+clear;
+clc;
+L=0.5*(10^-3);C=0.01*(10^-6);Rk=600;
+L1=2*L;
+C1=C/2;
+L2=Rk*Rk*C1;
+C2=L1/(Rk*Rk);
+printf("The elements of the shunt arm will be an inductance of %f mH in parallel with a capacitance of %f microfarads",L2*(10^3),round(C2*(10^10))/10^4);
diff --git a/1109/CH14/EX14.17/14_17.sce b/1109/CH14/EX14.17/14_17.sce
new file mode 100755
index 000000000..3767649ca
--- /dev/null
+++ b/1109/CH14/EX14.17/14_17.sce
@@ -0,0 +1,26 @@
+clear;
+clc;
+fc=2400;fi=2500;Rk=600; //fi=frequency at which infinite attenuation occus
+L0=Rk/(3.14*fc);
+C0=1/(3.14*fc*Rk);
+printf("The elements of the constant-K L.P. are:\n");
+printf("  L = %f mH\n",round(L0*(10^5))/100);
+printf("  C = %f microfarads\n\n",round(C0*(10^10))/10^4);
+m1=sqrt(1-((fc/fi)^2));
+L1=m1*L0/2;
+L2=(1-(m1*m1))*L0/(4*m1);
+C1=m1*C0;
+printf("The elements of the m-derived L.P.T. filter are:\n");
+printf("  mL/2 = %f mH\n",round(L1*(10^5))/100);
+printf("  mC = %f microfarads\n",round(C1*(10^10))/10^4);
+printf("  (1-m^2)L/4m = %f mH\n\n",round(L2*(10^5))/100);
+m2=0.6;
+L3=m2*L0/2;
+L4=(1-(m2*m2))*L0/(2*m2);
+C2=m2*C0/2;
+printf("The elements of the terminating half sections m-derived L.P.T. filter are:\n");
+printf("  mL/2 = %f mH\n",round(L3*(10^5))/100);
+printf("  mC/2 = %f microfarads\n",round(C2*(10^10))/10^4);
+printf("  (1-m^2)L/2m = %f mH\n\n",fix(L4*(10^5))/100);
+printf("The complete composite filter is constructed by using the  constant-K in cascade with the short-cut of m-derived section and terminating half section");
+
diff --git a/1109/CH14/EX14.18/14_18.sce b/1109/CH14/EX14.18/14_18.sce
new file mode 100755
index 000000000..ef7390a29
--- /dev/null
+++ b/1109/CH14/EX14.18/14_18.sce
@@ -0,0 +1,14 @@
+clear;
+clc;
+C0=1*(10^-6);L0=10*(10^-3);
+C=C0/2;
+L=L0;
+Rk1=sqrt(L/C);
+fc1=1/(4*%pi*sqrt(L*C));
+printf("The cut-off frequency(high pass) = %f Hz\n",round(fc1));
+printf(" The characteristic impedance(high pass) = %f ohms\n\n",round(Rk1*10)/10);
+C1=C0*2;
+Rk2=sqrt(L/C1);
+fc2=1/(%pi*sqrt(L*C1));
+printf(" The cut-off frequency(low pass) = %f Hz\n",fix(fc2));
+printf(" The characteristic impedance(low pass) = %f ohms",fix(Rk2*10)/10);
diff --git a/1109/CH14/EX14.19/14_19.sce b/1109/CH14/EX14.19/14_19.sce
new file mode 100755
index 000000000..ea969288c
--- /dev/null
+++ b/1109/CH14/EX14.19/14_19.sce
@@ -0,0 +1,27 @@
+clear;
+clc;
+Rk=500;fc=4000;fi=5000; //fi=frequency at which infinite attenuation occurs
+L0=Rk/(%pi*fc);
+C0=1/(%pi*fc*Rk);
+printf("The elements of the constant-K L.P. are:\n");
+printf("  L = %f mH\n",round(L0*(10^4))/10);
+printf("  C = %f microfarads\n\n",round(C0*(10^9))/1000);
+m1=sqrt(1-((fc/fi)^2));
+L1=m1*L0/2;
+L2=(1-(m1*m1))*L0/(4*m1);
+C1=m1*C0;
+printf("The elements of the m-derived L.P.T. filter are:\n");
+printf("  mL/2 = %f mH\n",round(L1*(10^5))/100);
+printf("  C = %f microfarads\n",round(C1*(10^10))/10^4);
+printf("  Lshunt = %f mH\n\n",round(L2*(10^5))/100);
+m2=0.6;
+L3=m2*L0/2;
+L4=(1-(m2*m2))*L0/(2*m2);
+C2=m2*C0/2;
+printf("The elements of the terminating half sections m-derived L.P.T. filter are:\n");
+printf("  Lseris = %f mH\n",round(L3*(10^5))/100);
+printf("  C = %f microfarads\n",round(C2*(10^10))/10^4);
+printf("  Lshunt = %f mH\n\n",round(L4*(10^5))/100);
+printf("The complete composite filter is constructed by using the  constant-K in cascade with the short-cut of m-derived section and terminating half section");
+//the difference in result of the elements of the m derived L.P. T section is due to erroneous value in textbook.
+disp("The difference in result of the elements of the m derived L.P. T section is due to erroneous value in textbook")
diff --git a/1109/CH14/EX14.2/14_2.sce b/1109/CH14/EX14.2/14_2.sce
new file mode 100755
index 000000000..1764b56fa
--- /dev/null
+++ b/1109/CH14/EX14.2/14_2.sce
@@ -0,0 +1,10 @@
+clear;
+clc;
+L=20*(10^-3);C=0.32*(10^-6);f=15*(10^3);
+fc=(1/(3.14*(sqrt(L*C))));
+printf("Cutoff frequency fc = %f kHz\n",fix(fc*0.1)/100);
+Rk=sqrt(L/C);
+printf(" Value of nominal terminating impedance Rk = %f ohms\n",fix(Rk*10)/10);
+a=2*(acosh(f/fc));
+printf(" Value of attenuation a = %f db\n",fix(a*8.686*100)/100);
+printf(" Phase shift of the low pass filter = pi radians");
diff --git a/1109/CH14/EX14.20/14_20.sce b/1109/CH14/EX14.20/14_20.sce
new file mode 100755
index 000000000..22ecd86da
--- /dev/null
+++ b/1109/CH14/EX14.20/14_20.sce
@@ -0,0 +1,5 @@
+clear;
+clc;
+fr=1*(10^6);C=0.04*(10^-12);C1=6*(10^-12);
+fa=fr*(1+(C/(2*C1)));
+printf("The second resonance frequency = %f MHz",round(fa*(10^-2))/10^4);
diff --git a/1109/CH14/EX14.21/14_21.sce b/1109/CH14/EX14.21/14_21.sce
new file mode 100755
index 000000000..7d9c78e9d
--- /dev/null
+++ b/1109/CH14/EX14.21/14_21.sce
@@ -0,0 +1,12 @@
+clear;
+clc;
+Rk=600;f1=120*(10^3);f2=123*(10^3);
+C1=(f2-f1)/(4*%pi*Rk*f1*f2);
+L1=Rk/(%pi*(f2-f1));
+C2=L1/(Rk*Rk);
+L2=Rk*(f2-f1)/(4*%pi*f1*f2);
+printf("The elements of the T-type constant k band pass filter are:\n");
+printf(" L1 = %f mH\n",fix((L1)*(10^4))/10);
+printf(" C1 = %f picofarads\n",fix((C1)*(10^14))/100);
+printf(" L2 = %f microhenry\n",fix((L2)*(10^7))/10);
+printf(" C2 = %f microfarads",round((C2)*(10^9))/1000);
diff --git a/1109/CH14/EX14.22/14_22.sce b/1109/CH14/EX14.22/14_22.sce
new file mode 100755
index 000000000..bfad3cc10
--- /dev/null
+++ b/1109/CH14/EX14.22/14_22.sce
@@ -0,0 +1,8 @@
+clear;
+clc;
+C=1/100;fo=1000; //C=C1/C2
+//value of fo as taken in solution
+f1=fo*((sqrt(C+1))-sqrt(C));
+f2=fo*((sqrt(C+1))+sqrt(C));
+BW=f2-f1;
+printf("Bandwidth = %d Hz",(BW));
diff --git a/1109/CH14/EX14.23/14_23.sce b/1109/CH14/EX14.23/14_23.sce
new file mode 100755
index 000000000..dac088089
--- /dev/null
+++ b/1109/CH14/EX14.23/14_23.sce
@@ -0,0 +1,18 @@
+clear;
+clc;
+Ro=600;f=120;fo=1500; //f=f2-f1
+F=fo*fo; //F=f1*f2
+l1=Ro/(2*%pi*f);
+c1=round(f*10^11/(2*Ro*%pi*F))/10^5;
+c2=round(1*10^8/(%pi*Ro*f))/100;
+l2=Ro*f/(4*%pi*F);
+n=(1/2)*(sqrt(((2*c2/(c1/2))+9)-1));
+C1=((2*n)-1)*c1*10^-6/(2*n);
+C2=c1*10^-6/n;
+L=n*n*l2;
+C3=c2*10^-6/(n*n);
+printf("The elements of the filter are:\n");
+printf(" (2n-1)C1/n = %f microfarads\n",fix(C1*(10^9))/1000);
+printf(" 2C1/n = %f microfarads\n",fix((C2)*(10^10))/10^4);
+printf(" (n^2)L2  = %f H\n",round(L*10)/10);
+printf(" C2/(n^2) = %f microfards",round((C3)*(10^9))/1000);
diff --git a/1109/CH14/EX14.3/14_3.sce b/1109/CH14/EX14.3/14_3.sce
new file mode 100755
index 000000000..5642d03e9
--- /dev/null
+++ b/1109/CH14/EX14.3/14_3.sce
@@ -0,0 +1,7 @@
+clear;
+clc;
+fc=10*(10^3);Rk=600;
+L=Rk/(4*%pi*fc);
+printf("-Value of L = %f mH\n",fix(L*(10^3)*10^3)/10^3);
+C=1/(4*%pi*fc*Rk);
+printf("-Value of C = %f microfarads",fix(C*(10^6)*10^5)/10^5);
diff --git a/1109/CH14/EX14.4/14_4.sce b/1109/CH14/EX14.4/14_4.sce
new file mode 100755
index 000000000..d6fe19666
--- /dev/null
+++ b/1109/CH14/EX14.4/14_4.sce
@@ -0,0 +1,19 @@
+clear;
+clc;
+L=60*(10^-3);C=0.2*(10^-6);
+fc=1/(%pi*(sqrt(L*C)));
+printf("(i)Cut off frequency fc for the low pass filter = %f kHz\n\n",round(fc*(10^-1))/100);
+fa=1000;
+Za=(sqrt(L/C))*(sqrt(1-((fa/fc)^2)));
+printf(" (ii)Iterative impedance at f=1 KHz = %f ohms\n",fix(Za));
+fb=5000;
+Zb=(sqrt(L/C))*(sqrt(1-((fb/fc)^2)));
+printf("   Iterative impedance at f=5 KHz = j(%f) ohms\n\n",fix(Zb/%i));
+aa=0; //attenuation at frequency fa
+ba=2*(asind(fa/fc)); //phase shift at frequency fa
+ab=2*acosh(fb/fc); //attenuation at frequency fb
+bb=180; //attenuation at frequency fb
+V1=exp(aa); //V1=(Vin/Vout) at frequency of 1kHz
+V2=exp(ab); //V2=(Vin/Vout) at frequency of 5kHz
+printf(" (iii)At 5kHz,the voltage ratio = %f and phase difference = %f degrees\n",round(V2*10)/10,bb);
+printf("     At 1kHz,the voltage ratio = %f and phase difference = %f degrees\n",V1,fix(ba*10)/10);
diff --git a/1109/CH14/EX14.5/14_5.sce b/1109/CH14/EX14.5/14_5.sce
new file mode 100755
index 000000000..5f8a96254
--- /dev/null
+++ b/1109/CH14/EX14.5/14_5.sce
@@ -0,0 +1,6 @@
+clear;
+clc;
+fc=1000;Rk=600;
+L=Rk/(4*%pi*fc);
+C=1/(4*%pi*fc*Rk);
+printf("Thus,the series elements are two capacitors of value %f microfarad each and shunt inductance of value %f mH.",round(C*(10^3)*10^6)/10^5,fix(L*(10^3)*100)/100);
diff --git a/1109/CH14/EX14.6/14_6.sce b/1109/CH14/EX14.6/14_6.sce
new file mode 100755
index 000000000..d374309eb
--- /dev/null
+++ b/1109/CH14/EX14.6/14_6.sce
@@ -0,0 +1,5 @@
+clear;
+clc;
+a=1.15;
+F=cosh(a/2);
+printf("The frequency at which low pass filter will havean attenuation 10 db will be %f times the cut off frequency",round(F*100)/100);
diff --git a/1109/CH14/EX14.7/14_7.sce b/1109/CH14/EX14.7/14_7.sce
new file mode 100755
index 000000000..958f92758
--- /dev/null
+++ b/1109/CH14/EX14.7/14_7.sce
@@ -0,0 +1,14 @@
+clear;
+clc;
+Rk=600;fc=1000;fi=1050;
+L0=Rk/(%pi*fc);
+C0=1/(%pi*fc*Rk);
+m=round(sqrt(1-((fc/fi)^2))*10)/10;
+L1=m*L0/2;
+printf("-mL/2 = %f mH\n",round(L1*(10^3)*100)/100);
+C=m*C0;
+printf("-mC = %f microfarads\n",round(C*(10^6)*1000)/1000);
+L2=L0*((1-(m*m))/(4*m));
+printf("-(1-m^2)L/(4m) = %f mH",L2*(10^3));
+//the difference in result is due to erroneous value in textbook.
+disp("The difference in result is due to erroneous value in textbook")
diff --git a/1109/CH14/EX14.8/14_8.sce b/1109/CH14/EX14.8/14_8.sce
new file mode 100755
index 000000000..991eb48e0
--- /dev/null
+++ b/1109/CH14/EX14.8/14_8.sce
@@ -0,0 +1,11 @@
+clear;
+clc;
+fc=20*(10^3);Rk=600;m=0.6;
+L0=Rk/(4*%pi*fc);
+C0=1/(4*%pi*fc*Rk);
+C1=2*C0/m;
+printf("-2C/m = %f microfarads\n",round(C1*(10^6)*1000)/1000);
+L=L0/m;
+printf("-L/m = %f mH\n",round(L*(10^3)*100)/100)
+C2=C0*((4*m)/(1-(m*m)));
+printf("-4mC/(1-m^2) = %f microfarads",round(C2*(10^6)*1000)/1000);
diff --git a/1109/CH14/EX14.9/14_9.sce b/1109/CH14/EX14.9/14_9.sce
new file mode 100755
index 000000000..0da4bb598
--- /dev/null
+++ b/1109/CH14/EX14.9/14_9.sce
@@ -0,0 +1,25 @@
+clear;
+clc;
+fc=2000;fi=2050;Rk=500; //fi=frequency at which infinite attenuation occurs
+L0=Rk/(%pi*fc);
+C0=1/(%pi*fc*Rk);
+printf("The elements of the constant-K L.P. are:\n");
+printf("  L = %f mH\n",fix(L0*(10^3)*10)/10);
+printf("  C = %f microfarads\n\n",fix(C0*(10^6)*1000)/1000);
+m1=round(sqrt(1-((fc/fi)^2))*100)/100;
+L1=m1*L0/2;
+L2=(1-(m1*m1))*L0/(4*m1);
+C1=m1*C0;
+printf("The elements of the m-derived L.P.T. filter are:\n");
+printf("  mL/2 = %f mH\n",fix(L1*(10^3)*100)/100);
+printf("  mC = %f microfarads\n",fix(C1*(10^6)*100)/100);
+printf("  (1-m^2)L/4m = %f mH\n\n",fix(L2*(10^3)*100)/100);
+m2=0.6;
+L3=m2*L0/2;
+L4=(1-(m2*m2))*L0/(4*m2);
+C2=m2*C0;
+printf("The elements of the terminating half sections m-derived L.P.T. filter are:\n");
+printf("  mL/2 = %f mH\n",fix(L3*(10^3)*10)/10);
+printf("  mC = %f microfarads\n",fix(C2*(10^6)*10000)/10000);
+printf("  (1-m^2)L/4m = %f mH\n\n",fix(L4*(10^3)*10)/10);
+printf("The complete composite filter is constructed by using the  constant-K in cascade with the short-cut of m-derived section and terminating half section");