diff options
Diffstat (limited to '1574')
208 files changed, 1881 insertions, 0 deletions
diff --git a/1574/CH1/EX1.1/Result_of_Chapter_1_Ex1_1.JPG b/1574/CH1/EX1.1/Result_of_Chapter_1_Ex1_1.JPG Binary files differnew file mode 100755 index 000000000..e6e4dc980 --- /dev/null +++ b/1574/CH1/EX1.1/Result_of_Chapter_1_Ex1_1.JPG diff --git a/1574/CH1/EX1.1/Signals_Ex_1_1.sce b/1574/CH1/EX1.1/Signals_Ex_1_1.sce new file mode 100755 index 000000000..896df35fd --- /dev/null +++ b/1574/CH1/EX1.1/Signals_Ex_1_1.sce @@ -0,0 +1,15 @@ +clc
+//Chapter1: Signals
+//Example1,page no12
+//Given:
+n=round(rand())//any integers
+m=round(rand())//any integers
+wo=2*(n+m)*%pi//Angular Freq
+t=0:0.01:2*%pi/wo
+to=0,t1=2*%pi/wo
+C= integrate('sin(n*wo*t)*cos(m*wo*t)','t',to,t1)// integrating sin(n*wo*t)*cos(m*wo*t) function
+mprintf('The value of the above integral is:C=%d\n Since C=%d, the two functions: \n f(t)=sin(n*wo*t)\n g(t)=cos(n*wo*t) are Orthogonal',C,C)
+
+
+
+
diff --git a/1574/CH1/EX1.10/Result_of_Chapter_1_Ex1_10.JPG b/1574/CH1/EX1.10/Result_of_Chapter_1_Ex1_10.JPG Binary files differnew file mode 100755 index 000000000..7777c5a4e --- /dev/null +++ b/1574/CH1/EX1.10/Result_of_Chapter_1_Ex1_10.JPG diff --git a/1574/CH1/EX1.10/Signals_Ex_1_10.sce b/1574/CH1/EX1.10/Signals_Ex_1_10.sce new file mode 100755 index 000000000..753a7f2bf --- /dev/null +++ b/1574/CH1/EX1.10/Signals_Ex_1_10.sce @@ -0,0 +1,22 @@ +clc
+//Chapter1: Signals
+//Example1.10, page no 38
+//Given
+//a
+A=1,delta=1e-3,T=10e-3
+w0=2*%pi/T,n=0
+for i=0:10
+ if n==0 then
+ Sa=1
+ else
+ Sa=sin(n*%pi*delta/T)/(n*%pi*delta/T)
+ end
+
+end
+
+F=(A*delta/T)*Sa//spectral Amplitude
+mprintf('a)\nAt wo,n=0: The spectral amplitude is: F0= %f V\n',F)
+//b
+// displaying the fourier Transform of the given function
+mprintf('b)\nThe Fourier tranform of f(t-delta/2) is given as: '),
+mprintf('\nf(t)=A*delta/T*∑Sa(n*delta*pi/T)*exp(jwo(t-delta/2))')
diff --git a/1574/CH1/EX1.11.1/Result_Figure_1_Ex1_11_Pg39.jpg b/1574/CH1/EX1.11.1/Result_Figure_1_Ex1_11_Pg39.jpg Binary files differnew file mode 100755 index 000000000..572dfbf65 --- /dev/null +++ b/1574/CH1/EX1.11.1/Result_Figure_1_Ex1_11_Pg39.jpg diff --git a/1574/CH1/EX1.11.1/Signals_Ex_1_11_Pg_39.sce b/1574/CH1/EX1.11.1/Signals_Ex_1_11_Pg_39.sce new file mode 100755 index 000000000..c07aac36a --- /dev/null +++ b/1574/CH1/EX1.11.1/Signals_Ex_1_11_Pg_39.sce @@ -0,0 +1,31 @@ +clear ;
+clc ;
+close ;
+//Chapter1
+//Example1.11(1), page no 39
+//Given
+T = 10; //time Tau
+Tg = -T/2 :0.1: T/2; // time period for given Gate Function -tau/2 to tau/2
+G_t0 = 1; //Magnitude of Gate Function (A)
+G_t = G_t0* ones (1, length (Tg));// Gate function G(t)
+f = -%pi: %pi / length (Tg): %pi ;
+Dw = 0.1;
+F_jW =G_t*exp(sqrt(-1)*Tg'*f)*Dw;// fourier Transform of the gate function
+F_jW = real(F_jW);
+// Plotting the Fourier Transform of G(t)
+figure
+subplot (2 ,1 ,1)
+a=gca();
+a.y_location ="origin";
+a.x_location ="origin";
+plot2d(Tg,G_t,2);
+xtitle( ' Given Function (Gate Function) G(t) ' )
+subplot(2 ,1 ,2)
+a= gca();
+a.y_location ="origin";
+a.x_location ="origin";
+plot2d(f,F_jW,5);
+xlabel('Frequency in Radians/Seconds ');
+title('Continuous time Fourier Transform X(jW)' )
+xtitle ( 'Fourier Transform of G(t)= F(jW) ' )
+mprintf('F(w)= A*t*Sa(w*t/2) ')
diff --git a/1574/CH1/EX1.11.2/Result_Figure_1_Ex1_11_Pg43.jpg b/1574/CH1/EX1.11.2/Result_Figure_1_Ex1_11_Pg43.jpg Binary files differnew file mode 100755 index 000000000..9ca59ce56 --- /dev/null +++ b/1574/CH1/EX1.11.2/Result_Figure_1_Ex1_11_Pg43.jpg diff --git a/1574/CH1/EX1.11.2/Signals_Ex_1_11_Pg_43.sce b/1574/CH1/EX1.11.2/Signals_Ex_1_11_Pg_43.sce new file mode 100755 index 000000000..b2d602b88 --- /dev/null +++ b/1574/CH1/EX1.11.2/Signals_Ex_1_11_Pg_43.sce @@ -0,0 +1,39 @@ +clc
+//Chapter1
+//Example1.11(2), page no 43
+//Given
+clear ;
+close ;
+// CTS Signal
+A=2;// Amplitude
+Dt=0.01;
+T1=49.5; //Time in seconds
+t=-T1/2: Dt:T1 /2;
+for i=1:length(t)
+xt(i)= A;
+end
+// Continuous time Fourier Transform
+Wmax=2*%pi*1;// Analog Frequency = 1Hz
+K =4;
+k=0:(K/1000):K;
+W=k*Wmax/K;
+xt=xt';
+XW =(xt*exp(-sqrt(-1)*t'*W)*Dt)-5;
+XW_Mag =real(XW);
+W =[-mtlb_fliplr(W), W(2:1001)]; // Omega from -Wmax to Wmax
+XW_Mag =[mtlb_fliplr( XW_Mag ), XW_Mag(2:1001)];
+subplot(2 ,1 ,1);
+a =gca();
+a.data_bounds =[ -4 ,0;4 ,2];
+a.y_location ="origin";
+plot2d(t,xt);
+xlabel('t in msec .');
+title(' Contiuous Time Signal x(t) ')
+subplot(2 ,1 ,2);
+a=gca();
+a.y_location ="origin";
+plot2d(W,XW_Mag,5);
+xlabel('Frequency in Radians/Seconds ');
+title('Continuous time Fourier Transform X(jW) = an Impulse Function' )
+mprintf('|F(w)|= 2*pi*A*delta(w), Hence the Fourier Transform of constant is an Impulse Function')
+
diff --git a/1574/CH1/EX1.12/Result_of_Chapter_1_Ex1_12.JPG b/1574/CH1/EX1.12/Result_of_Chapter_1_Ex1_12.JPG Binary files differnew file mode 100755 index 000000000..6cab88049 --- /dev/null +++ b/1574/CH1/EX1.12/Result_of_Chapter_1_Ex1_12.JPG diff --git a/1574/CH1/EX1.12/Signals_Ex_1_12.sce b/1574/CH1/EX1.12/Signals_Ex_1_12.sce new file mode 100755 index 000000000..4df1f6b50 --- /dev/null +++ b/1574/CH1/EX1.12/Signals_Ex_1_12.sce @@ -0,0 +1,8 @@ +
+clc
+//Chapter 1
+//Ex1.12, page no 43
+//Given
+mprintf('The given function is:\n sgn(t)=1 (for t>0\n =-1 (for t<0)\n')// displaying the given function
+disp('sgn(t)=2u(t)-1')
+disp('the fourier transform can be given as:'),disp(' F[sgn[(t)]= 2/j*w')// displaying the fourier Transform of the given function
diff --git a/1574/CH1/EX1.13/Result_Figure_1_Ex1_13.jpg b/1574/CH1/EX1.13/Result_Figure_1_Ex1_13.jpg Binary files differnew file mode 100755 index 000000000..74013a238 --- /dev/null +++ b/1574/CH1/EX1.13/Result_Figure_1_Ex1_13.jpg diff --git a/1574/CH1/EX1.13/Signals_Ex_1_13.sce b/1574/CH1/EX1.13/Signals_Ex_1_13.sce new file mode 100755 index 000000000..3c15db1fd --- /dev/null +++ b/1574/CH1/EX1.13/Signals_Ex_1_13.sce @@ -0,0 +1,39 @@ +clear ;
+clc ;
+close ;
+//Chapter 1
+//Ex1.13, page no 44
+// CTS Signal
+A =1; // Amplitude
+Dt = 0.005;
+T1 =0.5; //Time in seconds
+t=0:Dt:T1;
+for i = 1: length(t)
+xt(i)=A;
+end
+// Continuous time Fourier Transform
+Wmax= 2*%pi*1; // Analog Frequency = 1Hz
+K =4;
+k=0:(K/1000):K;
+W =k*Wmax/K;
+xt=xt';
+XW =xt*exp(-sqrt(-1)*t'*W)*Dt;
+XW_Mag =real(XW);
+W =[-mtlb_fliplr(W), W(2:1001)]; // Omega from -Wmax to Wmax
+XW_Mag =[mtlb_fliplr( XW_Mag ), XW_Mag(2:1001)];
+// displaying the given function
+subplot(2 ,1 ,1);
+a =gca();
+a.data_bounds =[ -1,0;1,2];
+a.y_location ="origin";
+plot(t,xt);
+xlabel('t in msec .');
+title(' Contiuous Time Signal x(t) ')
+// displaying the fourier Transform of the given function
+subplot(2 ,1 ,2);
+a=gca();
+mprintf('F(w)= 1/(j*w)+ pi*delta(w)')
+a.y_location ="origin";
+plot(W, XW_Mag);
+xlabel('Frequency in Radians / Seconds ');
+title('Continuous time Fourier Transform X(jW)' )
diff --git a/1574/CH1/EX1.14/Result_Figure_1_Ex1_14.jpg b/1574/CH1/EX1.14/Result_Figure_1_Ex1_14.jpg Binary files differnew file mode 100755 index 000000000..794270c28 --- /dev/null +++ b/1574/CH1/EX1.14/Result_Figure_1_Ex1_14.jpg diff --git a/1574/CH1/EX1.14/Result_Figure_1_Ex1_14_0.jpg b/1574/CH1/EX1.14/Result_Figure_1_Ex1_14_0.jpg Binary files differnew file mode 100755 index 000000000..b62bb35f9 --- /dev/null +++ b/1574/CH1/EX1.14/Result_Figure_1_Ex1_14_0.jpg diff --git a/1574/CH1/EX1.14/Signals_Ex_1_14.sce b/1574/CH1/EX1.14/Signals_Ex_1_14.sce new file mode 100755 index 000000000..a05c0c207 --- /dev/null +++ b/1574/CH1/EX1.14/Signals_Ex_1_14.sce @@ -0,0 +1,37 @@ +//Chapter 1
+//Ex1.14, page no 44
+// CTS Signal
+// Continuous Time Fourier Transforms of
+// Sinusoidal waveforms(a)sin(Wot)(b)cos(Wot)
+clear ;
+clc ;
+close ;
+// CTFT
+T1 = 2;
+T = 4* T1;
+Wo = 2* %pi /T;
+W = [-Wo ,0, Wo ];
+ak = (2* %pi *Wo*T1/ %pi )/ sqrt ( -1);
+XW = [-ak ,0, ak ];
+ak1 = (2* %pi*Wo*T1/%pi);
+XW1 =[ ak1 ,0, ak1 ];
+//displaying the given function
+figure
+a =gca();
+a.y_location="origin";
+a.x_location="origin";
+plot2d3('gnn',W,imag(XW),2);
+poly1=a.children(1).children(1) ;
+poly1.thickness =3;
+xlabel('W' );
+title( 'CTFT of sin(Wot ) ')
+//displaying the fourier Transform of the given function
+figure
+a =gca();
+a.y_location="origin";
+a.x_location="origin";
+plot2d3('gnn',W,XW1,5);
+poly1 =a.children(1).children(1) ;
+poly1.thickness = 3;
+xlabel('W' );
+title( 'CTFT of cos (Wot)')
diff --git a/1574/CH1/EX1.15/Result_of_Chapter_1_Ex1_15.JPG b/1574/CH1/EX1.15/Result_of_Chapter_1_Ex1_15.JPG Binary files differnew file mode 100755 index 000000000..f4b772f15 --- /dev/null +++ b/1574/CH1/EX1.15/Result_of_Chapter_1_Ex1_15.JPG diff --git a/1574/CH1/EX1.15/Signals_Ex_1_15.sce b/1574/CH1/EX1.15/Signals_Ex_1_15.sce new file mode 100755 index 000000000..eac8a0267 --- /dev/null +++ b/1574/CH1/EX1.15/Signals_Ex_1_15.sce @@ -0,0 +1,9 @@ +clc
+//Chapter 1
+//Ex1.12, page no 43
+//Given
+mprintf('The given function is:\n f(t)=exp(j*wo*t) (for -inf<t<inf)\n')// Displaying the given function
+disp('exp(j*wo*t)= cos(wo*t)+j*sin(wo*t)')
+disp('F[exp(j*wo*t)]=F[cos(wo*t)]+F[j*sin(wo*t)]')
+disp('f[exp(j*wo*t)]=pi*[d(w-wo)+d(w+wo)-d(w+wo)+d(w-wo)]')
+disp('the fourier transform can be given as:'),disp(' F[exp(j*wo*t)]= 2*pi*d(w-wo)')// displaying the fourier Transform of the given function
diff --git a/1574/CH1/EX1.16/Result_of_Chapter_1_Ex1_16.JPG b/1574/CH1/EX1.16/Result_of_Chapter_1_Ex1_16.JPG Binary files differnew file mode 100755 index 000000000..530810b32 --- /dev/null +++ b/1574/CH1/EX1.16/Result_of_Chapter_1_Ex1_16.JPG diff --git a/1574/CH1/EX1.16/Signals_Ex_1_16.sce b/1574/CH1/EX1.16/Signals_Ex_1_16.sce new file mode 100755 index 000000000..d8ddc11ae --- /dev/null +++ b/1574/CH1/EX1.16/Signals_Ex_1_16.sce @@ -0,0 +1,11 @@ +clc
+
+//Chapter 1
+//Ex1.16, page no 47
+A=1,delta=50e-3,T=500e-3
+disp('Spectral Amplitude of the given function is given by ')// Displaying the expression for Spectral Amplitude
+disp('Fn= A*delta/2 *[Sa(n*pi*delta/T)]')
+disp('Therefore the fourier transform will be :')
+mprintf('F[f(t)]=%f ∑Sa[n*pi/10]8delta(w-4*n*pi)',2*%pi*A*delta/T)// Displaying the Fourier transform
+
+
diff --git a/1574/CH1/EX1.17/Result_Figure_1_Ex1_17.jpg b/1574/CH1/EX1.17/Result_Figure_1_Ex1_17.jpg Binary files differnew file mode 100755 index 000000000..4081fdbb9 --- /dev/null +++ b/1574/CH1/EX1.17/Result_Figure_1_Ex1_17.jpg diff --git a/1574/CH1/EX1.17/Signals_Ex_1_17.sce b/1574/CH1/EX1.17/Signals_Ex_1_17.sce new file mode 100755 index 000000000..166e2a901 --- /dev/null +++ b/1574/CH1/EX1.17/Signals_Ex_1_17.sce @@ -0,0 +1,36 @@ +clc
+//Chapter1: Signals
+//Example1,page no12
+//Given:
+// CTFT
+T = -4:4;;
+T1 = 1; // Sampling Interval
+xt = ones (1, length (T));
+ak = 1/ T1;
+XW = 2* %pi *ak* ones (1, length (T));
+Wo = 2*%pi/T1;
+W = Wo*T;
+// Displaying the given function
+figure
+subplot(2 ,1 ,1)
+a=gca();
+a.y_location="origin";
+a.x_location="origin";
+plot2d3('gnn',T,xt,2) ;
+poly1 =a.children(1).children (1) ;
+poly1.thickness = 3;
+xlabel ( 't ' );
+title('Periodic Impulse Train ')
+// displaying the fourier Transform of the given function
+subplot(2 ,1 ,2)
+a=gca();
+a.y_location="origin";
+a.x_location="origin";
+plot2d3('gnn',W,XW,5) ;
+poly1=a.children(1).children(1) ;
+poly1.thickness =3 ;
+xlabel('t');
+title ( 'CTFT of Periodic Impulse Train')
+
+mprintf('F[∂t(t)]= 2*pi/T*∑∂(w-wo)')
+
diff --git a/1574/CH1/EX1.18/Result_Figure_1_Ex1_18.jpg b/1574/CH1/EX1.18/Result_Figure_1_Ex1_18.jpg Binary files differnew file mode 100755 index 000000000..9253c4d83 --- /dev/null +++ b/1574/CH1/EX1.18/Result_Figure_1_Ex1_18.jpg diff --git a/1574/CH1/EX1.18/Signals_Ex_1_18.sce b/1574/CH1/EX1.18/Signals_Ex_1_18.sce new file mode 100755 index 000000000..f8615872b --- /dev/null +++ b/1574/CH1/EX1.18/Signals_Ex_1_18.sce @@ -0,0 +1,37 @@ +clear ;
+clc ;
+close ;
+// CTS Signal
+A =1; // Amplitude
+Dt = 0.005;
+T1 = 2; //Time in seconds
+t = 0: Dt:T1 /2;
+for i = 1: length (t)
+xt(i) = A;
+end
+// Continuous time Fourier Transform
+Wmax= 2*%pi*1; // Analog Frequency = 1Hz
+K =4;
+k=0:(K/1000):K;
+W =k*Wmax/K;
+xt=xt';
+XW =xt*exp(-sqrt(-1)*t'*W)*Dt;
+XW_Mag =real(XW);
+W =[-mtlb_fliplr(W), W(2:1001)]; // Omega from Wmax to Wmax
+XW_Mag =[mtlb_fliplr( XW_Mag ), XW_Mag(2:1001)];
+// displaying the given function
+subplot(2 ,1 ,1);
+a =gca();
+a.data_bounds =[ -4 ,0;4 ,2];
+a.y_location ="origin";
+plot(t,xt);
+xlabel('t in msec .');
+title(' Contiuous Time Signal x(t) {Gate Function} ')
+// displaying the fourier Transform of the given function
+subplot(2 ,1 ,2);
+a=gca();
+a.y_location ="origin";
+plot(W, XW_Mag);
+xlabel('Frequency in Radians / Seconds ');
+title('Continuous time Fourier Transform X(jW)' )
+mprintf('Hence Fourier transform of given Gate function is:\n A*delta*Sa[w*delta/2]/ exp(-j*w*delta/2)')
diff --git a/1574/CH1/EX1.2/Result_of_Chapter_1_Ex1_2.JPG b/1574/CH1/EX1.2/Result_of_Chapter_1_Ex1_2.JPG Binary files differnew file mode 100755 index 000000000..9cdce7c5f --- /dev/null +++ b/1574/CH1/EX1.2/Result_of_Chapter_1_Ex1_2.JPG diff --git a/1574/CH1/EX1.2/Signals_Ex_1_2.sce b/1574/CH1/EX1.2/Signals_Ex_1_2.sce new file mode 100755 index 000000000..bcaf03624 --- /dev/null +++ b/1574/CH1/EX1.2/Signals_Ex_1_2.sce @@ -0,0 +1,11 @@ +clc
+//Chapter1: Signals
+//Example1,page no 12
+//Given:
+// Curve on page no 9....fig 1.6
+t=0:0.1:2*%pi,t0=0,t1=2*%pi
+C=((integrate('sin(t)','t',t0,t1/2)-integrate('sin(t)','t',t1/2,t1))/integrate('(sin(t))^2','t',t0,t1))
+
+mprintf('The optimum value of C to minimise the mean square error is:\n C= %f',C)
+
+
diff --git a/1574/CH1/EX1.3/Result_of_Chapter_1_Ex1_3.JPG b/1574/CH1/EX1.3/Result_of_Chapter_1_Ex1_3.JPG Binary files differnew file mode 100755 index 000000000..8b7a27063 --- /dev/null +++ b/1574/CH1/EX1.3/Result_of_Chapter_1_Ex1_3.JPG diff --git a/1574/CH1/EX1.3/Signals_Ex_1_3.sce b/1574/CH1/EX1.3/Signals_Ex_1_3.sce new file mode 100755 index 000000000..76e47b109 --- /dev/null +++ b/1574/CH1/EX1.3/Signals_Ex_1_3.sce @@ -0,0 +1,46 @@ +clc
+//Chapter1: Signals
+//Example2,page no12
+//Given:
+//a // Referance Figure on page no 9.. (1.6d)
+t=0:2*3.14,t0=0,t1=2*3.14
+disp('a) The value of constants Cn are:')
+for i=1:7
+ C(i)=((integrate('sin(i*t)','t',t0,t1/2)-integrate('sin(i*t)','t',t1/2,t1))/integrate('(sin(i*t))^2','t',t0,t1))
+ if C(i)<=0.01 then C(i)=0
+ end
+ mprintf('%f for n= %d\n',C(i),i)
+end
+//b Mean Square error
+
+int1=integrate('(1)^2','t',t0,t1)
+for n=1:7
+ if modulo(n,2)==0 then
+ C(n)=0
+ else
+ C(n)=4/(n*%pi)
+end
+end
+for n=1:7
+
+ K(n)=integrate('(sin(n*t))^2','t',t0,t1)
+
+end
+K(n)=%pi
+
+for n=1:7
+S(1)=0
+ S(n+1)=S(n)+(((C(n))^2)*K(n))
+
+end
+//Mean Square error
+for n=1:7
+ epsi(n)=(1/(t1-t0)*(int1-S(n+1)))
+end
+disp('b) Mean Square error is')
+for n=1:2:7
+mprintf('epsi(%d)=%f\n',n,round(100*epsi(n))/100)
+
+end
+
+
diff --git a/1574/CH1/EX1.4/Result_of_Chapter_1_Ex1_4.JPG b/1574/CH1/EX1.4/Result_of_Chapter_1_Ex1_4.JPG Binary files differnew file mode 100755 index 000000000..66b7364e3 --- /dev/null +++ b/1574/CH1/EX1.4/Result_of_Chapter_1_Ex1_4.JPG diff --git a/1574/CH1/EX1.4/Signals_Ex_1_4.sce b/1574/CH1/EX1.4/Signals_Ex_1_4.sce new file mode 100755 index 000000000..3b20effce --- /dev/null +++ b/1574/CH1/EX1.4/Signals_Ex_1_4.sce @@ -0,0 +1,24 @@ +clc
+//Chapter1: Signals
+//Example1,page no12
+//Given:
+t=-1:0.01:1,t0=-1,t1=1
+// Legendre Polynomial
+t=poly(0,"t")
+P0=poly(1,"t","c")
+P1=poly([0,1],"t","c")
+P2=poly([-0.5,0,1.5],"t","c")
+P3=poly([-1.5,0,2.5,0],"t","c")
+disp(P3,'P3=',P2,'P2=',P1,'P1=',P0,'P0=')
+//The Constant coeff (Cn)
+C0=0.5*(integrate('1','t',-1,0)+integrate('-1','t',0,1))
+C1=1.5*(integrate('t','t',-1,0)+integrate('-t','t',0,1))
+C2=2.5*(integrate('(1.5*t^2)-0.5','t',-1,0)+integrate('-(1.5*t^2)+0.5','t',0,1))
+C3=3.5*(integrate('(2.5*t^3)-(1.5*t)','t',-1,0)+integrate('-(2.5*t^3)+(1.5*t)','t',0,1))
+disp('The Constant coeff (Cn) values are :')
+disp(C3,'C3=',C2,'C2=',C1,'C1=',C0,'C0=')
+mprintf('\nf(t)= %d*%s + %f*%s + %d*%s + %f*%s',C0,"P0",C1,"P1",C2,"P2",C3,"P3")
+
+
+
+
diff --git a/1574/CH1/EX1.5/Result_of_Chapter_1_Ex1_5.JPG b/1574/CH1/EX1.5/Result_of_Chapter_1_Ex1_5.JPG Binary files differnew file mode 100755 index 000000000..eee92f5d1 --- /dev/null +++ b/1574/CH1/EX1.5/Result_of_Chapter_1_Ex1_5.JPG diff --git a/1574/CH1/EX1.5/Signals_Ex_1_5.sce b/1574/CH1/EX1.5/Signals_Ex_1_5.sce new file mode 100755 index 000000000..1affce8b2 --- /dev/null +++ b/1574/CH1/EX1.5/Signals_Ex_1_5.sce @@ -0,0 +1,35 @@ +clc
+//Chapter 1 Signals
+//Example 1.5, page no 19
+//given
+T=1,t0=0,wo=2*%pi
+P=1
+t=0:0.001:1
+f=P*t
+//The trigonometric Fourier series coeff for given function
+a0=(1/T)*inttrap(t,f)
+
+for n=1:10
+ f1=(P*t).*cos(wo*n*t)
+ a(n)=(2/T)*inttrap(t,f1)
+ if a(n)<0.01 then
+ a(n)=0
+ end
+end
+for n=1:10
+ f2=(P*t).*sin(2*%pi*(1/T)*n*t)
+ b(n)=(2/T)*inttrap(t,f2)
+end
+// Displaying trigonometric Fourier series coeff
+mprintf('The value of a0 is: %f\n',a0)
+disp('The values of a(n): (upto n=10)')
+for n=1:10
+ disp(a(n))
+end
+disp('The values of b(n): (upto n=10)')
+for n=1:10
+ disp(b(n))
+end
+mprintf('The trigonometric Fourier series for given function\n can be written as:\n')
+mprintf('f(t)=%f%fsin(2*pi*t)%fsin(4*pi*t)\n%fsin(6*pi*t)%fsin(8*pi*t)%fsin(10*pi*t)\n%fsin(12*pi*t)%fsin(14*pi*t).......',b(1),b(2),b(3),b(4),b(5),b(6),b(7),b(8))
+
diff --git a/1574/CH1/EX1.6/Result_of_Chapter_1_Ex1_6.JPG b/1574/CH1/EX1.6/Result_of_Chapter_1_Ex1_6.JPG Binary files differnew file mode 100755 index 000000000..1b89a47ef --- /dev/null +++ b/1574/CH1/EX1.6/Result_of_Chapter_1_Ex1_6.JPG diff --git a/1574/CH1/EX1.6/Signals_Ex_1_6.sce b/1574/CH1/EX1.6/Signals_Ex_1_6.sce new file mode 100755 index 000000000..50bafe5d5 --- /dev/null +++ b/1574/CH1/EX1.6/Signals_Ex_1_6.sce @@ -0,0 +1,25 @@ +clc
+//Chapter 1 Signals
+//Example 1.6, page no 21
+//given
+
+t0=1,T=1,w0=2*3.14/T,P=1
+t=0:0.1:1
+f=P*t// function f(t)=P*t, 0<t<1
+a=1
+disp('The Exponential Fourier coeff(Fn) are:for n=-5 to 5')
+for n=-5:5// Calculating the fourier coeff
+ fr=f.*cos(%pi*n*t/T)
+ Fr(a)=inttrap(t,fr)
+ fi=f.*sin(%pi*n*t/T)
+ Fi(a)=inttrap(t,fi)
+ if Fr(a)<0.01 then Fr(a)=0
+ end
+ if Fi(a)<0.01 then
+ Fi(a)=0
+ end
+ disp(Fr(a)-%i*Fi(a))
+ a=a+1
+end
+mprintf('The given function in Expo Fourier series can be represented as \n')
+mprintf('f(t)= %f+jP/2*pi* ∑1/n *exp(j2*pi*t)',P/2)
diff --git a/1574/CH1/EX1.7/Result_Figure_1_Ex1_7.jpg b/1574/CH1/EX1.7/Result_Figure_1_Ex1_7.jpg Binary files differnew file mode 100755 index 000000000..b8ff43704 --- /dev/null +++ b/1574/CH1/EX1.7/Result_Figure_1_Ex1_7.jpg diff --git a/1574/CH1/EX1.7/Signals_Ex_1_7.sce b/1574/CH1/EX1.7/Signals_Ex_1_7.sce new file mode 100755 index 000000000..d2e47989f --- /dev/null +++ b/1574/CH1/EX1.7/Signals_Ex_1_7.sce @@ -0,0 +1,37 @@ +clc
+close
+clear
+//Chapter 1 Signals
+//Example 1.7, page no 22
+//given
+V=1
+t0=1,T=1,w0=2*3.14/T,P=1
+t=0:0.01:3
+f=V*abs(sin(%pi*t))
+//The Expo fourier series coeff
+disp('The Expo fourier series coeff are: for n=-5 to 5')
+a=1
+for n=-5:5
+ fr=f.*cos(%pi*n*t/T)
+ Fr(a)=inttrap(t,fr)
+ fi=f.*sin(%pi*n*t/T)
+ Fi(a)=inttrap(t,fi)
+
+ mag(a)=abs(Fr(a)+%i*Fi(a))
+
+ disp(Fr(a)-(%i*Fi(a)))
+ x(1 ,size(t,2))=0
+ x=x+((Fr(a))-%i*Fi(a)).*(cos(%pi*n*t/T)+%i*sin(%pi*n*t/T))
+ a=a+1
+end
+mprintf('The given function in Expo Fourier series can be represented as \n')
+mprintf('f(t)= 2V/pi -2V*exp(j2*pi*t)/3*pi -2V*exp(j2*pi*t)/15*pi\n -2V*exp(j2*pi*t)/35*pi ...\n -2V*exp(-j2*pi*t)/3*pi -2V*exp(-j2*pi*t)/15*pi...')
+n=-5:5
+subplot(2,1,1),plot2d(t,f,style=5)// Rectified sine function Plot
+xlabel("t", "fontsize", 2);
+ylabel("sin(t)", "fontsize", 3, "color", "blue");
+subplot(2,1,2),plot2d3(n,mag,12,rect=[-11,0,11,1],style=4)//Plot of the magnitude of the Fourier coeff
+xlabel("w", "fontsize", 2);
+ylabel("Fn", "fontsize", 3, "color", "red");
+legends(["sin(%pi*t)";"Expo Fourier Coeff"],[5,4], with_box=%f, opt="lr" )
+
diff --git a/1574/CH1/EX1.8/Result_Figure_1_Ex1_8.jpg b/1574/CH1/EX1.8/Result_Figure_1_Ex1_8.jpg Binary files differnew file mode 100755 index 000000000..160aa386a --- /dev/null +++ b/1574/CH1/EX1.8/Result_Figure_1_Ex1_8.jpg diff --git a/1574/CH1/EX1.8/Signals_Ex_1_8.sce b/1574/CH1/EX1.8/Signals_Ex_1_8.sce new file mode 100755 index 000000000..c3b7fdf63 --- /dev/null +++ b/1574/CH1/EX1.8/Signals_Ex_1_8.sce @@ -0,0 +1,71 @@ +clc
+clear
+close
+//Chapter 1 Signals
+//Example 1.8, page no 24
+//given
+
+T=500e-3,w0=2*%pi/T,d=50e-3,A=10
+t=-d/2:0.01:T-d/2
+t1=-d/2:0.01:d/2
+f1=A
+t2=d/2:0.01:T-(d/2)
+f2=0
+a=1
+disp('The fourier series coeff Fn are:')
+for n=-5:5
+ if n==0 then
+ Fr(a)=1,Fi(a)=0
+ else
+ fa1=f1.*cos(%pi*n*t1/T)
+ fa2=f2.*cos(%pi*n*t2/T)
+ fb1=f1.*sin(%pi*n*t1/T)
+ fb2=f2.*sin(%pi*n*t2/T)
+ end
+ Fr(a)=1/T*(inttrap(t1,fa1)+inttrap(t2,fa2))
+ Fi(a)=1/T*(inttrap(t1,fb1)+inttrap(t2,fb2))
+ mag(a)=abs(Fr(a)+%i*Fi(a))
+ // disp(mag(a))
+ disp(Fr(a)-%i*Fi(a))
+ x(1,size(t,2))=0
+ x=x+((Fr(a))-%i*Fi(a)).*(cos(%pi*n*t/T)+%i*sin(%pi*n*t/T))
+ a=a+1
+
+end
+n=-5:5
+subplot(3,1,1),plot(t,f1)
+xlabel("t", "fontsize", 3);
+ylabel("f(t)", "fontsize", 3, "color", "green");
+subplot(3,1,2),plot2d3(n,mag,2,rect=[-11,0,11,1])// expo fourier series coeff
+xlabel("n", "fontsize", 3);
+ylabel("Coeff Magnitude", "fontsize", 3, "color", "red");
+subplot(3,1,3),plot2d(t,x,style=3),plot2d(-t,x,style=3) // one sided spectrum with T=500ms
+xlabel("w", "fontsize", 3);
+ylabel("Fn", "fontsize", 3, "color", "blue");
+legends(['Sampling Function(T=500mS)';'Sampling Function(T=250mS)'],[3,5],opt="lr")
+T1=T/2
+t=-d/2:0.01:T1-d/2
+t1=-d/2:0.01:d/2
+f1=A
+t2=d/2:0.01:T1-(d/2)
+f2=0
+//The Expo fourier series coeff
+for n=-5:5
+ if n==0 then
+ Fr1(a)=1,Fi1(a)=0
+ else
+ fr1=f1.*cos(%pi*n*t1/T1)
+ fr2=f2.*cos(%pi*n*t2/T1)
+ fi1=f1.*sin(%pi*n*t1/T1)
+ fi2=f2.*sin(%pi*n*t2/T1)
+ end
+ Fr1(a)=1/T1*(inttrap(t1,fr1)+inttrap(t2,fr2))
+ Fi1(a)=1/T1*(inttrap(t1,fi1)+inttrap(t2,fi2))
+ mag(a)=abs(Fr1(a)+%i*Fi1(a))
+ disp(Fr1(a)-%i*Fi1(a))
+ y(1,size(t,2))=0
+ y=y+((Fr1(a))-%i*Fi1(a)).*(cos(%pi*n*t/T1)+%i*sin(%pi*n*t/T1))
+ a=a+1
+end
+plot2d(t,y, style=5),plot2d(-t,y,style=5)// double sided spectrum with T=250ms
+
diff --git a/1574/CH1/EX1.9/Result_of_Chapter_1_Ex1_9.jpeg b/1574/CH1/EX1.9/Result_of_Chapter_1_Ex1_9.jpeg Binary files differnew file mode 100755 index 000000000..a50a46367 --- /dev/null +++ b/1574/CH1/EX1.9/Result_of_Chapter_1_Ex1_9.jpeg diff --git a/1574/CH1/EX1.9/Result_of_Chapter_1_Ex1_9_b.jpeg b/1574/CH1/EX1.9/Result_of_Chapter_1_Ex1_9_b.jpeg Binary files differnew file mode 100755 index 000000000..5b1755a6b --- /dev/null +++ b/1574/CH1/EX1.9/Result_of_Chapter_1_Ex1_9_b.jpeg diff --git a/1574/CH1/EX1.9/Signals_Ex_1_9.sce b/1574/CH1/EX1.9/Signals_Ex_1_9.sce new file mode 100755 index 000000000..c22943040 --- /dev/null +++ b/1574/CH1/EX1.9/Signals_Ex_1_9.sce @@ -0,0 +1,84 @@ +clc; clear;close;
+//Chapter1: Signals
+//Example 1.9a,page no12
+//Given:
+// Analog Signal
+A =1; // Amplitude
+Dt = 0.005;
+t = 0: Dt :10;
+xt = exp(-A*t);
+// Continuous time Fourier Transform
+Wmax =2*%pi*1; // Analog Frequency = 1Hz
+K = 4;
+k = 0:(K/1000):K;
+W = k* Wmax /K;
+XW = xt*exp(-sqrt(-1)*t'*W)*Dt
+XW_Mag =abs(XW);
+W = [-mtlb_fliplr(W),W(2:1001)]; // Omega from -Wmax to Wmax
+XW_Mag=[mtlb_fliplr(XW_Mag ),XW_Mag(2:1001)];
+[XW_Phase ,db] = phasemag (XW);
+XW_Phase = [-mtlb_fliplr( XW_Phase ),XW_Phase(2:1001)];
+// Plotting Continuous Time Signal
+figure
+a=gca();
+a.y_location = "origin";
+plot(t,xt);
+xlabel( 't in sec .');
+ylabel(' x(t) ')
+title(' Continuous Time Signal ' )
+figure
+// Plotting Magnitude Response of CTS
+subplot (2 ,2 ,1);
+a = gca ();
+a.y_location = "origin";
+plot2d(W, XW_Mag,style=5 );
+xlabel ( ' Frequency in Radians / Seconds---> W' );
+ylabel ( ' abs (X(jW) ) ' )
+title ( 'Magnitude Response (CTFT) ' )
+// Plotting Phase Reponse of CTS
+subplot (2 ,2 ,2);
+a =gca();
+a.y_location="origin";
+a.x_location="origin";
+plot2d(W, XW_Phase *%pi/180,style=3);
+xlabel(' Frequency in Radians / Seconds---> W');
+ylabel('<X(jW) ')
+title(' Phase Response (CTFT)in Radians' )
+mprintf('|F(w)|= 1/sqrt(a^2+w^2) and\n Theta(w)=-atan(w/a)')
+
+//Chapter1: Signals
+//Example 1.9b,page no12
+//Given:
+// Analog Signal
+
+
+A=1;// Amplitude
+Dt=0.005;
+t1=-4.5:Dt:4.5;
+xt1=exp(-A*abs(t1));
+// Continuous time Fourier Transform
+Wmax1 =2*%pi*1;// Analog Frequency = 1Hz
+K=4;
+k=0:(K/1000):K;
+W1=k*Wmax1/K;
+XW1=xt1*exp(-sqrt(-1)*t1'*W1)*Dt;
+XW1=real(XW1);
+W1=[-mtlb_fliplr(W1), W1(2:1001) ]; // Omega from -Wmax to Wmax
+XW1=[ mtlb_fliplr(XW1), XW1(2:1001) ];
+//subplot(1 ,1 ,1)
+subplot(2 ,2 ,3);
+b=gca();
+b.y_location = "origin";
+plot2d(t,xt,3);
+xlabel('t in sec.');
+ylabel('x(t)')
+title(' Continuous Time Signal')
+subplot(2 ,2 ,4);
+b =gca();
+b.y_location = "origin";
+plot2d(W1,XW1,5);
+xlabel('Frequency in Radians / Seconds W');
+ylabel('X(jW)')
+title('Continuous time Fourier Transform ')
+
+mprintf('|F(w)|= 2*a/sqrt(a^2+w^2) and\n Theta(w)=0')
diff --git a/1574/CH10/EX10.1/PoRW_Ex_10_1.sce b/1574/CH10/EX10.1/PoRW_Ex_10_1.sce new file mode 100755 index 000000000..09fb6a733 --- /dev/null +++ b/1574/CH10/EX10.1/PoRW_Ex_10_1.sce @@ -0,0 +1,11 @@ +clc
+//Chapter10
+//Example10.1
+//Given
+Pt1=100//Radiated power
+Pt2=30// Reduced Power
+r=1//assume distance to be unity for easeof calculation
+E1=300*sqrt(100)/r
+E2=300*sqrt(30)/r
+E=20*log10((E2/E1))// Reduction in field strength in dBs
+mprintf('Field strength will reduce by %f dBs',-E)
diff --git a/1574/CH10/EX10.1/Result_of_Chapter_10_Ex10_1.JPG b/1574/CH10/EX10.1/Result_of_Chapter_10_Ex10_1.JPG Binary files differnew file mode 100755 index 000000000..677573bf4 --- /dev/null +++ b/1574/CH10/EX10.1/Result_of_Chapter_10_Ex10_1.JPG diff --git a/1574/CH10/EX10.2/PoRW_Ex_10_2.sce b/1574/CH10/EX10.2/PoRW_Ex_10_2.sce new file mode 100755 index 000000000..5fb479860 --- /dev/null +++ b/1574/CH10/EX10.2/PoRW_Ex_10_2.sce @@ -0,0 +1,12 @@ +clc
+//Chapter10
+//Example10.2
+//Given
+P=3//Transmitter power
+ht=100// Antenna height
+G=5//Antenna gain
+d=20e3//distance
+lambda=1,hr=1//assumed
+E=((88*G*ht*hr*P^0.5)/(lambda*d^2))//field strength
+mprintf('The field strength at distance 20km is %f uV/m',E*1e6)
+
diff --git a/1574/CH10/EX10.2/Result_of_Chapter_10_Ex10_2.JPG b/1574/CH10/EX10.2/Result_of_Chapter_10_Ex10_2.JPG Binary files differnew file mode 100755 index 000000000..b8e2bb982 --- /dev/null +++ b/1574/CH10/EX10.2/Result_of_Chapter_10_Ex10_2.JPG diff --git a/1574/CH10/EX10.3/PoRW_Ex_10_3.sce b/1574/CH10/EX10.3/PoRW_Ex_10_3.sce new file mode 100755 index 000000000..016b9715c --- /dev/null +++ b/1574/CH10/EX10.3/PoRW_Ex_10_3.sce @@ -0,0 +1,8 @@ +clc
+//Chapter10
+//Example10.3
+//Given
+ht=152.5,hr=9.15 // Antenna height
+d=4100*(sqrt(ht)+sqrt(hr)) //distance
+mprintf('Direct ray coverage is possible over %f km',d*1e-3)
+
diff --git a/1574/CH10/EX10.3/Result_of_Chapter_10_Ex10_3.JPG b/1574/CH10/EX10.3/Result_of_Chapter_10_Ex10_3.JPG Binary files differnew file mode 100755 index 000000000..2c6b49b4b --- /dev/null +++ b/1574/CH10/EX10.3/Result_of_Chapter_10_Ex10_3.JPG diff --git a/1574/CH10/EX10.4/PoRW_Ex_10_4.sce b/1574/CH10/EX10.4/PoRW_Ex_10_4.sce new file mode 100755 index 000000000..bfe0a23ab --- /dev/null +++ b/1574/CH10/EX10.4/PoRW_Ex_10_4.sce @@ -0,0 +1,8 @@ +clc
+//Chapter10
+//Example10.4
+//Given
+//b
+ht=3e3,hr=5e3 // Antenna height
+d=4100*(sqrt(ht)+sqrt(hr))//distance
+mprintf('Max possible distance for efective point to point\n communication is %f km',d*1e-3)
diff --git a/1574/CH10/EX10.4/Result_of_Chapter_10_Ex10_4.JPG b/1574/CH10/EX10.4/Result_of_Chapter_10_Ex10_4.JPG Binary files differnew file mode 100755 index 000000000..15113ac32 --- /dev/null +++ b/1574/CH10/EX10.4/Result_of_Chapter_10_Ex10_4.JPG diff --git a/1574/CH11/EX11.1/BBC_Ex_11_1.sce b/1574/CH11/EX11.1/BBC_Ex_11_1.sce new file mode 100755 index 000000000..06e8ab05d --- /dev/null +++ b/1574/CH11/EX11.1/BBC_Ex_11_1.sce @@ -0,0 +1,14 @@ +clc
+//Chapter11
+//Example11.1, page no 435
+//Given
+//a
+c=20// no of signal channels
+s=8e3// Channel sampling rate
+t=1/s// time interval over which ll channels are sampled once
+//b
+g=5e-6// guaed time for each channel sample
+s_duration=t-g// duration of each sample
+//c
+samples_sec=c*s//
+mprintf('The total no of samples per second is:\n %d samples/second',samples_sec)
diff --git a/1574/CH11/EX11.1/Result_of_Chapter_11_Ex11_1.JPG b/1574/CH11/EX11.1/Result_of_Chapter_11_Ex11_1.JPG Binary files differnew file mode 100755 index 000000000..0106a5149 --- /dev/null +++ b/1574/CH11/EX11.1/Result_of_Chapter_11_Ex11_1.JPG diff --git a/1574/CH15/EX15.1/BIT_Ex_15_1.sce b/1574/CH15/EX15.1/BIT_Ex_15_1.sce new file mode 100755 index 000000000..9a60b6e55 --- /dev/null +++ b/1574/CH15/EX15.1/BIT_Ex_15_1.sce @@ -0,0 +1,10 @@ +clc
+//Chapter15
+//Example15.1, page no 533
+//Given
+P_A=0.5// probability of producing symbol 'A'
+P_B=0.25// probability of producing symbol 'B'
+P_C=0.25// probability of producing symbol 'C'
+H=P_A*log2(1/P_A)+P_B*log2(1/P_B)+P_C*log2(1/P_C)// the source entropy
+mprintf('The source entropy is: %f bits/symbol',H)
+
diff --git a/1574/CH15/EX15.1/Result_of_Chapter_15_Ex15_1.JPG b/1574/CH15/EX15.1/Result_of_Chapter_15_Ex15_1.JPG Binary files differnew file mode 100755 index 000000000..4a02a8791 --- /dev/null +++ b/1574/CH15/EX15.1/Result_of_Chapter_15_Ex15_1.JPG diff --git a/1574/CH15/EX15.2/BIT_Ex_15_2.sce b/1574/CH15/EX15.2/BIT_Ex_15_2.sce new file mode 100755 index 000000000..c0cf3bfc6 --- /dev/null +++ b/1574/CH15/EX15.2/BIT_Ex_15_2.sce @@ -0,0 +1,10 @@ +clc
+//Chapter15
+//Example15.2, page no 535
+//Given
+P_A=0.5,P_B=0.25,P_C=1/32,P_D=1/8,P_E=1/16,P_F=1/32// probabilities of producing respective symbol
+H=(P_A*log2(1/P_A))+(P_B*log2(1/P_B))+(P_C*log2(1/P_C))+(P_D*log2(1/P_D))+(P_E*log2(1/P_E))+(P_F*log2(1/P_F))// Source Entropy
+n=6,T=1
+mprintf('The source entropy is: %f bits/symbol',round(1000*H)/1000)
+
+
diff --git a/1574/CH15/EX15.2/Result_of_Chapter_15_Ex15_2.JPG b/1574/CH15/EX15.2/Result_of_Chapter_15_Ex15_2.JPG Binary files differnew file mode 100755 index 000000000..c2deb8d6c --- /dev/null +++ b/1574/CH15/EX15.2/Result_of_Chapter_15_Ex15_2.JPG diff --git a/1574/CH15/EX15.3/BIT_Ex_15_3.sce b/1574/CH15/EX15.3/BIT_Ex_15_3.sce new file mode 100755 index 000000000..f510b94b1 --- /dev/null +++ b/1574/CH15/EX15.3/BIT_Ex_15_3.sce @@ -0,0 +1,17 @@ +// the Answer in the book is wrong.It is printed as 90.4 for SNR3 but it should be 100.59
+clc
+//Chapter15
+//Example15.3, page no 536
+//Given
+//a
+B1=4e3//Channel Bandwidth
+SNR1=31//Channel SNR
+C1=B1*log2(1+SNR1)//Channel Capacity
+SNR2=14//Reduced SNR
+B2=round(C1/log2(1+SNR2))//Bandwidth for reduced SNR with same Channel capacity
+
+//b
+B3=3e3//Reduced Bandwidth
+SNR3=(2^(C1/B3))-1//Signal Power for reduced bandwidth
+mprintf('a)\n Channel capacity is: %d Kbits/sec\n Bandwidth: %d KHz\nb)\n SNR for 3KHz bandwidth: %f',C1*1e-3,B2*1e-3,SNR3)
+
diff --git a/1574/CH15/EX15.3/Result_of_Chapter_15_Ex15_3.JPG b/1574/CH15/EX15.3/Result_of_Chapter_15_Ex15_3.JPG Binary files differnew file mode 100755 index 000000000..2a7168459 --- /dev/null +++ b/1574/CH15/EX15.3/Result_of_Chapter_15_Ex15_3.JPG diff --git a/1574/CH2/EX2.2/Result_of_Chapter_2_Ex_2_2.JPG b/1574/CH2/EX2.2/Result_of_Chapter_2_Ex_2_2.JPG Binary files differnew file mode 100755 index 000000000..d2cc9d9cc --- /dev/null +++ b/1574/CH2/EX2.2/Result_of_Chapter_2_Ex_2_2.JPG diff --git a/1574/CH2/EX2.2/SCS_Ex_2_2.sce b/1574/CH2/EX2.2/SCS_Ex_2_2.sce new file mode 100755 index 000000000..f3a33a08d --- /dev/null +++ b/1574/CH2/EX2.2/SCS_Ex_2_2.sce @@ -0,0 +1,21 @@ +clc;
+// Chapter 2 Switched communication systems
+//Example 2.2, page no 125
+//given
+Io=4*10^-3 //rqueired operating current
+N1=10000 //no of turns in the main winding
+R1=645 //resistence of the main winding in ohms
+N2=200 //no of turns in auxillary winding
+B=2 //spacing bias
+Iaux=B/N2 //maximum auxillary current
+mprintf('maximum auxillary current is:%f mA\n',Iaux*1e3)
+MMFaux=N2*Iaux //MMF in the auxillary winding
+mprintf('MMF in the auxillary winding is:%fAT \n',MMFaux)
+MMFop=Io*N1 //operating MFF in main winding
+mprintf( ' MMF in main winding is:%f AT \n',MMFop)
+MMFnet=MMFop+(0.1*MMFop) //net MMF required in main winding
+mprintf('net MMF required in main winding is:%f AT \n',MMFnet)
+Iop=MMFnet/N1 //operating current needed
+mprintf('operating current needed is:%f mA \n',Iop*1e3)
+V=Iop*R1 //working voltage in volts
+mprintf('working voltage is:%f volts \n',V)
diff --git a/1574/CH2/EX2.3/Result_of_Chapter_2_Ex2_3.JPG b/1574/CH2/EX2.3/Result_of_Chapter_2_Ex2_3.JPG Binary files differnew file mode 100755 index 000000000..5eace4e79 --- /dev/null +++ b/1574/CH2/EX2.3/Result_of_Chapter_2_Ex2_3.JPG diff --git a/1574/CH2/EX2.3/SCS_ex_2_3.sce b/1574/CH2/EX2.3/SCS_ex_2_3.sce new file mode 100755 index 000000000..a0ab03b61 --- /dev/null +++ b/1574/CH2/EX2.3/SCS_ex_2_3.sce @@ -0,0 +1,12 @@ +clc;
+// Chapter 2 Switched communication systems
+//Example 2.3,page no 125
+//given
+C=6000//Tatol no of call in busy hour
+SC=5000//no of subscribers
+CR=C/SC//busy hour calling rate
+mprintf('Busy hour calling rate is:%f \n',CR)
+T=2.5/60//avarage duration of calls in hours
+
+A=C*T//rate of traffic flow
+mprintf('Rate of traffic flow is %f traffic unit ',A)
diff --git a/1574/CH2/EX2.4.0/Result_of_Chapter_2_Ex2_4_Pg126_Top.JPG b/1574/CH2/EX2.4.0/Result_of_Chapter_2_Ex2_4_Pg126_Top.JPG Binary files differnew file mode 100755 index 000000000..ed1bc9001 --- /dev/null +++ b/1574/CH2/EX2.4.0/Result_of_Chapter_2_Ex2_4_Pg126_Top.JPG diff --git a/1574/CH2/EX2.4.0/SCS_ex_2_4_Pg_126_TOP.sce b/1574/CH2/EX2.4.0/SCS_ex_2_4_Pg_126_TOP.sce new file mode 100755 index 000000000..f612eaf00 --- /dev/null +++ b/1574/CH2/EX2.4.0/SCS_ex_2_4_Pg_126_TOP.sce @@ -0,0 +1,16 @@ +clc;
+// Chapter 2 Switched communication systems
+//Example 2.4,page no 126
+//given
+L=3//relay inductance in henry
+R=1500//relay resistance in ohm
+Io=20e-3//oparating current in amps
+Ir=8e-3//release current in amps
+
+V=50//supply volatage in volts
+Im=V/R//maxixmum current in amps
+mprintf('maxixmum current is %f mamps \n',Im*1e3)
+to=(L/R)*log(1/(1-(Io/Im)))//operate lag in sec
+mprintf('operate lag is %f msec \n',to*1000)
+tr=(L/R)*log(Im/Ir)//release lag in sec
+mprintf('release lag is %f msec \n',tr*1000)
diff --git a/1574/CH2/EX2.4.1/Result_of_Chapter_2_Ex2_4_Pg126_Bottom.JPG b/1574/CH2/EX2.4.1/Result_of_Chapter_2_Ex2_4_Pg126_Bottom.JPG Binary files differnew file mode 100755 index 000000000..381dd6c31 --- /dev/null +++ b/1574/CH2/EX2.4.1/Result_of_Chapter_2_Ex2_4_Pg126_Bottom.JPG diff --git a/1574/CH2/EX2.4.1/SCS_ex_2_4_Pg_126_Bottom.sce b/1574/CH2/EX2.4.1/SCS_ex_2_4_Pg_126_Bottom.sce new file mode 100755 index 000000000..7728baf45 --- /dev/null +++ b/1574/CH2/EX2.4.1/SCS_ex_2_4_Pg_126_Bottom.sce @@ -0,0 +1,31 @@ +clc;
+// Chapter 2 Switched communication systems
+//Example 2.4.1,page no 126
+//given
+//a
+C_S1=20/3//speed in characters per second
+P_C1=1/C_S1//periods per character
+mprintf('(a)\nperiods per character is:%f msec\n',P_C1*1e3)
+E_C1=7.5//elements per character
+P_E1=P_C1/E_C1//period per element
+mprintf('period per element is:%f msec\n',P_E1*1e3)
+Sb1=1/P_E1//speed in bauds
+mprintf('speed is:%f bauds\n\n',Sb1)
+//b
+C_S2=10//speed in characters per second
+P_C2=1/C_S2//periods per character
+mprintf('(b)\nperiods per character is:%f msec\n',P_C2*1e3)
+E_C2=7.5//elements per character
+P_E2=P_C2/E_C2//period per element
+mprintf('period per element is:%f msec\n',P_E2*1e3)
+Sb2=1/P_E2//speed in bauds
+mprintf('speed is %f bauds\n\n', Sb2)
+//c
+C_S3=10//speed in characters per second
+P_C3=1/C_S3//periods per character
+mprintf('(c)\nperiods per character is:%f msec\n',P_C3*1e3)
+E_C3=10//elements per character
+P_E3=P_C3/E_C3//period per element
+mprintf('period per element is:%f msec\n',P_E3*1e3)
+Sb3=1/P_E3//speed in bauds
+mprintf('speed is %f bauds\n',Sb3)
diff --git a/1574/CH2/EX2.5/Result_of_Chapter_2_Ex_2_5.JPG b/1574/CH2/EX2.5/Result_of_Chapter_2_Ex_2_5.JPG Binary files differnew file mode 100755 index 000000000..c1b697f56 --- /dev/null +++ b/1574/CH2/EX2.5/Result_of_Chapter_2_Ex_2_5.JPG diff --git a/1574/CH2/EX2.5/SCS_ex_2_5.sce b/1574/CH2/EX2.5/SCS_ex_2_5.sce new file mode 100755 index 000000000..a7c8e59a6 --- /dev/null +++ b/1574/CH2/EX2.5/SCS_ex_2_5.sce @@ -0,0 +1,17 @@ +clc;
+// Chapter 2 Switched communication systems
+//Example 2.5,page no 127
+//given
+N=1000//no of turns
+L1=5e-8//inductance per turn
+L=N^2*L1//total inductance
+mprintf('total inductance is %f H \n',L)
+R=100//resistance of winding in ohm
+MMF=5//operating MMF in amp. turn
+V=1//voltage of received signal in volts
+Im=V/R//maximum current
+mprintf('maximum current is %f mA \n',Im*1e3)
+Io=MMF/N//operating current
+mprintf('operating current is %f mA \n',Io*1e3)
+to=(L/R)*log(1/(1-(Io/Im)))//operate lag
+mprintf('operate lag is %f msec \n',to*1e3)
diff --git a/1574/CH2/EX2.6/Result_of_Chapter_2_Ex_2_6.JPG b/1574/CH2/EX2.6/Result_of_Chapter_2_Ex_2_6.JPG Binary files differnew file mode 100755 index 000000000..913125182 --- /dev/null +++ b/1574/CH2/EX2.6/Result_of_Chapter_2_Ex_2_6.JPG diff --git a/1574/CH2/EX2.6/SCS_ex_2_6.sce b/1574/CH2/EX2.6/SCS_ex_2_6.sce new file mode 100755 index 000000000..c786cbdae --- /dev/null +++ b/1574/CH2/EX2.6/SCS_ex_2_6.sce @@ -0,0 +1,12 @@ +clc;
+// Chapter 2 Switched communication systems
+//Example 2.6,page no 128
+//given
+S=10000//no of subscribers
+C=16000//Tatol no of call in busy hour
+CR=C/S//busy hour calling rate
+mprintf('Busy hour calling rate is:%f \n',CR)
+T=2.6//avarage duration of calls in min
+
+A=C*(T/60)//rate of traffic flow
+mprintf('Rate of traffic flow is %f traffic unit ',A)
diff --git a/1574/CH2/EX2.7/Result_of_Chapter_2_Ex_2_7.JPG b/1574/CH2/EX2.7/Result_of_Chapter_2_Ex_2_7.JPG Binary files differnew file mode 100755 index 000000000..a55a64642 --- /dev/null +++ b/1574/CH2/EX2.7/Result_of_Chapter_2_Ex_2_7.JPG diff --git a/1574/CH2/EX2.7/SCS_ex_2_7.sce b/1574/CH2/EX2.7/SCS_ex_2_7.sce new file mode 100755 index 000000000..29c60ae49 --- /dev/null +++ b/1574/CH2/EX2.7/SCS_ex_2_7.sce @@ -0,0 +1,13 @@ +clc;
+// Chapter 2 Switched communication systems
+//Example 2.7,page no 135
+//given
+N=7//no of character elements
+E_C=10//elements per character (1+7+1+1)
+To=100e-3//duration of one character
+Te=To/E_C//duration of each element
+mprintf('duration of each element is:%f msec\n',Te*1e3)
+Sb=1/Te//speed in bauds
+mprintf('speed is %f bauds\n',Sb)
+C=2^N//total possible combinations
+mprintf('total possible combinations are:%f',C)
diff --git a/1574/CH2/EX2.8/Result_of_Chapter_2_Ex_2_8.JPG b/1574/CH2/EX2.8/Result_of_Chapter_2_Ex_2_8.JPG Binary files differnew file mode 100755 index 000000000..9bef6f6e7 --- /dev/null +++ b/1574/CH2/EX2.8/Result_of_Chapter_2_Ex_2_8.JPG diff --git a/1574/CH2/EX2.8/SCS_ex_2_8.sce b/1574/CH2/EX2.8/SCS_ex_2_8.sce new file mode 100755 index 000000000..e5ff781ae --- /dev/null +++ b/1574/CH2/EX2.8/SCS_ex_2_8.sce @@ -0,0 +1,15 @@ +clc;
+// Chapter 2 Switched communication systems
+//Example 2.8,page no 129
+//given
+S=1000//no of subscribers
+T=2.4/60//avarage duration of calls in hours
+A=60//rate of traffic flow
+C=A/T//Tatol no of call in busy hour
+mprintf('Total no of call in busy hour is:%f calls per Hour\n',C)
+CR=C/S//busy hour calling rate
+mprintf('Busy hour calling rate is:%f \n',CR)
+SCL=30//no of call lost per hour
+
+B=SCL/(C+SCL)//grade of service
+mprintf('grade of service is: %f',B)
diff --git a/1574/CH2/EX2.9/Result_of_Chapter_2_Ex_2_9.JPG b/1574/CH2/EX2.9/Result_of_Chapter_2_Ex_2_9.JPG Binary files differnew file mode 100755 index 000000000..383c74c8d --- /dev/null +++ b/1574/CH2/EX2.9/Result_of_Chapter_2_Ex_2_9.JPG diff --git a/1574/CH2/EX2.9/SCS_ex_2_9.sce b/1574/CH2/EX2.9/SCS_ex_2_9.sce new file mode 100755 index 000000000..fe621f713 --- /dev/null +++ b/1574/CH2/EX2.9/SCS_ex_2_9.sce @@ -0,0 +1,12 @@ +clc;
+// Chapter 2 Switched communication systems
+//Example 2.9,page no 129
+//given
+N=5//no of switches
+A=0.9//traffic offered
+//grade of service B=(A^N/N!)/(1+A+A^2/2!+A^3/3!+...+A^N/N!)
+//here
+B=(A^N/factorial(N))/(1+A+(A^2/factorial(2))+(A^3/factorial(3))+(A^4/factorial(4))+(A^5/factorial(5)))
+mprintf('grade of service is: %f\n',B)
+Tl=A*B//traffic lost
+mprintf('traffic lost is:%f',Tl)
diff --git a/1574/CH3/EX3.1/M_Ex_3_1.sce b/1574/CH3/EX3.1/M_Ex_3_1.sce new file mode 100755 index 000000000..7ef07e9be --- /dev/null +++ b/1574/CH3/EX3.1/M_Ex_3_1.sce @@ -0,0 +1,12 @@ +clc
+//Chapter3: Modulation
+//Example3.1, page no 135
+//Given
+Ic=10 //carrier current in Amps
+Imod=11.6// Current after modulation
+Rl=1//Assumed load in ohm
+Pmod=Rl*Imod^2//power before modulation
+Ma= sqrt(2*((Pmod/Ic^2)-1))//percentage modulation
+Pc=10
+Pmod=Pc*(1+(Ma^2/2))//power after modulation
+mprintf('percentage modulation is:%f%c\n Power after modulation is:%f watts',Ma*100,'%',Pmod)
diff --git a/1574/CH3/EX3.1/Result_of_Chapter_3_Ex3_1.JPG b/1574/CH3/EX3.1/Result_of_Chapter_3_Ex3_1.JPG Binary files differnew file mode 100755 index 000000000..5da74a2d8 --- /dev/null +++ b/1574/CH3/EX3.1/Result_of_Chapter_3_Ex3_1.JPG diff --git a/1574/CH3/EX3.10/M_Ex_3_10.sce b/1574/CH3/EX3.10/M_Ex_3_10.sce new file mode 100755 index 000000000..5aab2a5af --- /dev/null +++ b/1574/CH3/EX3.10/M_Ex_3_10.sce @@ -0,0 +1,33 @@ +
+clc
+//Answers from the book are little deviated but the evaluated values in the scilab are correct results
+//Chapter3: Modulation
+//Example3.10, page no 143
+//Given
+//b
+Pc=50e3//Carrier power
+Z=36 + %i*40//base impedance of the antenna
+Ma=1//modulation depth
+Pmod=Pc*(1+((Ma^2)/2))//power delivered to the antenna under 100% modulation
+//i
+R=36//resistance of the antenna
+Irms=sqrt(Pmod/R)//Antenna Current
+
+//ii
+Ic=sqrt(Pc/R)//RMS carrier current
+
+Icm=Ic*sqrt(2)// Peak carrier current
+Imod=2*Icm//Modulated current
+
+Theta=atan(40/36)*180/%pi// from real and imaginary components of Z
+Vbm100=Imod*Z//Peak base output voltage for 100% modulation
+[Re_Vb,Im_Vb]=polar(Vbm100)
+
+//iii
+Ma=0.5
+Imod=Icm*(1+0.5)
+
+Vbm50=Imod*Z
+[Re_Vb1,Im_Vb1]=polar(Vbm50)
+mprintf('Antenna current for full modulation is: %f amp\nPeak base voltage is: %f/_%d volts\nPeak base voltage is: %f/_%d volts',Irms,Re_Vb,Theta,Re_Vb1,Theta)
+// The Ans is little deviated from that of book as the decimal places considered while calculating at different stages might be different
diff --git a/1574/CH3/EX3.10/Result_of_Chapter_3_Ex3_10.JPG b/1574/CH3/EX3.10/Result_of_Chapter_3_Ex3_10.JPG Binary files differnew file mode 100755 index 000000000..8749880ab --- /dev/null +++ b/1574/CH3/EX3.10/Result_of_Chapter_3_Ex3_10.JPG diff --git a/1574/CH3/EX3.11/M_Ex_3_11.sce b/1574/CH3/EX3.11/M_Ex_3_11.sce new file mode 100755 index 000000000..6ce1df5d8 --- /dev/null +++ b/1574/CH3/EX3.11/M_Ex_3_11.sce @@ -0,0 +1,24 @@ +clf();
+clc
+//Chapter3: Modulation
+//Example3.11, page no 144
+//Given
+deff("[y]=f(x)","y=Ec*(1+ma*(sin(wm*x)))*sin(wc*x)")
+Ec=10,ma=0.5,wm=10000*%pi,wc=2*%pi*1e7
+x=[0:0.01:20]*%pi/10;
+subplot(2,1,1)
+fplot2d(x,f)
+xlabel("t", "fontsize", 3);
+ylabel("Modulated Wave", "fontsize", 3, "color", "red");
+Fc=wc/(2*%pi)
+Fm=wm/(2*%pi)
+Fusb=(wm+wc)/(2*%pi)
+Flsb=(wm-wc)/(2*%pi)
+mprintf('USB freq=%d k5Hz\nUSB amplitude=%f V\nLSB freq=%d kHz\nLSB amplitude=%f V\nCarrier amplitude=%d V',Fusb*1e-3,2.5,Flsb*-1e-3,2.5,10)
+F=[0,2.5,10,2.5,0]
+T=[-2,-1,0,1,2]
+subplot(2,1,2)
+plot2d3(T,F,5)
+xlabel("Freq", "fontsize", 3);
+ylabel("Amplitude", "fontsize", 3, "color", "blue");
+xlabel("fc-fm fc fc+fm", "fontsize", 2);
diff --git a/1574/CH3/EX3.11/Result_Figure_3_Ex3_11.jpg b/1574/CH3/EX3.11/Result_Figure_3_Ex3_11.jpg Binary files differnew file mode 100755 index 000000000..ea9b4370d --- /dev/null +++ b/1574/CH3/EX3.11/Result_Figure_3_Ex3_11.jpg diff --git a/1574/CH3/EX3.11/Result_of_Chapter_3_Ex3_11.JPG b/1574/CH3/EX3.11/Result_of_Chapter_3_Ex3_11.JPG Binary files differnew file mode 100755 index 000000000..723cc9fc5 --- /dev/null +++ b/1574/CH3/EX3.11/Result_of_Chapter_3_Ex3_11.JPG diff --git a/1574/CH3/EX3.12/M_Ex_3_12.sce b/1574/CH3/EX3.12/M_Ex_3_12.sce new file mode 100755 index 000000000..f6dc81b03 --- /dev/null +++ b/1574/CH3/EX3.12/M_Ex_3_12.sce @@ -0,0 +1,8 @@ +clc
+//Chapter3: Modulation
+//Example3.12 page no 145
+//Given
+Pc=9e3//unmodulated carrier power
+Pt=10.125e3//Modulated carrier power
+Ma=sqrt(2*((Pt/Pc)-1))//depth of modulation
+mprintf('The depth of modulation is: %d%c',Ma*100,'%')
diff --git a/1574/CH3/EX3.12/Result_of_Chapter_3_Ex3_12.JPG b/1574/CH3/EX3.12/Result_of_Chapter_3_Ex3_12.JPG Binary files differnew file mode 100755 index 000000000..6ac9fc998 --- /dev/null +++ b/1574/CH3/EX3.12/Result_of_Chapter_3_Ex3_12.JPG diff --git a/1574/CH3/EX3.13/M_Ex_3_13.sce b/1574/CH3/EX3.13/M_Ex_3_13.sce new file mode 100755 index 000000000..8b68e9a9a --- /dev/null +++ b/1574/CH3/EX3.13/M_Ex_3_13.sce @@ -0,0 +1,11 @@ +clc
+//Chapter3: Modulation
+//Example3.13 page no 148
+//Given
+Pt=5e3//carrier power for 95% modulation
+Ma=0.95
+Pc=Pt/(1+((Ma^2)/2))//carrier power
+Ma=0.2//average modulation by speech signal
+Psb=(Ma^2)*Pc/2//the power n the sideband
+Pout=Psb/2// because one of the side band is suppressed
+mprintf('The power output is: %f W',Pout)
diff --git a/1574/CH3/EX3.13/Result_of_Chapter_3_Ex3_13.JPG b/1574/CH3/EX3.13/Result_of_Chapter_3_Ex3_13.JPG Binary files differnew file mode 100755 index 000000000..4bc4c24c5 --- /dev/null +++ b/1574/CH3/EX3.13/Result_of_Chapter_3_Ex3_13.JPG diff --git a/1574/CH3/EX3.14/M_Ex_3_14.sce b/1574/CH3/EX3.14/M_Ex_3_14.sce new file mode 100755 index 000000000..fc63de631 --- /dev/null +++ b/1574/CH3/EX3.14/M_Ex_3_14.sce @@ -0,0 +1,12 @@ +clc
+//Chapter3: Modulation
+//Example3.14 page no 152
+//Given
+//Phi=(wc*t+Mf*sin(wmt))....instantaneous phase of FM
+fm=5000//modulating freq
+deltaf=50e3//freq deviation
+deltaPhi1=deltaf/fm// Advance or retard in phase
+
+fm=100//modulating freq in second signal
+deltaPhi2=deltaf/fm
+mprintf('DeltaPhi1= %d rad\nDeltaPhi2=%d rad\n',deltaPhi1,deltaPhi2)
diff --git a/1574/CH3/EX3.14/Result_of_Chapter_3_Ex3_14.JPG b/1574/CH3/EX3.14/Result_of_Chapter_3_Ex3_14.JPG Binary files differnew file mode 100755 index 000000000..820b90c4f --- /dev/null +++ b/1574/CH3/EX3.14/Result_of_Chapter_3_Ex3_14.JPG diff --git a/1574/CH3/EX3.15/M_Ex_3_15.sce b/1574/CH3/EX3.15/M_Ex_3_15.sce new file mode 100755 index 000000000..09384e1b9 --- /dev/null +++ b/1574/CH3/EX3.15/M_Ex_3_15.sce @@ -0,0 +1,16 @@ +clc
+//Chapter3: Modulation
+//Example3.14 page no 157
+//Given
+//e=Ec(1+0.4cos(2pie3*t))*sin(2pie7*t)
+fm=1000//modulating s/g freq
+deltaTheta=2*atan(0.4)//peak phase deviation
+
+deltaF=deltaTheta*fm//Peak freq deviation
+
+Ec=1
+Er=sqrt((Ec^2)*(1+(0.4^2)))
+m=(Er-Ec)/Ec//depth of residual AM
+
+AMFr=2*fm// freq ofresidual AM
+mprintf('Peak Phase Deviation: %f rad\nPeak Freq Deviation: %d Hz\nDepth of residual AM: %f\nResidual AM freq:%d kHz',deltaTheta,deltaF,(round(m*100)/100),AMFr*1e-3)
diff --git a/1574/CH3/EX3.15/Result_of_Chapter_3_Ex3_15.JPG b/1574/CH3/EX3.15/Result_of_Chapter_3_Ex3_15.JPG Binary files differnew file mode 100755 index 000000000..28daf2f2c --- /dev/null +++ b/1574/CH3/EX3.15/Result_of_Chapter_3_Ex3_15.JPG diff --git a/1574/CH3/EX3.16/M_Ex_3_16.sce b/1574/CH3/EX3.16/M_Ex_3_16.sce new file mode 100755 index 000000000..f686a740d --- /dev/null +++ b/1574/CH3/EX3.16/M_Ex_3_16.sce @@ -0,0 +1,16 @@ +clc
+//Chapter3: Modulation
+//Example3.16 page no 170
+//Given
+deltaF=25e3//freq deviation
+//a
+fm=100//modulation signal freq
+mf=deltaF/fm// Max phase deviation
+disp('a)')
+mprintf('Max phase deviation is:%d rad',mf)
+//b
+fm=10e3//modulation signal freq
+mf=deltaF/fm//Max phase deviation
+
+disp('b)')
+mprintf('Max phase deviation is:%f rad',mf)
diff --git a/1574/CH3/EX3.16/Result_of_Chapter_3_Ex3_16.JPG b/1574/CH3/EX3.16/Result_of_Chapter_3_Ex3_16.JPG Binary files differnew file mode 100755 index 000000000..18bb168fb --- /dev/null +++ b/1574/CH3/EX3.16/Result_of_Chapter_3_Ex3_16.JPG diff --git a/1574/CH3/EX3.17/M_Ex_3_17.sce b/1574/CH3/EX3.17/M_Ex_3_17.sce new file mode 100755 index 000000000..ac7a8f219 --- /dev/null +++ b/1574/CH3/EX3.17/M_Ex_3_17.sce @@ -0,0 +1,15 @@ +clc
+//Chapter3: Modulation
+//Example3.17, page no 171
+//Given
+gm=0.1e-3// trans-conductance variation A/V
+C=0.5e-12// capactance between anode and grid
+R=1e3// resistance
+fo=10e6// oscillator freq
+Vrms=1.414//AF RMS voltage
+Vp=sqrt(2)*Vrms//Peak voltage
+Ct=100e-12//tank capacitance
+deltaC=gm*C*R*Vp
+
+deltaF=fo*(deltaC/(2*Ct))// maximum freq deviation
+mprintf('The maximum freq deviation is: %d kHz',round(deltaF/1000))
diff --git a/1574/CH3/EX3.17/Result_of_Chapter_3_Ex3_17.JPG b/1574/CH3/EX3.17/Result_of_Chapter_3_Ex3_17.JPG Binary files differnew file mode 100755 index 000000000..ecd8902a9 --- /dev/null +++ b/1574/CH3/EX3.17/Result_of_Chapter_3_Ex3_17.JPG diff --git a/1574/CH3/EX3.18/M_Ex_3_18.sce b/1574/CH3/EX3.18/M_Ex_3_18.sce new file mode 100755 index 000000000..4279b01a7 --- /dev/null +++ b/1574/CH3/EX3.18/M_Ex_3_18.sce @@ -0,0 +1,9 @@ +clc
+//Chapter3: Modulation
+//Example3.18, page no 172
+//Given
+deltaF=1e6// max freq deviation
+fm=10e3//modulating freq
+mf=(2*deltaF)/fm// modulation coefficient
+BW=mf*fm// bandwidth
+mprintf('The approximate bandwidth is: %d MHz',BW/1e6)
diff --git a/1574/CH3/EX3.18/Result_of_Chapter_3_Ex3_18.JPG b/1574/CH3/EX3.18/Result_of_Chapter_3_Ex3_18.JPG Binary files differnew file mode 100755 index 000000000..9e254b414 --- /dev/null +++ b/1574/CH3/EX3.18/Result_of_Chapter_3_Ex3_18.JPG diff --git a/1574/CH3/EX3.19/M_Ex_3_19.sce b/1574/CH3/EX3.19/M_Ex_3_19.sce new file mode 100755 index 000000000..3a03a307b --- /dev/null +++ b/1574/CH3/EX3.19/M_Ex_3_19.sce @@ -0,0 +1,9 @@ +clc
+//Chapter3: Modulation
+//Example3.19, page no 172
+//Given
+deltaF=75e3// max freq deviation
+fm=15e3//modulation freq
+mf=(2*deltaF)/fm// freq modulation depth
+BW=mf*fm// Bandwidth
+mprintf('The approximate bandwidth is: %d kHz',BW/1e3)
diff --git a/1574/CH3/EX3.19/Result_of_Chapter_3_Ex3_19.JPG b/1574/CH3/EX3.19/Result_of_Chapter_3_Ex3_19.JPG Binary files differnew file mode 100755 index 000000000..089188098 --- /dev/null +++ b/1574/CH3/EX3.19/Result_of_Chapter_3_Ex3_19.JPG diff --git a/1574/CH3/EX3.2/M_Ex_3_2.sce b/1574/CH3/EX3.2/M_Ex_3_2.sce new file mode 100755 index 000000000..492f599a3 --- /dev/null +++ b/1574/CH3/EX3.2/M_Ex_3_2.sce @@ -0,0 +1,8 @@ +clc
+//Chapter3: Modulation
+//Example3.2, page no 135
+//Given
+Pc=9e3// Tx Power without modulation
+Pmod=10.125e3//Tx Power after modulation
+Ma= sqrt(2*((Pmod/Pc)-1))//depth of (percentage) modulation
+mprintf('Depth of modulation is:%f',Ma)
diff --git a/1574/CH3/EX3.2/Result_of_Chapter_3_Ex3_2.JPG b/1574/CH3/EX3.2/Result_of_Chapter_3_Ex3_2.JPG Binary files differnew file mode 100755 index 000000000..9f3d0d8e1 --- /dev/null +++ b/1574/CH3/EX3.2/Result_of_Chapter_3_Ex3_2.JPG diff --git a/1574/CH3/EX3.21/M_Ex_3_21.sce b/1574/CH3/EX3.21/M_Ex_3_21.sce new file mode 100755 index 000000000..24f60827c --- /dev/null +++ b/1574/CH3/EX3.21/M_Ex_3_21.sce @@ -0,0 +1,11 @@ +clc
+//Chapter3: Modulation
+//Example3.21, page no 173
+//Given
+deltaF=75e3//freq deviation
+fm=15e3// modulating freq
+mf=deltaF/fm
+BW=2*mf*fm// Bandwidth
+GB=25e3//Guard Band
+BWo=BW+(2*GB)// Overall bandwidth
+mprintf('Overall bandwidth including guard band is %d kHz',BWo/1e3)
diff --git a/1574/CH3/EX3.21/Result_of_Chapter_3_Ex3_21.JPG b/1574/CH3/EX3.21/Result_of_Chapter_3_Ex3_21.JPG Binary files differnew file mode 100755 index 000000000..30a6ca8e3 --- /dev/null +++ b/1574/CH3/EX3.21/Result_of_Chapter_3_Ex3_21.JPG diff --git a/1574/CH3/EX3.25/M_Ex_3_25.sce b/1574/CH3/EX3.25/M_Ex_3_25.sce new file mode 100755 index 000000000..a7307b99c --- /dev/null +++ b/1574/CH3/EX3.25/M_Ex_3_25.sce @@ -0,0 +1,18 @@ +clc
+//Chapter3: Modulation
+//Example3.25, pageno 175
+//Given
+//em=3sin(2*pi*1000t)+5cos(2*pi*3000t)
+//ec=50sin(2*pi*500e3*t)
+m1=0.06//(sine wave amplitude/ peak carrier voltage)
+m2=0.1//(cosine wave amplitude/ peak carrier voltage)
+Vc=50//Carrier voltage
+R=50//load resistance
+Pc=(Vc^2)/(2*R)//Peak carrier power
+Pt=Pc*(1+((m1^2+m2^2)/2))//Total power after modulation
+mprintf('Average power is: %f watts',Pt)
+F=[0,2.5,1.5,50,1.5,2.5,0]
+T=[490,497,499,500,501,503,510]
+plot2d3(T,F,5)
+xlabel("Freq", "fontsize",3);
+ylabel("Amplitude", "fontsize",3, "color", "blue");
diff --git a/1574/CH3/EX3.25/Result_Figure_3_Ex3_25.jpg b/1574/CH3/EX3.25/Result_Figure_3_Ex3_25.jpg Binary files differnew file mode 100755 index 000000000..f0c20820c --- /dev/null +++ b/1574/CH3/EX3.25/Result_Figure_3_Ex3_25.jpg diff --git a/1574/CH3/EX3.25/Result_of_Chapter_3_Ex3_25.JPG b/1574/CH3/EX3.25/Result_of_Chapter_3_Ex3_25.JPG Binary files differnew file mode 100755 index 000000000..33b9fa6ee --- /dev/null +++ b/1574/CH3/EX3.25/Result_of_Chapter_3_Ex3_25.JPG diff --git a/1574/CH3/EX3.26/M_Ex_3_26.sce b/1574/CH3/EX3.26/M_Ex_3_26.sce new file mode 100755 index 000000000..934feb386 --- /dev/null +++ b/1574/CH3/EX3.26/M_Ex_3_26.sce @@ -0,0 +1,13 @@ +clc
+//Chapter3: Modulation
+//Example3.26, page no 176
+//Given
+mp=0.1//Modulating index
+fm=400//Modulating signal freq
+deltaF=mp*fm//Max freq deviation
+//disp(deltaF)
+ReqDev=50e3// Required deviation
+MF=ReqDev/deltaF// multiplication factor
+mprintf('Required Deviation is: %d kHz\n',ReqDev/1e3)
+mprintf('Required Multipication Factor is: 5*5*5*5*2')
+
diff --git a/1574/CH3/EX3.26/Result_of_Chapter_3_Ex3_26.JPG b/1574/CH3/EX3.26/Result_of_Chapter_3_Ex3_26.JPG Binary files differnew file mode 100755 index 000000000..add66e1cd --- /dev/null +++ b/1574/CH3/EX3.26/Result_of_Chapter_3_Ex3_26.JPG diff --git a/1574/CH3/EX3.27/M_Ex_3_27.sce b/1574/CH3/EX3.27/M_Ex_3_27.sce new file mode 100755 index 000000000..d32157439 --- /dev/null +++ b/1574/CH3/EX3.27/M_Ex_3_27.sce @@ -0,0 +1,13 @@ +clc
+//Chapter3: Modulation
+//Example3.27, page no 176
+//Given
+Q=100 //Q factor
+ fc=1000e3// Carrier freq
+fsb1=999e3//lower Side band freq
+fsb2=1001e3//Upper side Band freq
+ma=0.5//Modulation depth of signal current
+Ma=ma/1.019// Expression for Ma after simplification
+mprintf('The Depth of modulation across the \n circuit is : Ma= %f%c',Ma*100,'%')
+
+// Note : There are some calculation errors in the solution presented in the book
diff --git a/1574/CH3/EX3.27/Result_of_Chapter_3_Ex3_27.JPG b/1574/CH3/EX3.27/Result_of_Chapter_3_Ex3_27.JPG Binary files differnew file mode 100755 index 000000000..17b660462 --- /dev/null +++ b/1574/CH3/EX3.27/Result_of_Chapter_3_Ex3_27.JPG diff --git a/1574/CH3/EX3.28/M_Ex_3_28.sce b/1574/CH3/EX3.28/M_Ex_3_28.sce new file mode 100755 index 000000000..e4838c09c --- /dev/null +++ b/1574/CH3/EX3.28/M_Ex_3_28.sce @@ -0,0 +1,12 @@ +clc
+//Chapter3: Modulation
+//Example3.28, page no 177
+//Given
+R=1//Antenna Resistance assumed to be 1 ohm for ease of calculation
+Ic=10.8// current with no modulation
+Pc=Ic^2*R//power with no modulation
+It=12.15//modulated current
+Pt=It^2*R// modulated power
+ma=(sqrt(2*(((It/Ic)^2)-1)))//modulation depth)
+
+mprintf('Depth of modulation:%f %c',round(1000*ma)/10,'%');
diff --git a/1574/CH3/EX3.28/Result_of_Chapter_3_Ex3_28.JPG b/1574/CH3/EX3.28/Result_of_Chapter_3_Ex3_28.JPG Binary files differnew file mode 100755 index 000000000..cd506e47a --- /dev/null +++ b/1574/CH3/EX3.28/Result_of_Chapter_3_Ex3_28.JPG diff --git a/1574/CH3/EX3.29/M_Ex_3_29.sce b/1574/CH3/EX3.29/M_Ex_3_29.sce new file mode 100755 index 000000000..2d885623d --- /dev/null +++ b/1574/CH3/EX3.29/M_Ex_3_29.sce @@ -0,0 +1,8 @@ +clc
+//Chapter3: Modulation
+//Example3.29, page no 177
+//Given
+Pc=100e3//Carrier power
+ma=0.5//Depth of modulation
+Pt=Pc*(1+((ma^2)/2))//total RF power
+mprintf('Total RF power delivered is:Pt= %f kW',Pt/1e3)
diff --git a/1574/CH3/EX3.29/Result_of_Chapter_3_Ex3_29.JPG b/1574/CH3/EX3.29/Result_of_Chapter_3_Ex3_29.JPG Binary files differnew file mode 100755 index 000000000..bfd610671 --- /dev/null +++ b/1574/CH3/EX3.29/Result_of_Chapter_3_Ex3_29.JPG diff --git a/1574/CH3/EX3.3/M_Ex_3_3.sce b/1574/CH3/EX3.3/M_Ex_3_3.sce new file mode 100755 index 000000000..e5a577d6b --- /dev/null +++ b/1574/CH3/EX3.3/M_Ex_3_3.sce @@ -0,0 +1,9 @@ +clc
+//Chapter3: Modulation
+//Example3.3
+//Given
+M1=0.2//depth of modulation for first tone
+M2=0.4//depth of modulation for second tone
+Pc=1200//Tx Power
+Pmod=Pc*(1+M1^2/2+M2^2/2)//total power radiated after modulation by both the tones
+mprintf('The total power radiated is %d watts',Pmod)
diff --git a/1574/CH3/EX3.3/Result_of_Chapter_3_Ex3_3.JPG b/1574/CH3/EX3.3/Result_of_Chapter_3_Ex3_3.JPG Binary files differnew file mode 100755 index 000000000..e50ab3146 --- /dev/null +++ b/1574/CH3/EX3.3/Result_of_Chapter_3_Ex3_3.JPG diff --git a/1574/CH3/EX3.30/M_Ex_3_30.sce b/1574/CH3/EX3.30/M_Ex_3_30.sce new file mode 100755 index 000000000..eb844ac43 --- /dev/null +++ b/1574/CH3/EX3.30/M_Ex_3_30.sce @@ -0,0 +1,9 @@ +clc
+//Chapter3: Modulation
+//Example3.30, page no 178
+//Given
+Pt=100e3// Total power
+ma=0.9//Depth of modulation
+Pc=Pt/(1+((ma^2)/2))//Carrier power
+Psb=Pt-Pc// Intelligence power i.e sideband power
+mprintf('Carrier power:%f kW\nThe Intelligence power: %f kW',Pc/1000,Psb/1000)
diff --git a/1574/CH3/EX3.30/Result_of_Chapter_3_Ex3_30.JPG b/1574/CH3/EX3.30/Result_of_Chapter_3_Ex3_30.JPG Binary files differnew file mode 100755 index 000000000..879d9f651 --- /dev/null +++ b/1574/CH3/EX3.30/Result_of_Chapter_3_Ex3_30.JPG diff --git a/1574/CH3/EX3.31/M_Ex_3_31.sce b/1574/CH3/EX3.31/M_Ex_3_31.sce new file mode 100755 index 000000000..bcd4f95ee --- /dev/null +++ b/1574/CH3/EX3.31/M_Ex_3_31.sce @@ -0,0 +1,11 @@ +clc
+//Chapter3: Modulation
+//Example3.19, page no 178
+//Given
+R=1// load resistance
+Eo=100//RF voltage
+Po=Eo^2/R//Carrier power
+E=110//Modulated RMS voltage
+Pt=E^2/R//Total modulated power
+ma=sqrt(2*((Pt/Po)-1))// Depth of modulation
+mprintf('Modulation Index is: %f %c',ma*100,'%')
diff --git a/1574/CH3/EX3.31/Result_of_Chapter_3_Ex3_31.JPG b/1574/CH3/EX3.31/Result_of_Chapter_3_Ex3_31.JPG Binary files differnew file mode 100755 index 000000000..b7b6766db --- /dev/null +++ b/1574/CH3/EX3.31/Result_of_Chapter_3_Ex3_31.JPG diff --git a/1574/CH3/EX3.4/M_Ex_3_4.sce b/1574/CH3/EX3.4/M_Ex_3_4.sce new file mode 100755 index 000000000..5d0bb6220 --- /dev/null +++ b/1574/CH3/EX3.4/M_Ex_3_4.sce @@ -0,0 +1,17 @@ +clc
+//Chapter3: Modulation
+//Example3.4, page no 138
+//Given
+Ebb=2e3//DC plate supply
+Ecc=-500//DC grid bias
+Ib=67e-3//DC plate current
+Ic=30e-3//DC grid current
+Egm=750//RF peak grid voltage
+Pout=75//RF Power output
+Ma=0.75//Depth of modulation
+Paf=(Ma^2*Ebb*Ib)/(2*1)//modulating power required from the audio source
+Pdc=Ebb*Ib//Power supplied by DC source
+Zm=Ebb^2/Pdc//Modulator Impedance
+
+Pd=Pdc+Paf-Pout//Plate dissipation
+mprintf('modulating power required from the audio source\n is:%f watts\n Modulator Impedance is:%f ohm\n Plate dissipation is:%f watts',Paf,Zm,Pd)
diff --git a/1574/CH3/EX3.4/Result_of_Chapter_3_Ex3_4.JPG b/1574/CH3/EX3.4/Result_of_Chapter_3_Ex3_4.JPG Binary files differnew file mode 100755 index 000000000..68be46f20 --- /dev/null +++ b/1574/CH3/EX3.4/Result_of_Chapter_3_Ex3_4.JPG diff --git a/1574/CH3/EX3.5/M_Ex_3_5.sce b/1574/CH3/EX3.5/M_Ex_3_5.sce new file mode 100755 index 000000000..430a0803f --- /dev/null +++ b/1574/CH3/EX3.5/M_Ex_3_5.sce @@ -0,0 +1,24 @@ +clc
+//Chapter3: Modulation
+//Example3.5b, page no 139
+//Given
+Pd=944//Anode dissipation of the class C amplifier in watts
+Ma=0.6//modulation depth,
+Etta=0.6//efficiency
+Pout=(Etta*Pd/(1-Etta))//power dissipation at 60% modulation
+Pc=Pout/(1+(Ma^2/2))//Tx power
+Psb=Pout-Pc
+Pdc1=Pc/Etta//DC power inputto PA
+Paf=Psb/Etta// modulation power input to PA
+Eff=0.25// efficiency of the modulator
+Pdc2=Paf/Eff//DC power input to modulator
+Pdct=Pdc1+Pdc2//Total DC power to the system
+Effo=Pout/Pdct//Overall Efficiency
+Ma=1// 100% modulation
+Pt=Pc*(1+(Ma^2)/2)
+Psb=(Pc*Ma^2)/2
+Paf=Psb/Etta//modulating input power to PA
+Pdc2=Paf/Eff// DC power input to modulator
+Pd=Pdc2-Paf//Power dissipation at the modulator
+Effo1=Pout/(Pdc1+Pdc2)//Overall Efficiency
+mprintf('Tx power:%f Watts\n Power dissipation at the modulator is: %f Watts\n Overall Efficiency at0.6 modulation is:%f%c ',Pc,Pd,100*Effo,'%')
diff --git a/1574/CH3/EX3.5/Result_of_Chapter_3_Ex3_5.JPG b/1574/CH3/EX3.5/Result_of_Chapter_3_Ex3_5.JPG Binary files differnew file mode 100755 index 000000000..4fa278333 --- /dev/null +++ b/1574/CH3/EX3.5/Result_of_Chapter_3_Ex3_5.JPG diff --git a/1574/CH3/EX3.6/M_Ex_3_6.sce b/1574/CH3/EX3.6/M_Ex_3_6.sce new file mode 100755 index 000000000..92148739d --- /dev/null +++ b/1574/CH3/EX3.6/M_Ex_3_6.sce @@ -0,0 +1,18 @@ +clc
+//Chapter3: Modulation
+//Example3.6, page no 141
+//Given
+Pdc=1400//DC power i/p to PA under 100% modulation
+Ptdc=400//Plate dissipation
+Pd=Ptdc*(2/3)//DC plate dissipation
+
+Pdmod=Ptdc*(1/3)//
+Pc=Pdc-Pd//Carrier Power
+
+Psb=Pc/2//side band power
+Paf=Psb+Pdmod//output power of modulator
+
+Mod_Eff=0.6
+Pdc2=Paf/Mod_Eff//DC i/p power to the modulator
+Pd_AF=Pdc2-Paf//Plate dissipation inthe modulator
+mprintf('Carrier Power is: %f watts \n DC plate dissipation is: %f watts\n output power of modulator is: %f watts\n Plate dissipation inthe modulator is:%f watts',Pc,Pd,Paf,Pd_AF)
diff --git a/1574/CH3/EX3.6/Result_of_Chapter_3_Ex3_6.JPG b/1574/CH3/EX3.6/Result_of_Chapter_3_Ex3_6.JPG Binary files differnew file mode 100755 index 000000000..69ebc3fae --- /dev/null +++ b/1574/CH3/EX3.6/Result_of_Chapter_3_Ex3_6.JPG diff --git a/1574/CH3/EX3.7/M_Ex_3_7.sce b/1574/CH3/EX3.7/M_Ex_3_7.sce new file mode 100755 index 000000000..136eb51ee --- /dev/null +++ b/1574/CH3/EX3.7/M_Ex_3_7.sce @@ -0,0 +1,14 @@ +clc
+//Chapter3: Modulation
+//Example3.7, page no 141
+//Given
+Paf=500//Modulator output power
+Eff=0.75//Efficiency of the amplifier
+P_lost=Paf*(1-Eff)//modulating power lost in the amplifier
+Psb=Paf*Eff//side band power
+
+m=1
+Pc=2*Psb
+
+Pt=Pc+Psb//Total RF power
+mprintf('Maximum carrier power is: %d watts\n Total RF power is: %d watts',Pc,Pt)
diff --git a/1574/CH3/EX3.7/Result_of_Chapter_3_Ex3_7.JPG b/1574/CH3/EX3.7/Result_of_Chapter_3_Ex3_7.JPG Binary files differnew file mode 100755 index 000000000..7291f3173 --- /dev/null +++ b/1574/CH3/EX3.7/Result_of_Chapter_3_Ex3_7.JPG diff --git a/1574/CH3/EX3.8/M_Ex_3_8.sce b/1574/CH3/EX3.8/M_Ex_3_8.sce new file mode 100755 index 000000000..b38c1b9d7 --- /dev/null +++ b/1574/CH3/EX3.8/M_Ex_3_8.sce @@ -0,0 +1,14 @@ +clc
+//Chapter3: Modulation
+//Example3.8, page no 143
+//Given
+Po=3000// Rating of Power Amplifier
+Pr=750//Push-Pull amplifier rated as
+Paf=2*Pr//Rated power output from Push-Pull modulator
+Eff=0.6
+P_lost=Paf-(Eff*Paf)//Modulation power lost
+Psb=Paf-P_lost//side band power
+
+Pc=Po-Psb//Carrier power
+Ma=sqrt(2*Psb/Pc)*100//Maximum depth of modulation
+mprintf('Carrier power is: %d watts\n Maximum depth of modulation is: %f',Pc,Ma)
diff --git a/1574/CH3/EX3.8/Result_of_Chapter_3_Ex3_8.JPG b/1574/CH3/EX3.8/Result_of_Chapter_3_Ex3_8.JPG Binary files differnew file mode 100755 index 000000000..26ec9b89a --- /dev/null +++ b/1574/CH3/EX3.8/Result_of_Chapter_3_Ex3_8.JPG diff --git a/1574/CH3/EX3.9/M_Ex_3_9.sce b/1574/CH3/EX3.9/M_Ex_3_9.sce new file mode 100755 index 000000000..b6119d015 --- /dev/null +++ b/1574/CH3/EX3.9/M_Ex_3_9.sce @@ -0,0 +1,23 @@ +clc
+//Chapter3: Modulation, page no 142
+//Example3.9
+//Given
+t=0:0.001:10
+//e=500*(1+(0.4*sin(3140*t)))*sin(6.28e7*t)
+//a
+wc=6.28e7//Carrier angular frequency
+fc=wc/(2*%pi)// Carrier freq
+//b
+wm=3140//Modulating angular freq
+fm=wm/(2*%pi)//Modulating freq
+//c
+Ec=500///peak carrier voltage
+Pc=(Ec^2)/(2*600)//Carrier power
+//d
+Ma=0.4
+Pt=Pc*(1+(Ma^2 / 2))//Mean output power
+//e
+Rl=600//load resistance
+Ecp=Ec+(Ma*Ec)//Peak output voltage
+Ptm=Ecp^2/(2*Rl)//Peak power
+mprintf('Carrier freq is: %d MHz\nModulating freq is:%d Hz\nCarrier power is: %f watts\nMean output power is: %f watts\nPeak output power is: %f watts',round(fc*1e-6),round(fm),Pc,Pt,Ptm)
diff --git a/1574/CH3/EX3.9/Result_of_Chapter_3_Ex3_9.JPG b/1574/CH3/EX3.9/Result_of_Chapter_3_Ex3_9.JPG Binary files differnew file mode 100755 index 000000000..fb1b3b910 --- /dev/null +++ b/1574/CH3/EX3.9/Result_of_Chapter_3_Ex3_9.JPG diff --git a/1574/CH5/EX5.1/RTS_Ex_5_1.sce b/1574/CH5/EX5.1/RTS_Ex_5_1.sce new file mode 100755 index 000000000..678c7610a --- /dev/null +++ b/1574/CH5/EX5.1/RTS_Ex_5_1.sce @@ -0,0 +1,12 @@ +clc
+//Chapter8
+//Example8.15, page no 230
+//Given
+//b
+fm=1e2//modulation freq
+Phimax=10*%pi/180// Max Phase deviation
+//i
+Freq_dev=Phimax*fm// Freq deviation
+//ii
+Mul_fact=30e3/Freq_dev// Multification factor
+mprintf('Freq deviation is %f Hz\n Multification factor is %d\n corresponding modified max freq deviation is 30114kHz',Freq_dev,Mul_fact)
diff --git a/1574/CH5/EX5.1/Result_of_Chapter_5_Ex5_1.JPG b/1574/CH5/EX5.1/Result_of_Chapter_5_Ex5_1.JPG Binary files differnew file mode 100755 index 000000000..2685be168 --- /dev/null +++ b/1574/CH5/EX5.1/Result_of_Chapter_5_Ex5_1.JPG diff --git a/1574/CH6/EX6.1/RR_Ex_6_1.sce b/1574/CH6/EX6.1/RR_Ex_6_1.sce new file mode 100755 index 000000000..817d122a1 --- /dev/null +++ b/1574/CH6/EX6.1/RR_Ex_6_1.sce @@ -0,0 +1,10 @@ +clc
+//Chapter8
+//Example8.15, page no 262
+//Given
+//Vm(t),Vc(t),Vmod(t)
+fm=10e3//modulating freq
+BW=2*fm// Bandwidth
+fc=100*BW//Carrier freq
+mprintf('Carrier freq for the BW to be 1%c of fc is: %d kHz','%',fc/1000)
+
diff --git a/1574/CH6/EX6.1/Result_of_Chapter_6_Ex6_1.JPG b/1574/CH6/EX6.1/Result_of_Chapter_6_Ex6_1.JPG Binary files differnew file mode 100755 index 000000000..885eb56f0 --- /dev/null +++ b/1574/CH6/EX6.1/Result_of_Chapter_6_Ex6_1.JPG diff --git a/1574/CH6/EX6.2/RR_Ex_6_2.sce b/1574/CH6/EX6.2/RR_Ex_6_2.sce new file mode 100755 index 000000000..40442c270 --- /dev/null +++ b/1574/CH6/EX6.2/RR_Ex_6_2.sce @@ -0,0 +1,12 @@ +clc
+//Chapter8
+//Example6.2, page no 262
+//Given
+fmax=1600e3,fmin=500e3,IF=465e3
+//i
+fo1max=fmax+IF,fo1min=fmin+IF
+C1max_C1min=(fo1max/fo1min)^2
+//ii
+fo2max=fmax-IF,fo2min=fmin-IF
+C2max_C2min=(fo2max/fo2min)^2
+mprintf('a)\nTuning capacitor range is: %f\nb)\nTuning capacitor range is: %d',C1max_C1min,C2max_C2min)
diff --git a/1574/CH6/EX6.2/Result_of_Chapter_6_Ex6_2.JPG b/1574/CH6/EX6.2/Result_of_Chapter_6_Ex6_2.JPG Binary files differnew file mode 100755 index 000000000..052e6320c --- /dev/null +++ b/1574/CH6/EX6.2/Result_of_Chapter_6_Ex6_2.JPG diff --git a/1574/CH7/EX7.10/N_Ex_7_10.sce b/1574/CH7/EX7.10/N_Ex_7_10.sce new file mode 100755 index 000000000..1dc1d97e4 --- /dev/null +++ b/1574/CH7/EX7.10/N_Ex_7_10.sce @@ -0,0 +1,12 @@ +
+
+clc
+//Chapter7
+//Example7.10
+//Given
+SNRam=25// Signal to noise ratio of AM
+PcFM_AM=0.9//
+mf=5
+SNRfm=(10*log10(3*(mf^2)*(PcFM_AM)))+SNRam
+mprintf('S/N ratio for FM is %f dBs',SNRfm)
+// Note : There are some calculation errors in the solution presented in the book
diff --git a/1574/CH7/EX7.10/Result_of_Chapter_7_Ex7_10.JPG b/1574/CH7/EX7.10/Result_of_Chapter_7_Ex7_10.JPG Binary files differnew file mode 100755 index 000000000..eb23eaa14 --- /dev/null +++ b/1574/CH7/EX7.10/Result_of_Chapter_7_Ex7_10.JPG diff --git a/1574/CH7/EX7.11/N_Ex_7_11.sce b/1574/CH7/EX7.11/N_Ex_7_11.sce new file mode 100755 index 000000000..89064f91d --- /dev/null +++ b/1574/CH7/EX7.11/N_Ex_7_11.sce @@ -0,0 +1,13 @@ +clc
+//Chapter7
+//Example7.11
+//Given
+ma=0.3
+SNR=20// s/n ratio
+SNR1=10^(0.1*SNR)
+SNR_new=SNR+3
+ma2=0.6// increased new depth of modulation
+Pt_Ni=SNR1*((1+(ma^2))/(ma^2))
+SNR2=10*log10(Pt_Ni*((ma2^2)/(1+((ma2^2)/2))))
+
+mprintf('a)\n New SNR for 3dB increase in input s/g is %d dBs\nb) When Modulation depth is increased to 60%c\n SNR becomes %f dBs',SNR_new,'%',SNR2)
diff --git a/1574/CH7/EX7.11/Result_of_Chapter_7_Ex7_11.JPG b/1574/CH7/EX7.11/Result_of_Chapter_7_Ex7_11.JPG Binary files differnew file mode 100755 index 000000000..22ee24ff8 --- /dev/null +++ b/1574/CH7/EX7.11/Result_of_Chapter_7_Ex7_11.JPG diff --git a/1574/CH7/EX7.12/N_Ex_7_12.sce b/1574/CH7/EX7.12/N_Ex_7_12.sce new file mode 100755 index 000000000..15f5dd230 --- /dev/null +++ b/1574/CH7/EX7.12/N_Ex_7_12.sce @@ -0,0 +1,16 @@ +clc
+//Chapter7
+//Example7.12
+//Given
+fmax=5e3//max s/g freq
+S_fmin=2*fmax// Min sampling freq
+B_S=6//Binary bits sent per sample
+BTR=B_S*S_fmin//Bit Transmission rate
+Q=2^B_S//No of Quantizable levels
+MQN=0.5/Q//Max Quantization noise
+S_QNR=MQN^-1// Signal to Quantization noise ratio
+//b
+S_QNRreq=0.5*S_QNR// Signal to Quantization noise ratio
+Qreq=0.5*S_QNRreq//No of Quantizable levels
+B_Sreq=log2(Qreq)//Binary bits sent per sample
+mprintf('a) Bit Transmission rate: %d kbits/s\n Signal to Quantization noise ratio %d \nb)\n Bit Transmission rate: %d kbits/sample\n Signal to Quantization noise ratio: %d',BTR/1000,S_QNR,B_Sreq,S_QNRreq)
diff --git a/1574/CH7/EX7.12/Result_of_Chapter_7_Ex7_12.JPG b/1574/CH7/EX7.12/Result_of_Chapter_7_Ex7_12.JPG Binary files differnew file mode 100755 index 000000000..5b85afb28 --- /dev/null +++ b/1574/CH7/EX7.12/Result_of_Chapter_7_Ex7_12.JPG diff --git a/1574/CH7/EX7.2/N_Ex_7_2.sce b/1574/CH7/EX7.2/N_Ex_7_2.sce new file mode 100755 index 000000000..e4896cbcc --- /dev/null +++ b/1574/CH7/EX7.2/N_Ex_7_2.sce @@ -0,0 +1,26 @@ +clc
+//Chapter7
+//Example7.2, page no 276
+//Given
+mue=25//
+rp=5e3
+Rl=10e3
+C=1e-9
+gm=mue/rp
+Req=2.5/gm
+//disp(Req , gm)
+k=1.381e-23
+T=293
+R1=1e5
+// Power density spectrum for respective res
+d1=2*k*T*R1
+d2=2*k*T*Req
+d3=2*k*T*Rl
+xo=0
+x1=1e14
+w=0:%inf
+//H1(w)=(-gm*rp*Rl)/(rp+Rl+(%i*w*rp*Rl*C))
+Vo=sqrt((20231.65e2/%pi)*integrate('1/(((3e9)^2)+(w^2))','w',xo,x1))
+mprintf('The mean square noise voltage is: %f mV',Vo*1e3)
+
+
diff --git a/1574/CH7/EX7.2/Result_of_Chapter_7_Ex7_2.JPG b/1574/CH7/EX7.2/Result_of_Chapter_7_Ex7_2.JPG Binary files differnew file mode 100755 index 000000000..5cfc7d39c --- /dev/null +++ b/1574/CH7/EX7.2/Result_of_Chapter_7_Ex7_2.JPG diff --git a/1574/CH7/EX7.3/N_Ex_7_3.sce b/1574/CH7/EX7.3/N_Ex_7_3.sce new file mode 100755 index 000000000..7798cefc7 --- /dev/null +++ b/1574/CH7/EX7.3/N_Ex_7_3.sce @@ -0,0 +1,19 @@ +clc
+//Chapter7
+//Example7.3, page no 279
+//Given
+mue=25
+rp=5e3
+Rs=1e3//input resistance
+//Coupling Capacitors are assumed as short circuit
+Rg=1e5
+gm=25/5e3
+Req=2.5/gm
+F=1+((((Req*(Rs+Rg)^2)+(Rg*Rs^2))/(Rs*Rg^2)))
+xo=0
+x1=1e10
+w=0:%inf
+
+vo=sqrt((30145e-8/%pi)*integrate('1/(((3e5)^2)+(w^2))','w',xo,x1))
+mprintf('The mean square noise voltage is: %f uV',vo*1e6)
+
diff --git a/1574/CH7/EX7.3/Result_of_Chapter_7_Ex7_3.JPG b/1574/CH7/EX7.3/Result_of_Chapter_7_Ex7_3.JPG Binary files differnew file mode 100755 index 000000000..9c3a3c9c0 --- /dev/null +++ b/1574/CH7/EX7.3/Result_of_Chapter_7_Ex7_3.JPG diff --git a/1574/CH7/EX7.4/N_Ex_7_4.sce b/1574/CH7/EX7.4/N_Ex_7_4.sce new file mode 100755 index 000000000..f0baa95d6 --- /dev/null +++ b/1574/CH7/EX7.4/N_Ex_7_4.sce @@ -0,0 +1,16 @@ +clc
+//Chapter8
+//Example7.4, page no 283
+//Given
+Ap1=10, Ap2=10, Ap3=10; // Gain of each states
+F_1=6, F_2=6, F_3=6; //Noise figure of each state
+F1= round(10^(F_1/10)), F2= round(10^(F_2/10)), F3= round(10^(F_3/10)); // approximating the values
+
+F=F1+((F2-1)/Ap1)+((F3-1)/(Ap1*Ap2))
+mprintf('overall noise Figure is: %f',F)
+
+
+
+
+
+
diff --git a/1574/CH7/EX7.4/Result_of_Chapter_7_Ex7_4.JPG b/1574/CH7/EX7.4/Result_of_Chapter_7_Ex7_4.JPG Binary files differnew file mode 100755 index 000000000..409ed4461 --- /dev/null +++ b/1574/CH7/EX7.4/Result_of_Chapter_7_Ex7_4.JPG diff --git a/1574/CH7/EX7.5/N_Ex_7_5.sce b/1574/CH7/EX7.5/N_Ex_7_5.sce new file mode 100755 index 000000000..0d574df21 --- /dev/null +++ b/1574/CH7/EX7.5/N_Ex_7_5.sce @@ -0,0 +1,12 @@ +clc
+//Chapter7
+//Example7.5, page no 283
+//Given
+Fif=15// Noise figure of IF amplifier
+Ap1=10// Gain of Preamplifier
+Fpa=6//Noise figure of preamplifier
+F2=10^(Fif/10)
+F1=10^(Fpa/10)
+
+F=F1+((F2-1)/Ap1)//overall noise figure
+mprintf('The overall noise figure is: %f',F)
diff --git a/1574/CH7/EX7.5/Result_of_Chapter_7_Ex7_5.JPG b/1574/CH7/EX7.5/Result_of_Chapter_7_Ex7_5.JPG Binary files differnew file mode 100755 index 000000000..77f212095 --- /dev/null +++ b/1574/CH7/EX7.5/Result_of_Chapter_7_Ex7_5.JPG diff --git a/1574/CH7/EX7.7/N_Ex_7_7.sce b/1574/CH7/EX7.7/N_Ex_7_7.sce new file mode 100755 index 000000000..ed9e10157 --- /dev/null +++ b/1574/CH7/EX7.7/N_Ex_7_7.sce @@ -0,0 +1,22 @@ +clc
+//Chapter7
+//Example7.6
+//Given
+mue=25// tube parameters
+rp=10e3// tube parameters
+gm=2.5e-3// transconductance
+Req=2.5/gm// equivalent resistance
+Rs=1000
+Rg=1e5
+F1=1+(((Req*((Rs+Rg)^2))+Rg*Rs^2)/(Rs*(Rg^2)))//noise figure of the first stage
+Rg2=9.1e3
+Rs2=10e3
+Es=1// assuming Es=1 for ease of calculation
+Pi=((Es/2e3)^2)*1e3
+Po=1.532e-2*Es^2
+Ap1=Po/Pi
+F2=1+(((Req*((Rs2+Rg2)^2))+Rg2*Rs2^2)/(Rs2*(Rg2^2)))// noise figure of the second stage
+F=(F1)+((F2-1)/Ap1)
+mprintf('Overall Noise figure is:%f',F)
+
+
diff --git a/1574/CH7/EX7.7/Result_of_Chapter_7_Ex7_7.JPG b/1574/CH7/EX7.7/Result_of_Chapter_7_Ex7_7.JPG Binary files differnew file mode 100755 index 000000000..be197d445 --- /dev/null +++ b/1574/CH7/EX7.7/Result_of_Chapter_7_Ex7_7.JPG diff --git a/1574/CH7/EX7.8/N_Ex_7_8.sce b/1574/CH7/EX7.8/N_Ex_7_8.sce new file mode 100755 index 000000000..19a3be6c7 --- /dev/null +++ b/1574/CH7/EX7.8/N_Ex_7_8.sce @@ -0,0 +1,25 @@ +clc
+//Chapter7
+//Example7.8
+//Given
+g01=30// gain of 1st stage
+g02=20//gain of 2nd stage
+g03=40//gain of 3rd stage
+F2=6// Noise factor of stage 2
+F3=12// Noise factor of stage 3
+Te1=4// Eq noise temp of stage 1
+T=290// Room
+G01=round(10^(g01/10))
+G02=round(10^(g02/10))
+G03=round(10^(g03/10))
+F_2=round(10^(F2/10))
+F_3=round(10^(F3/10))
+Te2=round((F_2-1))*T
+Te3=round((F_3-1))*T
+Te=Te1+(Te2/G01)+(Te3/(G01*G02))// Eq overall noise temp
+mprintf('The equivalent noise temp is: %f K',Te)
+
+
+
+
+
diff --git a/1574/CH7/EX7.8/Result_of_Chapter_7_Ex7_8.JPG b/1574/CH7/EX7.8/Result_of_Chapter_7_Ex7_8.JPG Binary files differnew file mode 100755 index 000000000..ee4ed4be4 --- /dev/null +++ b/1574/CH7/EX7.8/Result_of_Chapter_7_Ex7_8.JPG diff --git a/1574/CH7/EX7.9/N_Ex_7_9.sce b/1574/CH7/EX7.9/N_Ex_7_9.sce new file mode 100755 index 000000000..8cce8a5a8 --- /dev/null +++ b/1574/CH7/EX7.9/N_Ex_7_9.sce @@ -0,0 +1,16 @@ +clc
+//Chapter7
+//Example7.9
+//Given
+g01=round(10^(25/10))//low noise amplifier gain
+Te1=4//low noise amplifier noise temp
+g02=round(10^(1.7))//preamplifier gain
+F2=round(10^0.6)//preamplifier noise figure
+F3=round(10^1.2)//preamplifier noise figure
+T=290// room temp
+Te2=round((F2-1)*T)
+Te3=round((F3-1)*T)
+Te=Te1+(Te2/g01)+(Te3/(g01*g02))//Overall noise Temperature
+mprintf('Equivalent noise temperature is %f K',Te)
+
+
diff --git a/1574/CH7/EX7.9/Result_of_Chapter_7_Ex7_9.JPG b/1574/CH7/EX7.9/Result_of_Chapter_7_Ex7_9.JPG Binary files differnew file mode 100755 index 000000000..3edff37dc --- /dev/null +++ b/1574/CH7/EX7.9/Result_of_Chapter_7_Ex7_9.JPG diff --git a/1574/CH8/EX8.1/Result_of_Chapter_8_Ex8_1.JPG b/1574/CH8/EX8.1/Result_of_Chapter_8_Ex8_1.JPG Binary files differnew file mode 100755 index 000000000..4d455f4eb --- /dev/null +++ b/1574/CH8/EX8.1/Result_of_Chapter_8_Ex8_1.JPG diff --git a/1574/CH8/EX8.1/TL_Ex_8_1.sce b/1574/CH8/EX8.1/TL_Ex_8_1.sce new file mode 100755 index 000000000..44cffaa54 --- /dev/null +++ b/1574/CH8/EX8.1/TL_Ex_8_1.sce @@ -0,0 +1,22 @@ +clc
+//Chapter8
+//Example8.1, page no 313
+//Given
+//a
+L=1.2*10^-3//distributed inductance
+C=0.05*10^-6//distributed capacitance
+Zo=sqrt(L/C)//Characteristic Impedance
+mprintf('The characteristic Impedance is Zo= %f ohm',Zo)
+Wo=1// Assumedfor ease of calculation
+G=%i*sqrt(L*C)*Wo
+mprintf('\nPropagation constant is Gama= j%3.2ew',G*-%i)
+//b
+//i
+lambda=0.4e3//wavelength=Line length
+c=3e8
+f=c/lambda
+//ii
+L=L'*0.4
+C=C'*0.4
+v=1/(sqrt(L*C))
+mprintf('\n The freq at which the line length is equal to wavelength is: %d KHz\n The velocity of propagation is: %f km/sec',f*1e-3,v*1e-3)
diff --git a/1574/CH8/EX8.15.1/Result_of_Chapter_8_Ex8_15_Pg348.JPG b/1574/CH8/EX8.15.1/Result_of_Chapter_8_Ex8_15_Pg348.JPG Binary files differnew file mode 100755 index 000000000..cfcebf7a1 --- /dev/null +++ b/1574/CH8/EX8.15.1/Result_of_Chapter_8_Ex8_15_Pg348.JPG diff --git a/1574/CH8/EX8.15.1/TL_Ex_8_15_Pg_348.sce b/1574/CH8/EX8.15.1/TL_Ex_8_15_Pg_348.sce new file mode 100755 index 000000000..931a10ba4 --- /dev/null +++ b/1574/CH8/EX8.15.1/TL_Ex_8_15_Pg_348.sce @@ -0,0 +1,21 @@ +clc
+//Chapter8
+//Example8.15, page no 348
+//Given
+l=100// Tx-line length
+ZR=200//Terminal resistance
+Zo=600//Characteristic impedance
+a=0.01//attenuation constant
+Beta=0.03//phase constant
+d=0//reflection coeff at load is Zero
+Gamma=a+%i*Beta//propagation constant
+Kd=((ZR-Zo)/(ZR+Zo))*%e^(-2*Gamma*d)//reflection coeff at point D d km from load
+[Kdr,Kdi]=polar(Kd)
+d1=100// distance
+Ks=((ZR-Zo)/(ZR+Zo))*%e^(-2*Gamma*d1)//reflection coeff at the sending end
+[Ksr,Ksi]=polar(Ks)
+Zin=Zo*(((ZR*cosh(Gamma*l))+(Zo*sinh(Gamma*l)))/((Zo*cosh(Gamma*l))+(ZR*sinh(Gamma*l))))//Input impedance
+[Zinr,Zini]=polar(Zin)
+mprintf('The input impedance is %f /_%fdeg\nReflection Coeff is %f /_%fdeg',Zinr,Zini*180/%pi,Ksr,Ksi*180/%pi)
+
+// Note : There are some calculation errors in the solution presented in the book
diff --git a/1574/CH8/EX8.15/Result_of_Chapter_8_Ex8_15_Pg334.JPG b/1574/CH8/EX8.15/Result_of_Chapter_8_Ex8_15_Pg334.JPG Binary files differnew file mode 100755 index 000000000..348e40123 --- /dev/null +++ b/1574/CH8/EX8.15/Result_of_Chapter_8_Ex8_15_Pg334.JPG diff --git a/1574/CH8/EX8.15/TL_Ex_8_15_Pg_334.sce b/1574/CH8/EX8.15/TL_Ex_8_15_Pg_334.sce new file mode 100755 index 000000000..73a8d8183 --- /dev/null +++ b/1574/CH8/EX8.15/TL_Ex_8_15_Pg_334.sce @@ -0,0 +1,16 @@ +clc
+//Chapter8
+//Example8.15, page no 334
+//GivenR=0.01
+x=10//line length
+Zo=100// characteristic impedance
+a=0.1// attenuation constant
+Beta=0.05// phase constant
+Is=20e-3// source current
+Gamma=a+ %i*Beta// propagation constant
+
+I=Is/cosh(Gamma*x)// received current
+
+[I_r,I_i]=polar(I)
+
+mprintf('The current received is= %f mA at phase%f',1000*I_r,I_i*180/%pi)
diff --git a/1574/CH8/EX8.16/Result_of_Chapter_8_Ex8_16.JPG b/1574/CH8/EX8.16/Result_of_Chapter_8_Ex8_16.JPG Binary files differnew file mode 100755 index 000000000..20ef6ea55 --- /dev/null +++ b/1574/CH8/EX8.16/Result_of_Chapter_8_Ex8_16.JPG diff --git a/1574/CH8/EX8.16/TL_Ex_8_16.sce b/1574/CH8/EX8.16/TL_Ex_8_16.sce new file mode 100755 index 000000000..2cc050683 --- /dev/null +++ b/1574/CH8/EX8.16/TL_Ex_8_16.sce @@ -0,0 +1,15 @@ +clc
+//Chapter8
+//Example8.16, page no 349
+//Given
+L=1e-3//inductance
+R=40// Resistance
+C=0.1e-6// capacitance
+G=1e-6//conductance
+w=5000// angular freq
+Zo=sqrt(complex(R,(w*L))/complex(G,(w*C)))//Characteristic impedance
+//Zr=sqrt(sqrt(R^2+(w*L)^2)/sqrt(G^2+(w*C)^2))
+[ZoR,ZoI]=polar(Zo)
+mprintf('The characteristic impedance is %f /_%fdeg',ZoR,ZoI*180/%pi)
+
+// Note : There are some calculation errors in the solution presented in the book
diff --git a/1574/CH8/EX8.17/Result_of_Chapter_8_Ex8_17.JPG b/1574/CH8/EX8.17/Result_of_Chapter_8_Ex8_17.JPG Binary files differnew file mode 100755 index 000000000..f18a3f1c2 --- /dev/null +++ b/1574/CH8/EX8.17/Result_of_Chapter_8_Ex8_17.JPG diff --git a/1574/CH8/EX8.17/TL_Ex_8_17.sce b/1574/CH8/EX8.17/TL_Ex_8_17.sce new file mode 100755 index 000000000..4fb4f2424 --- /dev/null +++ b/1574/CH8/EX8.17/TL_Ex_8_17.sce @@ -0,0 +1,10 @@ +clc
+//Chapter8
+//Example8.17, page no 349
+//Given
+l=0.5//half line distance
+Vs=10//Excitation voltage
+Gamma=0.7+%i*0.3//propagation constant
+[Vr,Vi]=polar(Vs*(%e^(-Gamma*l)))//vtg at mid point
+mprintf('The voltage at the mid point of the line is %f /_%f ',Vr,Vi*180/%pi)
+
diff --git a/1574/CH8/EX8.18/Result_of_Chapter_8_Ex8_18.JPG b/1574/CH8/EX8.18/Result_of_Chapter_8_Ex8_18.JPG Binary files differnew file mode 100755 index 000000000..b89773b9d --- /dev/null +++ b/1574/CH8/EX8.18/Result_of_Chapter_8_Ex8_18.JPG diff --git a/1574/CH8/EX8.18/TL_Ex_8_18.sce b/1574/CH8/EX8.18/TL_Ex_8_18.sce new file mode 100755 index 000000000..d5ff30bab --- /dev/null +++ b/1574/CH8/EX8.18/TL_Ex_8_18.sce @@ -0,0 +1,11 @@ +clc
+//Chapter8
+//Example8.18, page no350
+//Given
+Zo=50// characteristic impedance
+P=500e-3//Supplied power
+S=1.4//VSWR on the line
+Emax=sqrt(Zo*S*P)//Max vtg
+
+Emin=sqrt(Zo*P/S)// Min vtg
+mprintf('The max voltage on line is %f V\n The min voltage on line is %f V',Emax,Emin)
diff --git a/1574/CH8/EX8.19/Result_of_Chapter_8_Ex8_19.JPG b/1574/CH8/EX8.19/Result_of_Chapter_8_Ex8_19.JPG Binary files differnew file mode 100755 index 000000000..61371b7d9 --- /dev/null +++ b/1574/CH8/EX8.19/Result_of_Chapter_8_Ex8_19.JPG diff --git a/1574/CH8/EX8.19/TL_Ex_8_19.sce b/1574/CH8/EX8.19/TL_Ex_8_19.sce new file mode 100755 index 000000000..d9911bd9d --- /dev/null +++ b/1574/CH8/EX8.19/TL_Ex_8_19.sce @@ -0,0 +1,35 @@ +clc
+//Chapter8
+//Example8.19, page no 350
+//Given
+Zo=100// Characteristic Impedance
+P=100e-3//Load power
+Zr=140//Load Resistance
+f=100e3// Operating freq
+//a
+K=(Zr-Zo)/(Zo+Zr)//Vtg Reflection coeff
+
+//b
+S=(1+K)/(1-K)//VSWR
+
+//c+d
+Emax=sqrt(Zr*P)//Max line vltg
+Imin=Emax/Zr//Min line current
+
+Emin=Emax/S// Min line vltg
+Imax=S*Imin//Max line current
+
+//e
+R=14000/40
+
+Zr=(Zo^2)/R//
+mprintf('\nThe voltage reflection coeff is %f\nThe VSWR is %f\n\n\nThe Max and min voltage and crresponding crrent is\n Emax= %fV Imin= %fmA\n Emin= %fV Imax= %fmA\n\n The Termination resistance should be %f ohm',K,S,Emax,Imin*1e3,Emin,Imax*1e3,Zr)
+
+
+
+
+
+
+
+
+
diff --git a/1574/CH8/EX8.2/Result_of_Chapter_8_Ex8_2.JPG b/1574/CH8/EX8.2/Result_of_Chapter_8_Ex8_2.JPG Binary files differnew file mode 100755 index 000000000..b444d29dc --- /dev/null +++ b/1574/CH8/EX8.2/Result_of_Chapter_8_Ex8_2.JPG diff --git a/1574/CH8/EX8.2/TL_Ex_8_2.sce b/1574/CH8/EX8.2/TL_Ex_8_2.sce new file mode 100755 index 000000000..e8a08a17e --- /dev/null +++ b/1574/CH8/EX8.2/TL_Ex_8_2.sce @@ -0,0 +1,18 @@ +clc
+//Chapter8
+//Example8.2, page no 314
+//Given
+v=3e8// velocty of light
+f=1.2e6// Operating Freq
+lambda=v/f
+//disp(lambda)
+l=100// length of the Tx-Line
+phi=2*(%pi*l)/(lambda)// Phase shift in degrees
+Zo=500// Characteristic impedance
+//a Open circuited Line
+
+Zin=-%i*Zo*(cos(phi)/sin(phi))
+
+//b Short circuited Line
+Z1in=%i*Zo*tan(phi)
+mprintf('The phase shift is: %d degrees\n Open Circuited line impedance: -j%f ohms\n Short Circuited line impedance -j%f ohms',phi*180/%pi,-Zin*%i,Z1in*%i)
diff --git a/1574/CH8/EX8.20/Result_of_Chapter_8_Ex8_20.JPG b/1574/CH8/EX8.20/Result_of_Chapter_8_Ex8_20.JPG Binary files differnew file mode 100755 index 000000000..094f36596 --- /dev/null +++ b/1574/CH8/EX8.20/Result_of_Chapter_8_Ex8_20.JPG diff --git a/1574/CH8/EX8.20/TL_Ex_8_20.sce b/1574/CH8/EX8.20/TL_Ex_8_20.sce new file mode 100755 index 000000000..87e65e878 --- /dev/null +++ b/1574/CH8/EX8.20/TL_Ex_8_20.sce @@ -0,0 +1,20 @@ +clc
+//Chapter8
+//Example8.20, page no 352
+//Given
+V=0.5//receiving vtg
+Vs=2//Source vtg
+al=-log(V/Vs)//attenuation
+
+al2=al*1.5
+V=Vs*%e^-al2//receiving voltage
+mprintf('the receiving voltage will be %f V',V)
+
+
+
+
+
+
+
+
+
diff --git a/1574/CH8/EX8.22/Result_of_Chapter_8_Ex8_22.JPG b/1574/CH8/EX8.22/Result_of_Chapter_8_Ex8_22.JPG Binary files differnew file mode 100755 index 000000000..c47c880df --- /dev/null +++ b/1574/CH8/EX8.22/Result_of_Chapter_8_Ex8_22.JPG diff --git a/1574/CH8/EX8.22/TL_Ex_8_22.sce b/1574/CH8/EX8.22/TL_Ex_8_22.sce new file mode 100755 index 000000000..2f644506f --- /dev/null +++ b/1574/CH8/EX8.22/TL_Ex_8_22.sce @@ -0,0 +1,20 @@ +clc
+//Chapter8
+//Example8.22, page no352
+//Given
+Zin=25+%i*15// Internal Impedance
+Zr=70-%i*42//load
+f=3e6//operating freq
+v=3e8//light velocity
+L=v/(4*f)//length of the line
+
+Zo=sqrt(Zin*Zr)//Characteristic Impedance
+mprintf('The lrngth should be %d metres\nThe Characteristic Impedance should be %f ohms',L,Zo)
+
+
+
+
+
+
+
+
diff --git a/1574/CH8/EX8.23/Result_of_Chapter_8_Ex8_23.JPG b/1574/CH8/EX8.23/Result_of_Chapter_8_Ex8_23.JPG Binary files differnew file mode 100755 index 000000000..1b2211687 --- /dev/null +++ b/1574/CH8/EX8.23/Result_of_Chapter_8_Ex8_23.JPG diff --git a/1574/CH8/EX8.23/TL_Ex_8_23.sce b/1574/CH8/EX8.23/TL_Ex_8_23.sce new file mode 100755 index 000000000..48083c1ec --- /dev/null +++ b/1574/CH8/EX8.23/TL_Ex_8_23.sce @@ -0,0 +1,24 @@ +clc
+//Chapter8
+//Example8.23, page no353
+//Given
+//a
+L=1e-3// inductance
+C=61.25e-9//capacitance
+Ld=44e-3//coil inductance
+d=2//distance intervals after which coils are added
+Lt=(L*2)+(Ld*2)//total inductance
+Ct=C*2//total capacitance
+fc=(%pi*sqrt(Lt*Ct))^-1//cut off freq
+
+//b
+I=100e-3//milliameter range
+R=1//milliameter resistance
+Zo=100//characteristic impedance
+Zin=(Zo^2)/R//input impedance
+
+Er=I*R//
+Es=Er*sqrt(Zin/Zo)
+mprintf('The cut-off freq is %f KHz \n the voltage being measured is %d V',fc*1e-3,Es)
+
+
diff --git a/1574/CH8/EX8.24/Result_of_Chapter_8_Ex8_24.JPG b/1574/CH8/EX8.24/Result_of_Chapter_8_Ex8_24.JPG Binary files differnew file mode 100755 index 000000000..65c63df15 --- /dev/null +++ b/1574/CH8/EX8.24/Result_of_Chapter_8_Ex8_24.JPG diff --git a/1574/CH8/EX8.24/TL_Ex_8_24.sce b/1574/CH8/EX8.24/TL_Ex_8_24.sce new file mode 100755 index 000000000..7369e9267 --- /dev/null +++ b/1574/CH8/EX8.24/TL_Ex_8_24.sce @@ -0,0 +1,13 @@ +clc
+//Chapter8
+//Example8.24, page no 354
+//Given
+f=20e6//tuned freq
+ZR=100//Equivalent aerial Resistance
+Zin=500//input impedance
+c=3e8
+lambda=c/f
+l=lambda/4//lambda/4 Transformer
+
+Zo=sqrt(Zin*ZR)//Characteristic impedance
+mprintf('the Length of the transformer(stub) is %f metres\n The characteristic impedance of this transformer is %d ohms',l,round(Zo))
diff --git a/1574/CH8/EX8.25/Result_of_Chapter_8_Ex8_25.JPG b/1574/CH8/EX8.25/Result_of_Chapter_8_Ex8_25.JPG Binary files differnew file mode 100755 index 000000000..8cec62304 --- /dev/null +++ b/1574/CH8/EX8.25/Result_of_Chapter_8_Ex8_25.JPG diff --git a/1574/CH8/EX8.25/TL_Ex_8_25.sce b/1574/CH8/EX8.25/TL_Ex_8_25.sce new file mode 100755 index 000000000..e26a3100d --- /dev/null +++ b/1574/CH8/EX8.25/TL_Ex_8_25.sce @@ -0,0 +1,17 @@ +clc
+//Chapter8
+//Example8.25, page no 354
+//Given
+lambda=5//wavelength
+Zo=200//Characteristic impedance
+Zo1=100//Zo'
+ZL=50+(%i*50)// load impedance
+l1=0.4*lambda
+l2=0.2*lambda
+Beta=(2*%pi/lambda)// phase difference
+Z2=Zo1*(((ZL*cos(Beta*l2))+(%i*Zo1*sin(Beta*l2)))/((Zo1*cos(Beta*l2))+(%i*ZL*sin(Beta*l2))))//I/p Impedance offered by I2toI1
+Z1=Zo*(((Z2*cos(Beta*l1))+(%i*Zo*sin(Beta*l1)))/((Zo*cos(Beta*l1))+(%i*Z2*sin(Beta*l1))))//I/p impedance
+mprintf('The sending end (Source end)impedance (Zl)is: '),disp(Z1)
+
+
+
diff --git a/1574/CH8/EX8.3/Result_of_Chapter_8_Ex8_3.JPG b/1574/CH8/EX8.3/Result_of_Chapter_8_Ex8_3.JPG Binary files differnew file mode 100755 index 000000000..86bddd978 --- /dev/null +++ b/1574/CH8/EX8.3/Result_of_Chapter_8_Ex8_3.JPG diff --git a/1574/CH8/EX8.3/TL_Ex_8_3.sce b/1574/CH8/EX8.3/TL_Ex_8_3.sce new file mode 100755 index 000000000..96148d604 --- /dev/null +++ b/1574/CH8/EX8.3/TL_Ex_8_3.sce @@ -0,0 +1,27 @@ +
+clc
+//Chapter8
+//Example8.3, page no 315
+//Given
+f=1600
+w=1000
+Zoc=2460*exp(%i*-86.5*%pi/180)// Open circuited Line impedance
+Zsc=21.5*exp(%i*14*%pi/180)// Short circuited Line impedance
+Zo=sqrt(Zoc*Zsc)// Characteristic impedance
+A=real(sqrt(Zsc/Zoc))// tan(a+ jBeta) = A + jB
+B=imag(sqrt(Zsc/Zoc))
+l=1/4
+alpha=(1/(4*l))*log(((1+A^2+B)^2)/(((1-A)^2)+B^2)) //Attenuation Constant
+Beta=(1/(2*l))*atan((2*B)/(1-A^2-B)) //phase constant
+
+//the tx-Line parameters
+R=real(Zo*complex(alpha,Beta))
+L=imag(Zo*complex(alpha,Beta))
+G=real(complex(alpha,Beta)/Zo)
+C=imag(complex(alpha,Beta)/Zo)
+mprintf('The Characteristic impedance:Zo= ') ,disp(Zo)
+mprintf('The value of Alpha= %f nepere/km\n',alpha)
+mprintf('The value of Beta= %f \n',Beta)
+mprintf('the tx-Line parameters are\nR= %f ohms\nL= %f mH\nG= %f umhos\nC= %f mF\n',R,L,G*1e6,C*1e3)
+
+// Note : There are some calculation errors in the solution presented in the book
diff --git a/1574/CH8/EX8.4/Result_of_Chapter_8_Ex8_4.JPG b/1574/CH8/EX8.4/Result_of_Chapter_8_Ex8_4.JPG Binary files differnew file mode 100755 index 000000000..df8873a62 --- /dev/null +++ b/1574/CH8/EX8.4/Result_of_Chapter_8_Ex8_4.JPG diff --git a/1574/CH8/EX8.4/TL_Ex_8_4.sce b/1574/CH8/EX8.4/TL_Ex_8_4.sce new file mode 100755 index 000000000..c2c702932 --- /dev/null +++ b/1574/CH8/EX8.4/TL_Ex_8_4.sce @@ -0,0 +1,18 @@ +clc
+//Chapter8
+//Example8.4, page no 316
+//Given
+d=0.7// distance between two insertions
+Ld_m= (80e-3)*(10/7)//Loading coil inductance
+//disp(Ld_m)
+Rd_m=100/7//Loading coil resistance
+//disp(Rd_m)
+R=20+Rd_m//Line resistance
+L=Ld_m// Line inductance
+C=0.05e-6// Line Capacitance
+alfa=0.5*R*sqrt(C/L)//Attenuation Constant
+//
+fc=(%pi*d*sqrt(L*C))^-1//cut off freq
+mprintf('The atenuation constant is %f nepers/mile\nThe Cut-off Freq is %d KHz',alfa,fc*1e-3)
+
+// Note : There are some calculation errors in the solution presented in the book
diff --git a/1574/CH8/EX8.5/Result_of_Chapter_8_Ex8_5.JPG b/1574/CH8/EX8.5/Result_of_Chapter_8_Ex8_5.JPG Binary files differnew file mode 100755 index 000000000..a01b7620c --- /dev/null +++ b/1574/CH8/EX8.5/Result_of_Chapter_8_Ex8_5.JPG diff --git a/1574/CH8/EX8.5/TL_Ex_8_5.sce b/1574/CH8/EX8.5/TL_Ex_8_5.sce new file mode 100755 index 000000000..5f66a438f --- /dev/null +++ b/1574/CH8/EX8.5/TL_Ex_8_5.sce @@ -0,0 +1,16 @@ +clc
+//Chapter8
+//Example8.5, page no 317
+//Given
+a=0.7//attenuation constant
+b=0.3//phase constant
+Gamma=a+(%i*b)//propagation constant
+l=0.5// half length of line( for midpoint)
+Vs=10// Excitation voltage
+V_mod=Vs*(%e^(-a*l))//Magnitude of the Vs
+
+phi=b*l*180/%pi//phase shift
+V=V_mod*(%e^(-%i*(phi*%pi/180)))//voltage at the mid point
+mprintf('the voltage at the mid point of the line is \n%f /_-%fdegrees Volts',V,phi)
+
+// Note : There are some calculation errors in the solution presented in the book
diff --git a/1574/CH8/EX8.6/Result_of_Chapter_8_Ex8_6.JPG b/1574/CH8/EX8.6/Result_of_Chapter_8_Ex8_6.JPG Binary files differnew file mode 100755 index 000000000..46c88e244 --- /dev/null +++ b/1574/CH8/EX8.6/Result_of_Chapter_8_Ex8_6.JPG diff --git a/1574/CH8/EX8.6/TL_Ex_8_6.sce b/1574/CH8/EX8.6/TL_Ex_8_6.sce new file mode 100755 index 000000000..47133d9fc --- /dev/null +++ b/1574/CH8/EX8.6/TL_Ex_8_6.sce @@ -0,0 +1,27 @@ +clc
+//Chapter8
+//Example8.6, page no 317
+//GivenR=0.01
+R=0.01,l=1e3
+L=1e-6
+G=1e-6
+C=0.001e-6
+f=1.59e3// operating freq
+w=2*%pi*f// angular freq
+//a
+Zo=sqrt((R+(%i*w*L))*0.35/(G+(%i*w*C)))//characteristic impedance
+[Z0r,Z0i]=polar(Zo)
+//b
+
+Beta=sqrt(0.5*(sqrt((((R^2)+(round(w^2)*(L^2)))*(round(G^2)+(round(w^2)*(C^2)))))-(round(R*G)-((w^2)*L*C))))//Phase constant
+
+v=w/Beta//phase velocity
+
+//c
+Alpha=sqrt(0.5*(sqrt((((R^2)+((w^2)*(L^2)))*((G^2)+((w^2)*(C^2)))))+((R*G)-((w^2)*L*C))))//attenuation constant
+Vs=1//Assumed for easeof calculation
+A=(Vs-(Vs*exp(-Alpha*l)))*100
+mprintf('The characteristic impedance Zo= %f /_%f \n',Z0r,Z0i*180/%pi)
+mprintf('The Phase velocity is: v= %3.2e m/sec\n Percent decrease in the voltage is %f%c',v,A,'%')
+
+// Note : There are some calculation errors in the solution presented in the book
diff --git a/1574/CH9/EX9.1/Aerials_Ex_9_1.sce b/1574/CH9/EX9.1/Aerials_Ex_9_1.sce new file mode 100755 index 000000000..5a71b56bb --- /dev/null +++ b/1574/CH9/EX9.1/Aerials_Ex_9_1.sce @@ -0,0 +1,8 @@ +clc
+//Chapter9
+//Example9.1, page no 397
+//Given
+D=90// directivity
+lambda=2// wavelength
+Ae=(D*(lambda^2))/(4*%pi)//effective aperture
+mprintf('The maximum effective aperture of the\n aerial is %f sq m',Ae)
diff --git a/1574/CH9/EX9.1/Result_of_Chapter_9_Ex9_1.JPG b/1574/CH9/EX9.1/Result_of_Chapter_9_Ex9_1.JPG Binary files differnew file mode 100755 index 000000000..f1f2c6518 --- /dev/null +++ b/1574/CH9/EX9.1/Result_of_Chapter_9_Ex9_1.JPG diff --git a/1574/CH9/EX9.2/Aerials_Ex_9_2.sce b/1574/CH9/EX9.2/Aerials_Ex_9_2.sce new file mode 100755 index 000000000..9a402a53a --- /dev/null +++ b/1574/CH9/EX9.2/Aerials_Ex_9_2.sce @@ -0,0 +1,9 @@ +clc
+//Chapter9
+//Example9.2, page no 397
+//Given
+n=10//no of aerial elements
+d=0.5//distance in terms of wavelength
+Beam_Width=2/(n*d)//
+Beam_Width_degrees=Beam_Width*180/%pi
+mprintf('Angular beam width is %f degrees\nBeamWidth is %f rad',Beam_Width_degrees,Beam_Width)
diff --git a/1574/CH9/EX9.2/Result_of_Chapter_9_Ex9_2.JPG b/1574/CH9/EX9.2/Result_of_Chapter_9_Ex9_2.JPG Binary files differnew file mode 100755 index 000000000..f9b7fc22f --- /dev/null +++ b/1574/CH9/EX9.2/Result_of_Chapter_9_Ex9_2.JPG diff --git a/1574/CH9/EX9.3/Aerials_Ex_9_3.sce b/1574/CH9/EX9.3/Aerials_Ex_9_3.sce new file mode 100755 index 000000000..caacba570 --- /dev/null +++ b/1574/CH9/EX9.3/Aerials_Ex_9_3.sce @@ -0,0 +1,11 @@ +clc
+//Chapter9
+//Example9.3, pageno 397
+//Given
+r=1//assume distance for ease of calculation
+//Pav(theta)=(1000/(3*%pi*r^2))*((sin(theta))^2)
+theta=0:0.1:%pi
+x0=0,x1=%pi
+Pt=(2000/(3*r^2))*integrate('(sin(theta))^3','theta',x0,x1)//Total power radiated
+mprintf('Total power radiated is %f watts',Pt)
+
diff --git a/1574/CH9/EX9.3/Result_of_Chapter_9_Ex9_3.JPG b/1574/CH9/EX9.3/Result_of_Chapter_9_Ex9_3.JPG Binary files differnew file mode 100755 index 000000000..01d4630ef --- /dev/null +++ b/1574/CH9/EX9.3/Result_of_Chapter_9_Ex9_3.JPG diff --git a/1574/CH9/EX9.4/Aerials_Ex_9_4.sce b/1574/CH9/EX9.4/Aerials_Ex_9_4.sce new file mode 100755 index 000000000..c3a9405e7 --- /dev/null +++ b/1574/CH9/EX9.4/Aerials_Ex_9_4.sce @@ -0,0 +1,16 @@ +clc
+//Chapter9
+//Example9.4, page no 398
+//Given
+dl=2// length of wire
+I=6//current in the wire
+f=1e6// operating freq
+r=30e3//distance at which field is to be calculated
+theta=90//right angles to the wire axis
+lambda=300// wavelength
+w=2*%pi*f//angular freq
+c=3e8,t=f^-1
+Phi=w*(t-(r/c))//Phase shift
+Erad=25.13e-5*cos(Phi)//Radiation electric field intensity
+H=Erad/(120*%pi)//Radiation magnetic field intensity
+mprintf('electric field intensity is %f mV/m \n magnetic field intensity is %f uA/m',Erad*1e3,H*1e6)
diff --git a/1574/CH9/EX9.4/Result_of_Chapter_9_Ex9_4.JPG b/1574/CH9/EX9.4/Result_of_Chapter_9_Ex9_4.JPG Binary files differnew file mode 100755 index 000000000..d36b636cf --- /dev/null +++ b/1574/CH9/EX9.4/Result_of_Chapter_9_Ex9_4.JPG diff --git a/1574/CH9/EX9.5/Aerials_Ex_9_5.sce b/1574/CH9/EX9.5/Aerials_Ex_9_5.sce new file mode 100755 index 000000000..fd70e13c7 --- /dev/null +++ b/1574/CH9/EX9.5/Aerials_Ex_9_5.sce @@ -0,0 +1,11 @@ +clc
+//Chapter9
+//Example9.5
+//Given
+//c
+Rr=73// radition resistance
+Vrms=10//RMS voltage of the signal
+Zin_mod=sqrt((73^2)+(42^2))//absolute input impedance
+Irms=Vrms/Zin_mod//RMS current
+Pt=(Irms^2)*Rr// Radiated power
+mprintf('The radiated power is %f watts',round(100*Pt)/100)
diff --git a/1574/CH9/EX9.5/Result_of_Chapter_9_Ex9_5.JPG b/1574/CH9/EX9.5/Result_of_Chapter_9_Ex9_5.JPG Binary files differnew file mode 100755 index 000000000..143ce7555 --- /dev/null +++ b/1574/CH9/EX9.5/Result_of_Chapter_9_Ex9_5.JPG diff --git a/1574/CH9/EX9.6/Aerials_Ex_9_6.sce b/1574/CH9/EX9.6/Aerials_Ex_9_6.sce new file mode 100755 index 000000000..474b49a25 --- /dev/null +++ b/1574/CH9/EX9.6/Aerials_Ex_9_6.sce @@ -0,0 +1,12 @@ +clc
+//Chapter9
+//Example9.6
+//Given
+//b
+c=3e8
+f=2e9//operating freq
+Ae=100//aperture area
+lambda=c/f// operating wavwlength
+D=((4*3.141*Ae)/(lambda^2))// Directivity
+mprintf('Ideal directive gain is %d',D)
+
diff --git a/1574/CH9/EX9.6/Result_of_Chapter_9_Ex9_6.JPG b/1574/CH9/EX9.6/Result_of_Chapter_9_Ex9_6.JPG Binary files differnew file mode 100755 index 000000000..4caeb4ce7 --- /dev/null +++ b/1574/CH9/EX9.6/Result_of_Chapter_9_Ex9_6.JPG diff --git a/1574/CH9/EX9.7/Aerials_Ex_9_7.sce b/1574/CH9/EX9.7/Aerials_Ex_9_7.sce new file mode 100755 index 000000000..a4ffd9960 --- /dev/null +++ b/1574/CH9/EX9.7/Aerials_Ex_9_7.sce @@ -0,0 +1,10 @@ +clc
+//Chapter9
+//Example9.7, pageno 400
+//Given
+//b
+n=10// no of aerial elements
+lambda_d=2//
+BeamWidth=2*lambda_d/n// Beamwidth
+mprintf('The angular width is %f degrees',BeamWidth)
+
diff --git a/1574/CH9/EX9.7/Result_of_Chapter_9_Ex9_7.JPG b/1574/CH9/EX9.7/Result_of_Chapter_9_Ex9_7.JPG Binary files differnew file mode 100755 index 000000000..e742f4e71 --- /dev/null +++ b/1574/CH9/EX9.7/Result_of_Chapter_9_Ex9_7.JPG diff --git a/1574/CH9/EX9.8/Aerials_Ex_9_8.sce b/1574/CH9/EX9.8/Aerials_Ex_9_8.sce new file mode 100755 index 000000000..1bcd672a4 --- /dev/null +++ b/1574/CH9/EX9.8/Aerials_Ex_9_8.sce @@ -0,0 +1,7 @@ +clc
+//Chapter9
+//Example9.8, page no 400
+//Given
+D1=1,D2=1.5*D1 // diameters of the new reflectors D1=1assumed for ease of calculation
+G_dbs=10*log10((D2/D1)^2)//Gain in dBs
+mprintf('Overall Gain is %f dBs',round(1000*G_dbs)/1000)
diff --git a/1574/CH9/EX9.8/Result_of_Chapter_9_Ex9_8.JPG b/1574/CH9/EX9.8/Result_of_Chapter_9_Ex9_8.JPG Binary files differnew file mode 100755 index 000000000..a20f8477f --- /dev/null +++ b/1574/CH9/EX9.8/Result_of_Chapter_9_Ex9_8.JPG diff --git a/1574/CH9/EX9.9/Aerials_Ex_9_9.sce b/1574/CH9/EX9.9/Aerials_Ex_9_9.sce new file mode 100755 index 000000000..a41c72f4e --- /dev/null +++ b/1574/CH9/EX9.9/Aerials_Ex_9_9.sce @@ -0,0 +1,13 @@ +clc
+//Chapter9
+//Example9.9
+//Given
+//b
+c=3e8
+f=800e3// operating freq
+dl=27//effective height
+lambda=c/f
+
+Rr=40*(3.142^2)*(dl/lambda)^2//Radiation Resistance
+mprintf('Radiation resistance is %f ohm',Rr)
+
diff --git a/1574/CH9/EX9.9/Result_of_Chapter_9_Ex9_9.JPG b/1574/CH9/EX9.9/Result_of_Chapter_9_Ex9_9.JPG Binary files differnew file mode 100755 index 000000000..07a61c9ac --- /dev/null +++ b/1574/CH9/EX9.9/Result_of_Chapter_9_Ex9_9.JPG |
