diff options
Diffstat (limited to '3673/CH17')
| -rw-r--r-- | 3673/CH17/EX17.1/Ex17_1.sce | 11 | ||||
| -rw-r--r-- | 3673/CH17/EX17.10/Ex17_10.sce | 9 | ||||
| -rw-r--r-- | 3673/CH17/EX17.11/Ex17_11.sce | 9 | ||||
| -rw-r--r-- | 3673/CH17/EX17.2/Ex17_2.sce | 13 | ||||
| -rw-r--r-- | 3673/CH17/EX17.3/Ex17_3.sce | 32 | ||||
| -rw-r--r-- | 3673/CH17/EX17.4/Ex17_4.sce | 31 | ||||
| -rw-r--r-- | 3673/CH17/EX17.5/Ex17_5.sce | 32 | ||||
| -rw-r--r-- | 3673/CH17/EX17.6/Ex17_6.sce | 31 | ||||
| -rw-r--r-- | 3673/CH17/EX17.7/Ex17_7.sce | 10 | ||||
| -rw-r--r-- | 3673/CH17/EX17.8/Ex17_8.sce | 9 | ||||
| -rw-r--r-- | 3673/CH17/EX17.9/Ex17_9.sce | 9 | ||||
| -rw-r--r-- | 3673/CH17/EX17.a.1/Example_a_17_1.sce | 10 | ||||
| -rw-r--r-- | 3673/CH17/EX17.a.10/Example_a_17_10.sce | 12 | ||||
| -rw-r--r-- | 3673/CH17/EX17.a.11/Example_a_17_11.sce | 10 | ||||
| -rw-r--r-- | 3673/CH17/EX17.a.12/Example_a_17_12.sce | 10 | ||||
| -rw-r--r-- | 3673/CH17/EX17.a.2/Example_a_17_2.sce | 31 | ||||
| -rw-r--r-- | 3673/CH17/EX17.a.3/Example_a_17_3.sce | 19 | ||||
| -rw-r--r-- | 3673/CH17/EX17.a.4/Example_a_17_4.sce | 11 | ||||
| -rw-r--r-- | 3673/CH17/EX17.a.6/Example_a_17_6.sce | 16 | ||||
| -rw-r--r-- | 3673/CH17/EX17.a.7/Example_a_17_7.sce | 11 | ||||
| -rw-r--r-- | 3673/CH17/EX17.a.8/Example_a_17_8.sce | 12 | ||||
| -rw-r--r-- | 3673/CH17/EX17.a.9/Example_a_17_9.sce | 11 |
22 files changed, 349 insertions, 0 deletions
diff --git a/3673/CH17/EX17.1/Ex17_1.sce b/3673/CH17/EX17.1/Ex17_1.sce new file mode 100644 index 000000000..f36c9b1ce --- /dev/null +++ b/3673/CH17/EX17.1/Ex17_1.sce @@ -0,0 +1,11 @@ +//Example 17_1 page no:823
+clc;
+//given
+k=500;//load resistance in ohm
+fc=2000;//frequency in Hz
+L=k/(%pi*fc);
+L=L*1000;//converting to milli Henry
+C=1/(%pi*fc*k);
+C=C*10^6;//converting to micro farad
+disp(L,"the inductance for low pass filter is (in mH)");
+disp(C,"the capacitance for low pass filter is (in microFarad)");
diff --git a/3673/CH17/EX17.10/Ex17_10.sce b/3673/CH17/EX17.10/Ex17_10.sce new file mode 100644 index 000000000..29c9b78db --- /dev/null +++ b/3673/CH17/EX17.10/Ex17_10.sce @@ -0,0 +1,9 @@ +//Example 17_10 page no:849
+clc;
+D=20;
+R0=500;
+N=10^(D/20);
+Ra=R0*(N-1)
+Rb=R0/(N-1);
+disp(Ra,"the resistance Ra is (in ohm)");
+disp(Rb,"the resistance Rb is (in ohm)");
diff --git a/3673/CH17/EX17.11/Ex17_11.sce b/3673/CH17/EX17.11/Ex17_11.sce new file mode 100644 index 000000000..55763bccf --- /dev/null +++ b/3673/CH17/EX17.11/Ex17_11.sce @@ -0,0 +1,9 @@ +//Example 17_11 page no:850
+clc;
+D=20;
+N=10^(D/20);
+R0=600;
+R1=R0*(N-1)/N;
+R2=(R0/(N-1));
+disp(R1,"the resistance R1 is (in ohm)");
+disp(R2,"the resistance R2 is (in ohm)");
diff --git a/3673/CH17/EX17.2/Ex17_2.sce b/3673/CH17/EX17.2/Ex17_2.sce new file mode 100644 index 000000000..37ba58758 --- /dev/null +++ b/3673/CH17/EX17.2/Ex17_2.sce @@ -0,0 +1,13 @@ +//Example 17_2 page no:826
+clc;
+//given
+Rl=600;
+k=600;
+fc=1000;
+//calculating the impedence and capacitance
+L=k/(4*%pi*fc);
+L=L*1000;//converting to milli henry
+C=1/(4*%pi*fc*k);
+C=C*10^6;//converting to micro farad
+disp(L,"the inductance required for high pass filter is (in mH)");
+disp(C,"the capacitance required for high pass filter is (in microFarad)");
diff --git a/3673/CH17/EX17.3/Ex17_3.sce b/3673/CH17/EX17.3/Ex17_3.sce new file mode 100644 index 000000000..c1bfe85fb --- /dev/null +++ b/3673/CH17/EX17.3/Ex17_3.sce @@ -0,0 +1,32 @@ +//Example 17_3 page no:831
+clc;
+//given
+k=400;
+fc=1000;
+fx=1100;
+//calculating m,L,C
+m=sqrt(1-(fc/fx)^2)
+L=k/(%pi*fc);
+C=1/(%pi*k*fc);
+//calculating T-section elements are
+L1=m*L/2;
+L1=L1*1000;//converting to milliHenry
+C1=m*C;
+C1=C1*10^6;//converting to microFarad
+L2=(1-(m^2))*L/(4*m);
+L2=L2*1000;//converting to milliHenry
+disp("the values of T-section elements are");
+disp(L1,"the inductance between which capacitance is connected is (in mH)");
+disp(C1,"the capacitance connected between inductor is (in microFarad)");
+disp(L2,"the inductance connected in series with capacitance is (in mH)");
+//calculating the pi section elements are
+C1=m*C/2;
+C1=C1*10^6;//converting to microFarad
+C2=(1-m^2)*C/(4*m);
+C2=C2*10^6;//converting to microFarad
+L1=m*L;
+L1=L1*1000;//converting to milliHenry
+disp("the values of pi section elements are");
+disp(C1,"the capacitance connected in parallel is (in microFarad)");
+disp(C2,"the capacitance connected in parallel to inductor is (in microFarad)");
+disp(L1,"the inductor connected in parallel to capacitance is (in mH)");
diff --git a/3673/CH17/EX17.4/Ex17_4.sce b/3673/CH17/EX17.4/Ex17_4.sce new file mode 100644 index 000000000..9835a88e3 --- /dev/null +++ b/3673/CH17/EX17.4/Ex17_4.sce @@ -0,0 +1,31 @@ +//Example 17_4 page no:834
+clc;
+//given
+k=500;
+fc=10000;
+m=0.4;
+//Calculating the impedence and capacitance
+L=k/(4*%pi*fc);
+C=1/(4*%pi*fc*k);
+//calculating T-section elements
+C1=2*C/m;
+L1=L/m;
+C2=(4*m)*C/(1-m^2);
+C1=C1*10^6;//converting to microFarad
+L1=L1*1000;//converting to milliHenry
+C2=C2*10^6;//converting to microFarad
+disp("the T-section elements are");
+disp(C1,"the capacitance between which inductance is connected is (in microFarad)");
+disp(L1,"the inducatance connected in parallel is (in mH)");
+disp(C2,"the capacitance connected in series is (in microFarad)");
+//calculating the pi-section elements
+L1=2*L/m;
+L2=(4*m)*L/(1-m^2);
+C1=C/m;
+C1=C1*10^6;//converting to microFarad
+L1=L1*1000;//converting to milliHenry
+L2=L2*1000;//converting to milliHenry
+disp("the value of pi section elements are");
+disp(C1,"the capacitance connected in parallel to inductor is(in microFarad)");
+disp(L1,"the inductance connected parallel to each other is (in mH)");
+disp(L2,"the inductance connected parallel to capacitor is(in mH)");
diff --git a/3673/CH17/EX17.5/Ex17_5.sce b/3673/CH17/EX17.5/Ex17_5.sce new file mode 100644 index 000000000..6eab4fc67 --- /dev/null +++ b/3673/CH17/EX17.5/Ex17_5.sce @@ -0,0 +1,32 @@ +//Example 17_5 page no:838
+clc;
+k=500;
+f1=1000;
+f2=10000;
+L1=k/(%pi*(f2-f1));
+C1=(f2-f1)/(4*%pi*k*f1*f2);
+L2=C1*k^2;
+C2=L1/k^2;
+//calculating the T-section filter
+L11=16.68/2;//inductance of T-section filter is calculated wrongly in text book
+L11=L11;//converting to milliHenry
+disp("the value of T-section element is");
+disp(L11,"the inductance is (in mH)");
+C11=2*C1;
+C11=C11*10^6;//converting to microFarad
+disp(C11,"the capacitance is (in microFarad)");
+C2=0.0707;
+L2=3.57;
+disp(C2,"the shunt element capacitance is (in microFarad)");
+disp(L2,"the shunt element inductance is (in mH)");
+//calculating the pi-section filter
+C1=0.143;
+L1=16.68;
+C2=0.0707/2;
+L2=2*0.0358;
+disp("the value of pi seciton element is");
+disp(L11*2,"the inductance is (in mH)");
+disp(C11/2,"the capacitance is (in microFarad)");
+disp(C2,"the capacitance is(in microFarad)");
+disp(L2,"the inductance is (in mH)");
+//inductance of T-section filter is calculated wrongly in text book
diff --git a/3673/CH17/EX17.6/Ex17_6.sce b/3673/CH17/EX17.6/Ex17_6.sce new file mode 100644 index 000000000..cd4f87a5f --- /dev/null +++ b/3673/CH17/EX17.6/Ex17_6.sce @@ -0,0 +1,31 @@ +//Example 17_6 page no:842
+clc;
+f1=2000;
+f2=6000;
+k=600;
+L1=k*(f2-f1)/(%pi*(f2*f1));
+C1=1/(4*%pi*k*(f2-f1));
+L2=1/(4*%pi*k*(f2-f1));
+C2=1*(f2-f1)/(k*%pi*(f1*f2));
+//calculating T-section filter
+L11=L1/2;
+C11=2*C1;
+L2=12;
+C2=0.176;
+L11=L11*1000;//converting to milliHenry
+C11=C11*10^6;//converting to microFarad
+disp("the T-section filter elements are");
+disp(L11,"the inductace is (in mH)");
+disp(C11,"the capacitance is (in microFarad)");
+disp(L2,"the inductane is (in mH)");
+disp(C2,"the capacitance is (in microFarad)");
+//calculating the pi-section filter
+L1=63;
+C1=0.033;
+L2=2*L2;
+C2=C2/2;
+disp("the pi section filter elements are");
+disp(L1,"the inductace is (in mH)");
+disp(C1,"the capacitance is (in microFarad)");
+disp(L2,"the inductane is (in mH)");
+disp(C2,"the capacitance is (in microFarad)");
diff --git a/3673/CH17/EX17.7/Ex17_7.sce b/3673/CH17/EX17.7/Ex17_7.sce new file mode 100644 index 000000000..392bc1cd0 --- /dev/null +++ b/3673/CH17/EX17.7/Ex17_7.sce @@ -0,0 +1,10 @@ +//Example 17_7 page no:845
+clc;
+D=60;
+I2=20;
+R0=500;
+N=10^(D/20);
+R1=R0*(N-1)/(N+1);
+R2=(2*N)*R0/(N^2-1);
+disp(R1,"Each of the series arm is given by (in ohm)");
+disp(R2,"the shunt arm resistor R2 is given by (in ohm)");
diff --git a/3673/CH17/EX17.8/Ex17_8.sce b/3673/CH17/EX17.8/Ex17_8.sce new file mode 100644 index 000000000..f31b0d659 --- /dev/null +++ b/3673/CH17/EX17.8/Ex17_8.sce @@ -0,0 +1,9 @@ +//Example 17_8 page no:846
+clc;
+R0=100;
+D=20;
+N=10^(D/20);
+R1=R0*(N^2-1)/(2*N);
+R2=R0*(N+1)/(N-1);
+disp(R1,"the resistance R1 is (in ohm)");
+disp(R2,"the resistance R2 is (in ohm)");
diff --git a/3673/CH17/EX17.9/Ex17_9.sce b/3673/CH17/EX17.9/Ex17_9.sce new file mode 100644 index 000000000..1b80bd5bf --- /dev/null +++ b/3673/CH17/EX17.9/Ex17_9.sce @@ -0,0 +1,9 @@ +//Example 17_9 page no:847
+clc;
+R0=800;
+D=20;
+N=10^(D/20);
+R1=R0*(N-1)/(N+1);
+R2=R0*(N+1)/(N-1);
+disp(R1,"the resistance R1 is (in ohm)");
+disp(R2,"the resistance R2 is (in ohm)");
diff --git a/3673/CH17/EX17.a.1/Example_a_17_1.sce b/3673/CH17/EX17.a.1/Example_a_17_1.sce new file mode 100644 index 000000000..e0f11fc17 --- /dev/null +++ b/3673/CH17/EX17.a.1/Example_a_17_1.sce @@ -0,0 +1,10 @@ +//Example_a_17_1 page no:863
+clc;
+fc=2*10^3;
+K=400;
+L=K/(%pi*fc);
+L=L*1000;
+C=1/(K*%pi*fc);
+C=C*10^6;
+disp(L,"the inductance is (in mH)");
+disp(C,"the capacitance is (in microFarad)");
diff --git a/3673/CH17/EX17.a.10/Example_a_17_10.sce b/3673/CH17/EX17.a.10/Example_a_17_10.sce new file mode 100644 index 000000000..b72f69fce --- /dev/null +++ b/3673/CH17/EX17.a.10/Example_a_17_10.sce @@ -0,0 +1,12 @@ +//Example_a_17_10 page no:869
+clc;
+Ro=600;
+atten_const=10;
+f=600;
+D=10;
+N=10^(D/10);
+L1=(Ro*sqrt(N-1))/(2*%pi*f);
+C1=sqrt(N-1)/(2*%pi*Ro*f);
+C1=C1*10^6;
+disp(L1,"the inductance is (in H)");
+disp(C1,"the capacitance is (in microFarad)");
diff --git a/3673/CH17/EX17.a.11/Example_a_17_11.sce b/3673/CH17/EX17.a.11/Example_a_17_11.sce new file mode 100644 index 000000000..630f74075 --- /dev/null +++ b/3673/CH17/EX17.a.11/Example_a_17_11.sce @@ -0,0 +1,10 @@ +//Example_a_17_11 page no:870
+clc;
+R1=2000;
+L1=30*10^-3;
+R2=300;
+Ro=sqrt(R1*R2);
+C1=L1/Ro^2;
+C1=C1*10^6;
+disp(Ro,"the value of resistance Ro is (in ohm)");
+disp(C1,"the value of capacitance C1 is (in microFarad)");
diff --git a/3673/CH17/EX17.a.12/Example_a_17_12.sce b/3673/CH17/EX17.a.12/Example_a_17_12.sce new file mode 100644 index 000000000..6aef70ee1 --- /dev/null +++ b/3673/CH17/EX17.a.12/Example_a_17_12.sce @@ -0,0 +1,10 @@ +//Example_a_17_12 page no:871
+clc;
+R2=2;
+C2=0.1;
+Ro=2;
+R1=Ro^2/R2;
+L1=C2*Ro^2;
+disp(R1,"the resistance is (in ohm)");
+disp(C2,"the capacitance is (in F)");
+disp(L1,"the inductance is (in H)");
diff --git a/3673/CH17/EX17.a.2/Example_a_17_2.sce b/3673/CH17/EX17.a.2/Example_a_17_2.sce new file mode 100644 index 000000000..601d532bf --- /dev/null +++ b/3673/CH17/EX17.a.2/Example_a_17_2.sce @@ -0,0 +1,31 @@ +//Example_a_17_2 page no:864
+clc;
+fc=1.5*10^3;
+k=500;
+fa=1600;
+m=sqrt(1-(fc/fa)^2);
+L=k/(%pi*fc);
+C=1/(%pi*k*fc);
+//calculating T-section elements
+L_t=m*L/2;
+L_t=L_t*1000;
+C_t=m*C;
+C_t=C_t*10^6;
+L1_t=(1-m^2)*L/(4*m);//the inductance value is wrong in text book, correct calculation is done here
+L1_t=L1_t*1000;
+//calculating pi-section elements
+C_pi=m*C/2;
+C_pi=C_pi*10^6;
+L_pi=m*L;
+L_pi=L_pi*1000;
+C1_pi=(1-m^2)*C/(4*m);
+C1_pi=C1_pi*10^6;
+disp("the elements of T-section are");
+disp(L_t,"the inductance is (in mH)");
+disp(L1_t,"the inductance connected in serial with capacitor is (in mH)");
+disp(C_t,"the capacitance is (in microFarad)");
+disp("the elements of pi-section are");
+disp(C_pi,"the capacitance is (in microFarad)");
+disp(C1_pi,"the capacitance connected in parallel with inductor is (in microFarad)");
+disp(L_pi,"the inductance is (in mH)");
+//the inductance value is wrong in text book, correct calculation is done here
diff --git a/3673/CH17/EX17.a.3/Example_a_17_3.sce b/3673/CH17/EX17.a.3/Example_a_17_3.sce new file mode 100644 index 000000000..51e9249a7 --- /dev/null +++ b/3673/CH17/EX17.a.3/Example_a_17_3.sce @@ -0,0 +1,19 @@ +//Example_a_17_3 page no:865
+clc;
+f1=1000;
+f2=5*10^3;
+k=500;
+f0=sqrt(f1*f2);
+B_omega=f2-f1;
+//calculating T-section elements
+L1=k*(f2-f1)/(%pi*f1*f2);
+C1=1/(4*%pi*k*(f2-f1));
+//calculating pi-section elements
+L2=k/(4*%pi*(f2-f1));
+C2=(f2-f1)/(%pi*k*(f2*f1));
+disp("T-Section filter is given by");
+disp(L2*1000,"the inductance is (in mH)");
+disp(C2*10^6,"the capacitance is (in microFarad)");
+disp("pi-Section filter is given by");
+disp(2*L2*1000,"the inductance is (in mH)");
+disp(C2*10^6/2,"the capacitance is (in microFarad)");
diff --git a/3673/CH17/EX17.a.4/Example_a_17_4.sce b/3673/CH17/EX17.a.4/Example_a_17_4.sce new file mode 100644 index 000000000..760f6ded1 --- /dev/null +++ b/3673/CH17/EX17.a.4/Example_a_17_4.sce @@ -0,0 +1,11 @@ +//Example_a_17_4 page no:866
+clc;
+f=1.5*10^3;
+L=40*10^-3;
+C=0.12*10^-6;
+fc=1/(%pi*sqrt(L*C));
+ZoT=sqrt(L/C)*sqrt(1-(f/fc)^2);
+phase_shift=2*asind(f/fc);
+disp(fc/1000,"the cut off frequency is (in kHz)");
+disp(ZoT,"the iterative impedence is (in ohm)");
+disp(phase_shift,"the phase shift is (in degree)");
diff --git a/3673/CH17/EX17.a.6/Example_a_17_6.sce b/3673/CH17/EX17.a.6/Example_a_17_6.sce new file mode 100644 index 000000000..e720b93a6 --- /dev/null +++ b/3673/CH17/EX17.a.6/Example_a_17_6.sce @@ -0,0 +1,16 @@ +//Example_a_17_6 page no:867
+clc;
+fc=6000;
+k=500;
+fa=1.75*fc;
+L=k/(%pi*fc);
+C=1/(%pi*k*fc);
+m=sqrt(1-(fc/fa)^2);
+L_t=m*L/2;//inductance value varie slightly with text book, hence values are rounded off in text book
+C_t=m*C;
+L1_t=(1-m^2)*L/(4*m);
+disp("the elements of m-derived LPF(T-Section) are");
+disp(L_t*1000,"the inductance is (in mH)");
+disp(C_t*10^6,"the capacitance is (in microFarad)");
+disp(L1_t*1000,"the inductance connected in series with capacitance is (in mH)");
+//inductance value varie slightly with text book, hence values are rounded off in text book
diff --git a/3673/CH17/EX17.a.7/Example_a_17_7.sce b/3673/CH17/EX17.a.7/Example_a_17_7.sce new file mode 100644 index 000000000..e8ee1f972 --- /dev/null +++ b/3673/CH17/EX17.a.7/Example_a_17_7.sce @@ -0,0 +1,11 @@ +//Example_a_17_7 page no:867
+clc;
+f=12*10^3;
+L=10*10^-3;
+C=0.32*10^-6;
+fc=1/(%pi*sqrt(L*C));
+k=sqrt(L/C);
+atten_cont=2*acosh(f/fc);
+disp(fc/1000,"the cut off frequency is (in kHz)");
+disp(k,"nominal impedance is (in ohm)");
+disp(atten_cont,"the attenuation constant is (in nepers)");
diff --git a/3673/CH17/EX17.a.8/Example_a_17_8.sce b/3673/CH17/EX17.a.8/Example_a_17_8.sce new file mode 100644 index 000000000..c0b1408af --- /dev/null +++ b/3673/CH17/EX17.a.8/Example_a_17_8.sce @@ -0,0 +1,12 @@ +//Example_a_17_8 page no:868
+clc;
+L=60*10^-3;
+C=0.16*10^-6;
+f=2*10^3;
+fc=1/(%pi*sqrt(L*C));
+Zot=sqrt(L/C)*sqrt(1-(f/fc));
+phase_shift=2*asind(f/fc);
+disp(fc/1000,"the cut off frequency is (in kHz)");
+disp(Zot,"nominal impedance is (in ohm)");
+disp(phase_shift,"the attenuation constant is (in nepers)");
+//impedence varie slightly henc fc value is rounded off in text book
diff --git a/3673/CH17/EX17.a.9/Example_a_17_9.sce b/3673/CH17/EX17.a.9/Example_a_17_9.sce new file mode 100644 index 000000000..16214224e --- /dev/null +++ b/3673/CH17/EX17.a.9/Example_a_17_9.sce @@ -0,0 +1,11 @@ +//Example_a_17_9 page no:869
+clc;
+Ro=600;
+omega=800;
+atten_const=12;
+N=10^(atten_const/10);
+L1=(Ro*sqrt(N-1))/(2*%pi*omega);
+C1=L1/Ro^2;
+C1=C1*10^6;
+disp(L1,"the inductance is (in H)");
+disp(C1,"the capacitance is (in microFarad)");
|