21 files changed, 260 insertions, 0 deletions

diff --git a/1430/CH11/EX11.1/exa11_1.jpg b/1430/CH11/EX11.1/exa11_1.jpg
new file mode 100644
index 000000000..054a44c0f
--- /dev/null
+++ b/1430/CH11/EX11.1/exa11_1.jpg
diff --git a/1430/CH11/EX11.1/exa11_1.sce b/1430/CH11/EX11.1/exa11_1.sce
new file mode 100644
index 000000000..a1b9ee28b
--- /dev/null
+++ b/1430/CH11/EX11.1/exa11_1.sce
@@ -0,0 +1,25 @@
+// Example 11.1

+// A Frequency-Selective Network

+// v_in(t)=10*cos(20*t)+10*cos(300*t)

+R=8;

+L=0.2;

+s=%s; 

+H_s= R/(s*L+R); // H(s)=V_out/V_in , applying KVL in figure 11.1 

+// Selecting input frequency to 

+omega1= 20;

+H_omega1= horner(H_s,%i*omega1);

+a_omega1=abs(H_omega1);// amplitude ratio 

+theta1_r=atan(imag(H_omega1),real(H_omega1)); // Phase shift in radian

+theta1_d=atan(imag(H_omega1),real(H_omega1))*(180/%pi); // Phase shift in degree

+// Selecting input frequency to

+omega2=300;

+H_omega2= horner(H_s,%i*omega2);

+a_omega2=abs(H_omega2);// amplitude ratio 

+theta2_d=atan(imag(H_omega2),real(H_omega2))*(180/%pi);// Phase shift in degree

+theta2_r=atan(imag(H_omega2),real(H_omega2));// Phase shift in radians

+t=0:0.001:5

+v_out=a_omega1*10*cos(omega1*t+theta1_r)+a_omega2*10*cos(omega2*t+theta2_r)

+plot(t,v_out);

+xlabel('t');

+ylabel('v_out(t)')

+title('Steady State Output Voltage Waveform')

diff --git a/1430/CH11/EX11.10/exa11_10.jpg b/1430/CH11/EX11.10/exa11_10.jpg
new file mode 100644
index 000000000..4fcef4082
--- /dev/null
+++ b/1430/CH11/EX11.10/exa11_10.jpg
diff --git a/1430/CH11/EX11.10/exa11_10.sce b/1430/CH11/EX11.10/exa11_10.sce
new file mode 100644
index 000000000..7f97adc3b
--- /dev/null
+++ b/1430/CH11/EX11.10/exa11_10.sce
@@ -0,0 +1,8 @@
+// Example 11.10

+//Bode Plot of a Narrowband Filter

+s=%s;

+num=20*s;

+den=(s^2+20*s+10^4)

+H_s=num/den; // Transfer function of given filter

+h1=syslin('c',H_s);

+bode(h1);

diff --git a/1430/CH11/EX11.13/exa11_13.sce b/1430/CH11/EX11.13/exa11_13.sce
new file mode 100644
index 000000000..403359989
--- /dev/null
+++ b/1430/CH11/EX11.13/exa11_13.sce
@@ -0,0 +1,31 @@
+// Example 11.13

+// Op-Amp Circuit for a Lowpass Filter

+f_co=15.9*10^3; // Hertz

+Q3=0.618;

+Q5=1.618;

+K=80; // Overall gain

+// Approximately equal distribution of total gain

+K1=5;

+K3=4;

+K5=4; 

+R_mu=1000; // assume

+R_F1=(5-1)*R_mu; // VAlues of feedback Resistors

+R_F3=(4-1)*R_mu;

+R_F5=R_F3;

+C=10^-9; // Appropriate choice

+R=1/(2*%pi*f_co*C); // For 1st order stage

+// For 2nd stage

+r=R;

+K_i=4;

+// Thus the resistor for the stage with Q3

+R1=2*Q3*r/(1+sqrt(4*Q3^2*(K_i-2)+1));

+R2=r^2/R1;

+// Thus the resistor for the stage with Q5

+R3=2*Q5*r/(1+sqrt(4*Q5^2*(K_i-2)+1));

+R4=r^2/R3;

+disp(C,"Capacitor for all the stages(Farad)=")

