diff options
Diffstat (limited to '3673/CH8')
25 files changed, 318 insertions, 0 deletions
diff --git a/3673/CH8/EX8.1/Ex8_1.sce b/3673/CH8/EX8.1/Ex8_1.sce new file mode 100644 index 000000000..914e8906f --- /dev/null +++ b/3673/CH8/EX8.1/Ex8_1.sce @@ -0,0 +1,8 @@ +//Example 8_1 page no:297
+clc;
+Xl=25;//inductive reactance in ohm
+Xc=Xl;//inductive capacitance at resonance in ohm
+R=50;//resistance in ohm
+Z=R;//impedence at resonance
+disp(Xc,"capacitive reactance is (in ohm)");
+disp(Z,"impedance at resonance is (in ohm)");
diff --git a/3673/CH8/EX8.10/Ex8_10.sce b/3673/CH8/EX8.10/Ex8_10.sce new file mode 100644 index 000000000..311029b9e --- /dev/null +++ b/3673/CH8/EX8.10/Ex8_10.sce @@ -0,0 +1,12 @@ +//Example 8_10 page no:319
+clc;
+V=200;
+R=50;
+Imax=V/R;
+Pmax=Imax*V;
+Imax=200/50;
+Imin=200/sqrt(50^2+25^2);
+disp(Imax,"the maximum value of current is (in A)");
+disp(Imin,"the minimum value of current is (in A)");
+disp(Pmax,"maximum power in the circuit is (in watts)");
+//In text book calculation in Imin is wrong
diff --git a/3673/CH8/EX8.2/Ex8_2.sce b/3673/CH8/EX8.2/Ex8_2.sce new file mode 100644 index 000000000..c8468b37b --- /dev/null +++ b/3673/CH8/EX8.2/Ex8_2.sce @@ -0,0 +1,8 @@ +//Example 8_2 page no:297
+clc;
+R=10;//resistance in ohm
+L=0.5*10^-3//inductance in henry;
+C=10*10^-6;//capacitance in farad;
+f=1/(2*%pi*sqrt(L*C));
+f=f/1000;//converting to killoHertz
+disp(f,"the resonant frequency is (in kHz)");
diff --git a/3673/CH8/EX8.3/Ex8_3.sce b/3673/CH8/EX8.3/Ex8_3.sce new file mode 100644 index 000000000..1eff1947e --- /dev/null +++ b/3673/CH8/EX8.3/Ex8_3.sce @@ -0,0 +1,19 @@ +//Example 8_3 page no:299
+clc;
+R=10;//resistance is ohm
+L=0.1;//inductive reactance in henry
+C=10*10^-6;//capacitive reactance in farad
+f=1/(2*%pi*sqrt(L*C));//frequency in Hz
+fa10=f+10;
+fb10=f-10;
+Z=R;//impedence at resonance
+disp(Z,"impedence at resonance is (in ohm)");
+Xc1=1/(2*%pi*fa10*C);//capacitive reactance at 149.2
+Xc2=1/(2*%pi*fb10*C);//capacitive reactance at 169.2
+Xl1=2*%pi*fa10*L;//inductive reactance at 149.2
+Xl2=2*%pi*fb10*L;//inductive reactance at 169.2
+Z1=sqrt(R^2+(Xl1-Xc1)^2);
+disp(Z1,"impedence at 10Hz above resonance(i.e 149.2 Hz) is (in ohm)");
+Z2=sqrt(R^2+(Xl2-Xc2)^2);
+disp(Z2,"impedence at 10Hz below resonance(i.e 169.2 Hz) is (in ohm)");
+//in text book square value of resistance is rounded so answer of impedence is approximate in text book
diff --git a/3673/CH8/EX8.4/Ex8_4.sce b/3673/CH8/EX8.4/Ex8_4.sce new file mode 100644 index 000000000..1f0191044 --- /dev/null +++ b/3673/CH8/EX8.4/Ex8_4.sce @@ -0,0 +1,13 @@ +//Example 8_4 page no:303
+clc;
+R=10;//resistance in ohm
+L=0.1;//inducatance in henry
+C=50*10^-6;//capacitance in farad
+V=50;
+fl=(1/(2*%pi*sqrt(L*C)))*(sqrt(1/(1-((100*50*10^-6)/2*0.1))));
+disp(fl,"frequency at which voltage is maximum across inductor is (in Hz)");
+fl=(1/(2*%pi))*(sqrt(200000-500));
+disp(fl,"frequency at which voltage is maximum across capacitor is (in Hz)");
+f=1/(2*%pi*sqrt(L*C));
+disp(f,"the resonant frequency is (in Hz)");
+//in text book square root values are rounded so value varies by 0.82
diff --git a/3673/CH8/EX8.5/Ex8_5.sce b/3673/CH8/EX8.5/Ex8_5.sce new file mode 100644 index 000000000..c20370ea9 --- /dev/null +++ b/3673/CH8/EX8.5/Ex8_5.sce @@ -0,0 +1,9 @@ +//Example 8_5 page no:306
+clc;
+R=10;//resistance in ohm
+L=0.1;//inducatance in henry
+C=10*10^-6;//capacitance in farad
+fr=1/(2*%pi*(sqrt(L*C)));
+BW=R/(2*%pi*L);
+Q=fr/BW;
+disp(Q,"the quality factor of a coil for the series circuit is");
diff --git a/3673/CH8/EX8.6/Ex8_6.sce b/3673/CH8/EX8.6/Ex8_6.sce new file mode 100644 index 000000000..39e3df478 --- /dev/null +++ b/3673/CH8/EX8.6/Ex8_6.sce @@ -0,0 +1,9 @@ +//Example 8_6 page no:308
+clc;
+R=100;
+L=5;
+C=100*10^-6;
+fr=1/(2*%pi*sqrt(L*C));
+Q=2*%pi*7.12*5/100;
+BW=fr/Q;
+disp(BW,"bandwidth of the circuit is (in Hz)");
diff --git a/3673/CH8/EX8.7/Ex8_7.sce b/3673/CH8/EX8.7/Ex8_7.sce new file mode 100644 index 000000000..e92bb1a80 --- /dev/null +++ b/3673/CH8/EX8.7/Ex8_7.sce @@ -0,0 +1,6 @@ +//Example 8_7 page no:310
+clc;
+L=50*10^-3;
+C=0.01*10^-6;
+fr=1/(2*%pi*sqrt(L*C));
+disp(fr,"resonant frequency is (in Hz)");
diff --git a/3673/CH8/EX8.8/Ex8_8.sce b/3673/CH8/EX8.8/Ex8_8.sce new file mode 100644 index 000000000..362e6d0ef --- /dev/null +++ b/3673/CH8/EX8.8/Ex8_8.sce @@ -0,0 +1,7 @@ +//Example 8_8 page no:311
+clc;
+R=10;
+L=0.1;
+C=10*10^-6;
+fr=(1/(2*%pi))*(sqrt((1/(L*C))-((R^2)/(L^2))));
+disp(fr,"the resonant frequency is (in Hz)");
diff --git a/3673/CH8/EX8.9/Ex8_9.sce b/3673/CH8/EX8.9/Ex8_9.sce new file mode 100644 index 000000000..6e394be01 --- /dev/null +++ b/3673/CH8/EX8.9/Ex8_9.sce @@ -0,0 +1,13 @@ +//Example 8_9 page no:319
+clc;
+R=50;
+Xl=25;
+V=200;
+f=50;
+Imax=V/Xl;
+Imin=V/(sqrt(R^2+Xl^2));
+Pmax=V^2/(2*Xl);
+disp(Imax,"the maximum value of current is (in A)");
+disp(Imin,"the minimum value of current is (in A)");
+disp(Pmax,"the maximum power is (in watts)");
+//In text book calculation in Imin is wrong
diff --git a/3673/CH8/EX8.a.1/Example_a_8_1.sce b/3673/CH8/EX8.a.1/Example_a_8_1.sce new file mode 100644 index 000000000..8d4b55ba1 --- /dev/null +++ b/3673/CH8/EX8.a.1/Example_a_8_1.sce @@ -0,0 +1,13 @@ +//Example_a_8_1 page no:325
+clc;
+R=10;
+L=0.1;
+C=50*10^-6;
+V=100;
+omega=1/sqrt(L*C);
+fr=omega/(2*%pi);
+I=V/R;
+Vl=I*omega*L;
+Q=omega*L/R;
+disp(Vl,"the voltage drop across the inductor is (in V)");
+disp(Q,"the quality factor is");
diff --git a/3673/CH8/EX8.a.10/Example_a_8_10.sce b/3673/CH8/EX8.a.10/Example_a_8_10.sce new file mode 100644 index 000000000..431fe5cb8 --- /dev/null +++ b/3673/CH8/EX8.a.10/Example_a_8_10.sce @@ -0,0 +1,10 @@ +//Example_a_8_10 page no:331
+clc;
+L=0.1;
+Q=5;
+omega_r=500;
+R=omega_r*L/Q;
+C=1/(L*omega_r^2);
+C=C*10^6;
+disp(R,"the coil resistance at resonant frequency is (in ohm)");
+disp(C,"the capacitance is (in microFarad)");
diff --git a/3673/CH8/EX8.a.11/Example_a_8_11.sce b/3673/CH8/EX8.a.11/Example_a_8_11.sce new file mode 100644 index 000000000..03fb52d4d --- /dev/null +++ b/3673/CH8/EX8.a.11/Example_a_8_11.sce @@ -0,0 +1,15 @@ +//Example_a_8_11 page no:332
+clc;
+L=0.2;
+C=10*10^-6;
+R=50;
+fr=1/(2*%pi*sqrt(L*C));
+Q=(2*%pi*fr*L)/R;
+f1=fr-(R/(4*%pi*L));
+f2=fr+(R/(4*%pi*L));
+BW=f2-f1;
+disp(fr,"the resonant frequency is (in Hz)");
+disp(Q,"the quality factor is ");
+disp(f1,"the lower frequency limit is (in Hz)");
+disp(f2,"the upper frequency limit is (in Hz)");
+disp(BW,"the bandwidth of the circuit is (in Hz)");
diff --git a/3673/CH8/EX8.a.12/Example_a_8_12.sce b/3673/CH8/EX8.a.12/Example_a_8_12.sce new file mode 100644 index 000000000..68f20a5d4 --- /dev/null +++ b/3673/CH8/EX8.a.12/Example_a_8_12.sce @@ -0,0 +1,6 @@ +//Example_a_8_12 page no:332
+clc;
+//variables cannot be used without initialization and hence the equation cannot be derived like in the text book, the capacitance value can be calculated using the derived values by substituting known values in the equation
+C=15/(2*%pi*10^6*1256*80);
+C=C*10^12;//converting to pico Farad
+disp(C,"the value of C to give resonance is (in pF)");
diff --git a/3673/CH8/EX8.a.13/Example_a_8_13.sce b/3673/CH8/EX8.a.13/Example_a_8_13.sce new file mode 100644 index 000000000..e8baf6fe9 --- /dev/null +++ b/3673/CH8/EX8.a.13/Example_a_8_13.sce @@ -0,0 +1,30 @@ +//Example_a_8_13 page no:333
+clc;
+V_mag=200;
+V_ang=0;
+X1=25;
+I2=200/50;
+//when R1=10;
+R1=10;
+I1_mag=V_mag/sqrt(R1^2+X1^2);
+I1_ang=0-atand(X1/R1);
+I1_real=I1_mag*cosd(I1_ang);
+I1_imag=I1_mag*sind(I1_ang);
+I1=I1_real+(%i*I1_imag);
+Imax=I1+I2;
+Imax_mag=sqrt(real(Imax)^2+imag(Imax)^2);
+Imax_ang=atand(imag(Imax)/real(Imax));
+disp(Imax_mag,"the magnitude of maximum current is (in A)");
+disp(Imax_ang,"the angle of maximum current is (in degree)");
+//when R1=50;
+R1=50;
+I1_mag=V_mag/sqrt(R1^2+X1^2);
+I1_ang=0-atand(X1/R1);
+I1_real=I1_mag*cosd(I1_ang);
+I1_imag=I1_mag*sind(I1_ang);
+I1=I1_real+(%i*I1_imag);
+Imax=I1+I2;
+Imax_mag=sqrt(real(Imax)^2+imag(Imax)^2);
+Imax_ang=atand(imag(Imax)/real(Imax));
+disp(Imax_mag,"the magnitude of minimum current is (in A)");
+disp(Imax_ang,"the angle of minimum current is (in degree)");
diff --git a/3673/CH8/EX8.a.14/Example_a_8_14.sce b/3673/CH8/EX8.a.14/Example_a_8_14.sce new file mode 100644 index 000000000..e1c4ead7d --- /dev/null +++ b/3673/CH8/EX8.a.14/Example_a_8_14.sce @@ -0,0 +1,15 @@ +//Example_a_8_14 page no:334
+clc;
+fr=120*10^3;
+BW=50*10^3;
+Q=2;
+f1f2=sqrt(fr);
+f=poly([-14.4*10^9,50000,1],'f1','c');
+fre=roots(f);
+f1=fre(2);
+f1=f1/1000;//converting to killo Hz
+f2=BW+f1;
+f2=f2/1000;//converting to killo Hz
+disp(f1,"the lower cutoff frequency is (in kHz)");
+disp(f2,"the upper cutoff frequency is (in kHz)");
+//in textbook the frequency calculated is wrong, the root values of f1 are wrong
diff --git a/3673/CH8/EX8.a.15/Example_a_8_15.sce b/3673/CH8/EX8.a.15/Example_a_8_15.sce new file mode 100644 index 000000000..4bcef3437 --- /dev/null +++ b/3673/CH8/EX8.a.15/Example_a_8_15.sce @@ -0,0 +1,13 @@ +//Example_a_8_15 page no:335
+clc;
+V=220;
+f=50;
+Vr=550;
+Ir=1;
+R=V/Ir;
+C=1/(Vr*2*%pi*f);
+C=C*10^6;
+L=1/((C*10^-6)*(100*%pi)^2);
+disp(R,"the resistance is (in ohm)");
+disp(L,"the inducatance is (in H)");
+disp(C,"the capacitance is (in microFarad)");
diff --git a/3673/CH8/EX8.a.2/Example_a_8_2.sce b/3673/CH8/EX8.a.2/Example_a_8_2.sce new file mode 100644 index 000000000..43cb91b3e --- /dev/null +++ b/3673/CH8/EX8.a.2/Example_a_8_2.sce @@ -0,0 +1,12 @@ +//Example_a_8_2 page no:325
+clc;
+Q=5;
+I=10;
+V=100;
+omega=50;
+R=V/I;
+L=50/omega;
+C=1/(Q*omega*R);
+C=C*10^6;
+disp(L,"the inductance is (in H)");
+disp(C,"the capacitance is (in microFarad)");
diff --git a/3673/CH8/EX8.a.3/Example_a_8_3.sce b/3673/CH8/EX8.a.3/Example_a_8_3.sce new file mode 100644 index 000000000..ac65d1e4d --- /dev/null +++ b/3673/CH8/EX8.a.3/Example_a_8_3.sce @@ -0,0 +1,18 @@ +//Example_a_8_3 page no:326
+clc;
+Vmax=10;
+Vrms=Vmax/sqrt(2);
+Vc=500;
+Q=Vc/Vrms;
+BW=400;
+Z=100;
+R=Z;
+omega_r=Q*BW;
+fr=omega_r/(2*%pi);
+L=R/BW;
+C=1/((2*%pi*fr)^2*L);
+C=C*10^9;
+disp(fr,"the resonant frequency is (in Hz)");
+disp(L,"the inductance of the circuit is (in H)");
+disp(C,"the capacitance of the circuit is (in nF)");
+//resonant frequency varies slightly with text book hence in text book value of Q is rounded off
diff --git a/3673/CH8/EX8.a.4/Example_a_8_4.sce b/3673/CH8/EX8.a.4/Example_a_8_4.sce new file mode 100644 index 000000000..a6014c583 --- /dev/null +++ b/3673/CH8/EX8.a.4/Example_a_8_4.sce @@ -0,0 +1,13 @@ +//Example_a_8_4 page no:327
+clc;
+omega=1000;
+Xl=poly([25,-20.3,1],'x','c');
+Xl_r=roots(Xl);
+L1=Xl_r(1)/omega;
+L1=L1*10^3;
+disp(L1,"the value of inductance is (in mH)");
+//calculating the inductance value
+L2=Xl_r(2)/omega;
+L2=L2*10^3;
+disp("or");
+disp(L2,"the value of inductance is (in mH)");
diff --git a/3673/CH8/EX8.a.5/Example_a_8_5.sce b/3673/CH8/EX8.a.5/Example_a_8_5.sce new file mode 100644 index 000000000..9ac411aa1 --- /dev/null +++ b/3673/CH8/EX8.a.5/Example_a_8_5.sce @@ -0,0 +1,10 @@ +//Example_a_8_5 page no:328
+clc;
+Z1=20+%i*10;
+Z2=10-%i*30;
+Z12=Z1*Z2/(Z1+Z2);
+Z3=30;//here X is eliminated hence unknown variable cannot be used for calculation
+Z=Z3+Z12;
+X=imag(Z);
+X=-X;//hence X is equated to zero
+disp(X,"the value of X which will produce resonance is (in ohm)");
diff --git a/3673/CH8/EX8.a.6/Example_a_8_6.sce b/3673/CH8/EX8.a.6/Example_a_8_6.sce new file mode 100644 index 000000000..37ff46264 --- /dev/null +++ b/3673/CH8/EX8.a.6/Example_a_8_6.sce @@ -0,0 +1,15 @@ +//Example_a_8_6 page no:328
+clc;
+V=100;
+I=0.7;
+Vc=200;
+omega=2*%pi*200;
+C=I/(omega*200);
+C=C*10^6;//converting to microFarad
+Xc=200/0.7;
+Xl=Xc;
+L=Xl/(2*%pi*200);
+R=(V/I)-50;
+disp(C,"the capacitance is (in microFarad)");
+disp(L,"the inductanc is (in H)");
+disp(R,"the resistance is (in ohm)");
diff --git a/3673/CH8/EX8.a.7/Example_a_8_7.sce b/3673/CH8/EX8.a.7/Example_a_8_7.sce new file mode 100644 index 000000000..9b6c23a47 --- /dev/null +++ b/3673/CH8/EX8.a.7/Example_a_8_7.sce @@ -0,0 +1,16 @@ +//Example_a_8_7 page no:329
+clc;
+V=5;
+I=0.1;
+L=0.1;
+C=5*10^-6;
+R=V/I;
+omega_r=1/sqrt(L*C);
+fr=omega_r/(2*%pi);
+Q=omega_r*L/R;//in text book the Q value is wrong but correct value is used in calculation of BW
+BW=fr/Q;//BW value varies slightly hence Q value is rounded off in text book
+disp(R,"the value of resistance at resonance is (in ohm)");
+disp(fr,"the resonant frequency is (in Hz)");
+disp(Q,"the quality factor is ");
+disp(BW,"the bandwidth is (in Hz)");
+//calculation of Q value is wrong in text book
diff --git a/3673/CH8/EX8.a.8/Example_a_8_8.sce b/3673/CH8/EX8.a.8/Example_a_8_8.sce new file mode 100644 index 000000000..8ac9d6b3b --- /dev/null +++ b/3673/CH8/EX8.a.8/Example_a_8_8.sce @@ -0,0 +1,16 @@ +//Example_a_8_8 page no:330
+clc;
+V=10;
+fr=100;
+C=10*10^-6;
+omega=900;
+L=1/(C*(2*%pi*fr)^2);
+C=12*10^-6;
+R=(omega*L)-(1/(omega*C));
+Q=omega*L/R;
+I=V/R;
+disp(L,"the inductance is (in H)");
+disp(R,"the resistance is (in ohm)");
+disp(Q,"the quality factor is ");
+disp(I,"the maximum current in the circuit is (in A)");
+//resistance value varies in the textbook due to inductance value is rounded off in text book
diff --git a/3673/CH8/EX8.a.9/Example_a_8_9.sce b/3673/CH8/EX8.a.9/Example_a_8_9.sce new file mode 100644 index 000000000..2de36d08c --- /dev/null +++ b/3673/CH8/EX8.a.9/Example_a_8_9.sce @@ -0,0 +1,12 @@ +//Example_a_8_9 page no:331
+clc;
+V=20;
+omega_r=500;
+C=20*10^-6;
+Xl=1/(omega_r^2*C);
+C=30*10^-6;
+R=((omega_r*Xl)-(1/(omega_r*C)));
+Q=(omega_r*Xl)/R;
+disp(Xl,"the value of inductance is (in H)");
+disp(R,"the value of resistance is (in ohm)");
+disp(Q,"the quality factor is ");
|