+disp(R,"Resistor for the 1st order stage(Ohms)=")

+disp(R1,"Resistor for the 2nd order stage with Q3(Ohms)=")

+disp(R2,"Resistor for the 2nd order stage with Q3(Ohms)=")

+disp(R3,"Resistor for the 3rd order stage with Q5(Ohms)=")

+disp(R4,"Resistor for the 3rd order stage with Q5(Ohms)=")

diff --git a/1430/CH11/EX11.13/exa11_13.txt b/1430/CH11/EX11.13/exa11_13.txt
new file mode 100644
index 000000000..bd7080db0
--- /dev/null
+++ b/1430/CH11/EX11.13/exa11_13.txt
@@ -0,0 +1,29 @@
+

+ 

+-->exec('C:\Users\sangeet\Documents\Scilab\Circuits\Chapter 11\exa11_13.sce', -1)

+ 

+ Capacitor for all the stages(Farad)=   

+ 

+    1.000D-09  

+ 

+ Resistor for the 1st order stage(Ohms)=   

+ 

+    10009.745  

+ 

+ Resistor for the 2nd order stage with Q3(Ohms)=   

+ 

+    4105.1307  

+ 

+ Resistor for the 2nd order stage with Q3(Ohms)=   

+ 

+    24407.26  

+ 

+ Resistor for the 3rd order stage with Q5(Ohms)=   

+ 

+    5698.3433  

+ 

+ Resistor for the 3rd order stage with Q5(Ohms)=   

+ 

+    17583.179  

+ 

+

diff --git a/1430/CH11/EX11.3/exa11_3.jpg b/1430/CH11/EX11.3/exa11_3.jpg
new file mode 100644
index 000000000..65fbc881c
--- /dev/null
+++ b/1430/CH11/EX11.3/exa11_3.jpg
diff --git a/1430/CH11/EX11.3/exa11_3.sce b/1430/CH11/EX11.3/exa11_3.sce
new file mode 100644
index 000000000..3f7a756bc
--- /dev/null
+++ b/1430/CH11/EX11.3/exa11_3.sce
@@ -0,0 +1,19 @@
+// Example 11.3

+// Frequency-Response Calcuations

+s=%s;

+num=20*(s+25)

+den=s^2+20*s+500;

+omega=[0:1:1000]; // diffrent value of frequency for frequency respose plot

+H_s=num/den; // Given transfer function

+H_omega=horner(H_s,%i*omega);

+a_omega=abs(H_omega);

+theta=atan(imag(H_omega),real(H_omega))*(180/%pi);

+subplot(2,1,1)

+plot(omega,a_omega,'-g')

+xlabel('omega')

+ylabel('a_omega')

+title('Frequency-response curve')

+subplot(2,1,2)

+plot(omega,theta,'-r')

+xlabel('omega')

+ylabel('theta')

diff --git a/1430/CH11/EX11.4/exa11_4.sce b/1430/CH11/EX11.4/exa11_4.sce
new file mode 100644
index 000000000..590bc8ea8
--- /dev/null
+++ b/1430/CH11/EX11.4/exa11_4.sce
@@ -0,0 +1,14 @@
+// Example 11.4

+// Parallel Filter Network

+// From figure 11.9 ,Let us assume values for R ,omega and C for illustration

+R=50;

+C=0.01*10^-6;

+omega=50;

+s=%s;

+H_s= R/(R+1/(s*C)); // H(s)=I_C/I_in, can be found using current divider

+H_omega=horner(H_s,%i*omega)

+// Comparing this transfer function with first-order highpass filter we get

+K=1;

+omega_cutf=1/(R*C);

+disp(K,"Gain=")

+disp(omega_cutf,"Cutoff Frequency(rad/s)=")

diff --git a/1430/CH11/EX11.4/exa11_4.txt b/1430/CH11/EX11.4/exa11_4.txt
new file mode 100644
index 000000000..7a8cf2bd8
--- /dev/null
+++ b/1430/CH11/EX11.4/exa11_4.txt
@@ -0,0 +1,14 @@
+  

+-->exec('C:\Users\sangeet\Documents\Scilab\Circuits\Chapter 11\exa11_4.sce', -1)

+ 

+ Gain=   

+ 

+    1.  

+ 

+ Cutoff Frequency(rad/s)=   

+ 

+    2000000.  

+ 

+    

+ 

+

diff --git a/1430/CH11/EX11.5/exa11_5.jpg b/1430/CH11/EX11.5/exa11_5.jpg
new file mode 100644
index 000000000..87d1e8f24
--- /dev/null
+++ b/1430/CH11/EX11.5/exa11_5.jpg
diff --git a/1430/CH11/EX11.5/exa11_5.sce b/1430/CH11/EX11.5/exa11_5.sce
new file mode 100644
index 000000000..3de7387c9
--- /dev/null
+++ b/1430/CH11/EX11.5/exa11_5.sce
@@ -0,0 +1,36 @@
+// Example 11.5

+// Design of a Lowpass Filter

+f_co=4000; // In Hertz

+R_L=200;

+R_s=50;

+// Using node equation in figure 11.10

+// (1/R_s+1/R_L+s*C)*V_out=(1/R_s)*V_s;

+// V_out/V_s=H(s)=(K*omega_co)/(s+omega_co)---equation (1)

+// Comparing equation (1) with low pass filter equation we get,

+K=(1/R_s)/(1/R_s+1/R_L);

+omega_co=2*%pi*f_co;

+C=1/(omega_co*(1/R_s+1/R_L));

+R_eq=(R_s*R_L)/(R_s+R_L);

+tau=R_eq*C;

+// design testing

+// Model for voice signal is 3kHz sinusoid with V_m=5V

+// so total input signal will become

+// v_s(t)=5*cos(omega1*t)+0.5*cos(omega2*t)

+omega1=2*%pi*3000;

+omega2=2*%pi*16000;

+// using equation for Low pass filter we get

+H_omega1=(K*omega_co)/(%i*omega1+omega_co);

+H_omega2=(K*omega_co)/(%i*omega2+omega_co);

+a_omega1=abs(H_omega1);

+theta1_r=atan(imag(H_omega1),real(H_omega1));

+a_omega2=abs(H_omega2);

+theta2_r=atan(imag(H_omega2),real(H_omega2));

+t=0:0.0001:0.01;

+v_out=a_omega1*5*cos(omega1*t+theta1_r)+a_omega2*0.5*cos(omega2*t+theta2_r);

+v_s=5*cos(omega1*t)+0.5*cos(omega2*t)

+plot(t,v_out,t,v_s,'-g')

+xlabel('t')

+ylabel('v_out(t)')

+title('Voltage Waveform')

+h1=legend(['v_out';'v_s'])

+disp("waveform Shows that whistle amplitude has been cut down to 3% of the voice signal at the input")

diff --git a/1430/CH11/EX11.5/exa11_5.txt b/1430/CH11/EX11.5/exa11_5.txt
new file mode 100644
index 000000000..170746317
--- /dev/null
+++ b/1430/CH11/EX11.5/exa11_5.txt
@@ -0,0 +1,7 @@
+ 

+ -->exec('C:\Users\sangeet\Documents\Scilab\Circuits\Chapter 11\exa11_5.sce', -1)

+ 

+ waveform Shows that whistle amplitude has been cut down to 3% of the voice signal at the in 

+      put                                                                                    

+ 

+

diff --git a/1430/CH11/EX11.6/exa11_6.sce b/1430/CH11/EX11.6/exa11_6.sce
new file mode 100644
index 000000000..276d86b99
--- /dev/null
+++ b/1430/CH11/EX11.6/exa11_6.sce
@@ -0,0 +1,17 @@
+// Example 11.6

+// Design of a Bandpass filter

+L=1*10^-3;

+R_w=1.2;

+B=2*%pi*2*250; // Bandwidth

+omega_0=2*%pi*20*10^3;

+Q=omega_0/B; // quality factor

+f_l=20000-250;

+f_u=20000+250;

+f_0=sqrt(f_l*f_u);

+Q_par=Q;

+C=1/(omega_0^2*L); // Required value of Capacitor

+R_par=L/(C*R_w); // Parallel equivalent of winding resistance

+R_eq=Q*omega_0*L;

+R=(R_eq*R_par)/(R_par-R_eq);

+disp(C,"Required value of C (Farad)=")

+disp(R,"Required value of R(Ohms)=")

diff --git a/1430/CH11/EX11.6/exa11_6.txt b/1430/CH11/EX11.6/exa11_6.txt
new file mode 100644
index 000000000..b88384550
--- /dev/null
+++ b/1430/CH11/EX11.6/exa11_6.txt
@@ -0,0 +1,13 @@
+ 

+ 

+-->exec('C:\Users\sangeet\Documents\Scilab\Circuits\Chapter 11\exa11_6.sce', -1)

+ 

+ Required value of C (Farad)=   

+ 

+    6.333D-08  

+ 

+ Required value of R(Ohms)=   

+ 

+    8133.2029  

+ 

+

diff --git a/1430/CH11/EX11.7/exa11_7.sce b/1430/CH11/EX11.7/exa11_7.sce
new file mode 100644
index 000000000..3d2451d84
--- /dev/null
+++ b/1430/CH11/EX11.7/exa11_7.sce
@@ -0,0 +1,20 @@
+// Example 11.7

+// Design of an Active Filter

+f_l=200;

+f_u=4000;

+// f_l=1/(2*%pi*R1*C1) and f_u=1/(2*%pi*R_F*C_F)

+// which limits the value of capacitance to

+// 5nF<C_1<500nF and 0.25nF<C_F<25nF

+// R_F= 1/(omega_u*C_F) and R_1=1/(omega_l*C_1)

+// K=C_1/(20*C_F)

+// thus i can increase the midband gain by taking large value for C_1 and small value for C_F

+// thus we choose standard values for capacitors

+C_1= 100*10^-9;

+C_F=1*10^-9;

+R_1=1/(2*%pi*f_l*C_1);

+R_F=1/(2*%pi*f_u*C_F);

+//Which gives

+K=R_F/R_1;

+disp("Required value for resistors are(in Ohms)")

+disp(R_1,"R_1=")

+disp(R_F,"R_F=")

diff --git a/1430/CH11/EX11.7/exa11_7.txt b/1430/CH11/EX11.7/exa11_7.txt
new file mode 100644
index 000000000..ed3d255d5
--- /dev/null
+++ b/1430/CH11/EX11.7/exa11_7.txt
@@ -0,0 +1,14 @@
+ 

+ 

+-->exec('C:\Users\sangeet\Documents\Scilab\Circuits\Chapter 11\exa11_7.sce', -1)

+ 

+ Required value for resistors are(in Ohms)   

+ 

+ R_1=   

+ 

+    7957.7472  

+ 

+ R_F=   

+ 

+    39788.736  

+ 

diff --git a/1430/CH11/EX11.8/exa11_8.jpg b/1430/CH11/EX11.8/exa11_8.jpg
new file mode 100644
index 000000000..ca003140b
--- /dev/null
+++ b/1430/CH11/EX11.8/exa11_8.jpg
diff --git a/1430/CH11/EX11.8/exa11_8.sce b/1430/CH11/EX11.8/exa11_8.sce
new file mode 100644
index 000000000..1106fd8e4
--- /dev/null
+++ b/1430/CH11/EX11.8/exa11_8.sce
@@ -0,0 +1,5 @@
+// Example 11.8

+// An Illustrative Bode Plot

+s=poly(0,'s');

+h=syslin('c',(s+200)^2/(10*s^2))

+bode(h)

diff --git a/1430/CH11/EX11.9/exa11_9.jpg b/1430/CH11/EX11.9/exa11_9.jpg
new file mode 100644
index 000000000..0467d32af
--- /dev/null
+++ b/1430/CH11/EX11.9/exa11_9.jpg
diff --git a/1430/CH11/EX11.9/exa11_9.sce b/1430/CH11/EX11.9/exa11_9.sce
new file mode 100644
index 000000000..50e513a10
--- /dev/null
+++ b/1430/CH11/EX11.9/exa11_9.sce
@@ -0,0 +1,8 @@
+// Example 11.9

+// Frequency Response of a Bandpass Amplifier

+s=poly(0,'s');

+num=20000*s;

+den=(s+100)*(s+400);

+H_s=num/den; // Bandpass amplifier transfer function

+h1=syslin('c',H_s);

+bode(h1)