initial commit / add all books

16 files changed, 219 insertions, 0 deletions

diff --git a/2414/CH6/EX6.1/Ex6_1.sce b/2414/CH6/EX6.1/Ex6_1.sce
new file mode 100755
index 000000000..2607bd457
--- /dev/null
+++ b/2414/CH6/EX6.1/Ex6_1.sce
@@ -0,0 +1,11 @@
+clc;

+//page no 186

+//prob no. 6.1

+//All frequencies in kHz

+fc=1*10^3; //in kHz

+W=15;  

+DSBl=fc-W;  //lowest freq of DSB signal

+DSBh=fc+W;  //highest freq of DSB signal

+disp(DSBh,'to',DSBl,'(a)  The range of freq is from ');

+BT=2*W;

+disp(BT,'(b)  Transmission bandwidth is ');

diff --git a/2414/CH6/EX6.10/Ex6_10.sce b/2414/CH6/EX6.10/Ex6_10.sce
new file mode 100755
index 000000000..61e11d4bd
--- /dev/null
+++ b/2414/CH6/EX6.10/Ex6_10.sce
@@ -0,0 +1,9 @@
+clc;

+close();

+//page no 201

+//prob no. 6.10

+//All voltage in V

+Ratio=.5/2;  //  Ratio=Vmin/Vmax

+m=(1-Ratio)/(1+Ratio);   //modulation factor

+disp(m,'The modulation factor is ');

+disp(m*100,'The %age modulation is ');

diff --git a/2414/CH6/EX6.11/Ex6_11.sce b/2414/CH6/EX6.11/Ex6_11.sce
new file mode 100755
index 000000000..926d93da0
--- /dev/null
+++ b/2414/CH6/EX6.11/Ex6_11.sce
@@ -0,0 +1,17 @@
+clc;

+close();

+//page no 201

+//prob no. 6.11

+//All voltage in V

+function {As]=sideband_amplitude(m,A)

+    As=m*A/2;  //As:sideband amplitude

+               //m:modulation factor

+               //A:carrier amplitude

+endfunction

+A=10;

+m=0;

+disp(sideband_amplitude(m,A),'(a) For m=0, sideband amplitude is ');

+m=0.5;

+disp(sideband_amplitude(m,A),'(b) For m=0.5, sideband amplitude is ');

+m=1;

+disp(sideband_amplitude(m,A),'(c) For m=1, sideband amplitude is ');

diff --git a/2414/CH6/EX6.12/Ex6_12.sce b/2414/CH6/EX6.12/Ex6_12.sce
new file mode 100755
index 000000000..7432cfa9e
--- /dev/null
+++ b/2414/CH6/EX6.12/Ex6_12.sce
@@ -0,0 +1,15 @@
+clc;

+close();

+//page no 203

+//prob no. 6.12

+fc=455;  //in kHz

+Tc=(1/fc)*10^3;  //in micro sec

+disp('micro s',Tc,'(a)  The carrier period is');

+tau=10*Tc;  //in micro sec

+disp('micro s',tau,'The time constant is selected 10Tc:');

+C=0.01*10^-6;  //in F

+R=(tau*10^-6)/C;  //ohm

+disp('ohm',R,'R is determined');

+W=5;  //in kHz

+Tm=1/W*10^3;  //micro sec

+disp('micro sec',Tm,'The shortest modulation period Tm=');

diff --git a/2414/CH6/EX6.14/Ex6_14.sce b/2414/CH6/EX6.14/Ex6_14.sce
new file mode 100755
index 000000000..fc79a36de
--- /dev/null
+++ b/2414/CH6/EX6.14/Ex6_14.sce
@@ -0,0 +1,10 @@
+clc;

+close();

+//page no 208

+//prob no. 6.14

+A=200;  // in Volts

+R=50;   //in ohm

+P=A^2/(4*R);  //in W

+disp('W',P,'(a)   The sverage power is ');

+Pp=A^2/(2*R);  //in W

+disp('W',Pp,'(b)   The peak envelop power is ');

diff --git a/2414/CH6/EX6.15/Ex6_15.sce b/2414/CH6/EX6.15/Ex6_15.sce
new file mode 100755
index 000000000..7547dafd4
--- /dev/null
+++ b/2414/CH6/EX6.15/Ex6_15.sce
@@ -0,0 +1,10 @@
+clc;

+close();

+//page no 208

+//prob no. 6.15

+P=1000;  //in watts

+R=50;  //in ohm

+Vrms=sqrt(R*P);  //in V

+Irms=sqrt(P/R);  //in A

+disp('V',Vrms,'The unmodulated rms carrier voltage is ');

+disp('A',Irms,'The unmodulated rms carrier current is ');

diff --git a/2414/CH6/EX6.16/Ex6_16.sce b/2414/CH6/EX6.16/Ex6_16.sce
new file mode 100755
index 000000000..f8f27162d
--- /dev/null
+++ b/2414/CH6/EX6.16/Ex6_16.sce
@@ -0,0 +1,30 @@
+clc;

+close();

+//page no 209

+//prob no. 6.16

+//All power in Watts

+global('Pc')

+Pc=1000;

+funcprot(0)   //to avoid function warnings

+function [P]=avg_P(m)           //function for total average power

+    P=(1+(m^2/2))*Pc;

+endfunction

+function [Pp]=peak_P(m)          //function for peak power

+    Pp=(1+m)^2*Pc;

+endfunction

+function [Psb]=SB_P(m)          //function for SB power

+    Psb=avg_P(m)-Pc;

+endfunction

+function display(m)          //function for displaying table

+    table=[m*100 avg_P(m) peak_P(m) SB_P(m)];

+    disp(table);

+endfunction

+

+disp('Summary for the result is displayed in the table ');

+disp('Mod^n_%  Avg_Pwr  Peak_Pwr SB_Pwe');

+m=0;   //for m=0

+display(m);

+m=0.5;   //for m=0.5

+display(m);

+m=1;      //for m=1

+display(m);

diff --git a/2414/CH6/EX6.17/Ex6_17.sce b/2414/CH6/EX6.17/Ex6_17.sce
new file mode 100755
index 000000000..ce0757a33
--- /dev/null
+++ b/2414/CH6/EX6.17/Ex6_17.sce
@@ -0,0 +1,18 @@
+clc;

+close();

+//page no 210

+//prob no. 6.17

+//All power in Watts

+//All voltage in volts

+//All current in ampere

+R=50;   

+m=0.5;

+P=1125;  //for m=0.5

+Vrms=sqrt(R*P);

+Irms=sqrt(P/R);

+disp('A',Irms,'V',Vrms,'(a)  For m=0.5, Vrms and Irms are:');

+m=1;

+P=1500;  //For m=1

+Vrms=sqrt(R*P);

+Irms=sqrt(P/R);

+disp('A',Irms,'V',Vrms,'(b)  For m=1, Vrms and Irms are:');

diff --git a/2414/CH6/EX6.2/Ex6_2.sce b/2414/CH6/EX6.2/Ex6_2.sce
new file mode 100755
index 000000000..4d714ef64
--- /dev/null
+++ b/2414/CH6/EX6.2/Ex6_2.sce
@@ -0,0 +1,13 @@
+clc;

+close();

+clear();

+//page no 186

+//prob no. 6.2

+//All frequencies in kHz

+fi=250;  //input freq

+LSB=[fi-1;fi-3;fi-5];

+USB=[fi+1;fi+3;fi+5];

+disp(LSB,'and LSB:',USB,'(a)  The upper sideband and lower sideband ,USB:' );

+BT=2*5;

+disp(BT,'The net transmission bandwidth is ');

+

diff --git a/2414/CH6/EX6.3/Ex6_3.sce b/2414/CH6/EX6.3/Ex6_3.sce
new file mode 100755
index 000000000..9f7309ddf
--- /dev/null
+++ b/2414/CH6/EX6.3/Ex6_3.sce
@@ -0,0 +1,12 @@
+clc;

+//page no 190

+//prob no. 6.3

+//All frequencies in kHz

+fc=1*10^3; //in kHz

+W=15;  

+LSBl=fc-W;  //lowest freq of LSB

+USBh=fc+W;  //highest freq of USB

+disp(fc,'to',LSBl,'(a)  The range of freq(in kHz) for LSB is from ');

+disp(USBh,'to',fc,'(b)  The range of freq(in kHz) for USB is from ');

+BT=W;

+disp(BT,'(b)  Transmission bandwidth is ');

diff --git a/2414/CH6/EX6.4/Ex6_4.sce b/2414/CH6/EX6.4/Ex6_4.sce
new file mode 100755
index 000000000..5b2fffbd4
--- /dev/null
+++ b/2414/CH6/EX6.4/Ex6_4.sce
@@ -0,0 +1,13 @@
+clc;

+//page no 190

+//prob no. 6.4

+//All frequencies in kHz

+fi=250;  //input freq

+LSB=[fi-1 fi-3 fi-5];

+USB=[fi+1 fi+3 fi+5];

+disp(LSB,'(a)  For LSB transmission freq are' );

+disp(USB,'(b)  For USB transmission freq are' );

+W=5;

+BT=W;

+disp(BT,'(c)  The transmission bandwidth is ');

+

diff --git a/2414/CH6/EX6.5/Ex6_5.sce b/2414/CH6/EX6.5/Ex6_5.sce
new file mode 100755
index 000000000..6deb1a944
--- /dev/null
+++ b/2414/CH6/EX6.5/Ex6_5.sce
@@ -0,0 +1,13 @@
+clc;

+//page no 195

+//prob no. 6.5

+//All frequencies in kHz

+//refer Ex 6.4

+fi=250;  //input freq

+LSB=[fi-1 fi-3 fi-5];  //from Ex 6.4

+//

+fc=250;  //carrier freq

+f0sum=fc+LSB;

+f0diff=fc-LSB;

+disp(f0sum,f0diff,'(a)  The output frequencies (in kHz) are ');

+disp(f0diff,'(b)  At low pass filter,the actual frequencies (in kHz) are ');

diff --git a/2414/CH6/EX6.6/Ex6_6.sce b/2414/CH6/EX6.6/Ex6_6.sce
new file mode 100755
index 000000000..af6628a53
--- /dev/null
+++ b/2414/CH6/EX6.6/Ex6_6.sce
@@ -0,0 +1,13 @@
+clc;

+//page no 195

+//prob no. 6.6

+//All frequencies in kHz

+fi=250;  //input freq

+USB=[fi+1 fi+3 fi+5]; //from Ex 6.4

+//

+fc=250;  //carrier freq

+f0sum=fc+USB;

+f0diff=USB-fc;

+disp(f0sum,f0diff,'(a)  The output frequencies (in kHz) are ');

+disp(f0diff,'(b)  At low pass filter,the actual frequencies (in kHz) are ');

+

diff --git a/2414/CH6/EX6.7/Ex6_7.sce b/2414/CH6/EX6.7/Ex6_7.sce
new file mode 100755
index 000000000..051b6766b
--- /dev/null
+++ b/2414/CH6/EX6.7/Ex6_7.sce
@@ -0,0 +1,13 @@
+clc;

+//page no 195

+//prob no. 6.7

+//All frequencies in kHz

+//refer Ex 6.4

+fi=250;  //input freq

+LSB=[fi-1 fi-3 fi-5];  //from Ex 6.7

+//

+fc=250.1;  //carrier freq

+f0sum=fc+LSB;

+f0diff=fc-LSB;

+disp(f0sum,f0diff,'(a)  The output frequencies (in kHz) are ');

+disp(f0diff,'(b)  At low pass filter,the frequencies (in kHz) are ');

diff --git a/2414/CH6/EX6.8/Ex6_8.sce b/2414/CH6/EX6.8/Ex6_8.sce
new file mode 100755
index 000000000..056c00494
--- /dev/null
+++ b/2414/CH6/EX6.8/Ex6_8.sce
@@ -0,0 +1,12 @@
+clc;

+close();

+//page no 200

+//prob no. 6.8

+//All frequencies in kHz

+fc=250;  //carrier freq

+LSB=[fc-1 fc-3 fc-5];

+USB=[fc+1 fc+3 fc+5];

+disp(fc,'carrier:',USB,'USB:',LSB,'(a)  The spectrum contains following freq.LSB:' );

+W=5;

+BT=2*W;

+disp(BT,'The transmission bandwidth is ');

diff --git a/2414/CH6/EX6.9/Ex6_9.sce b/2414/CH6/EX6.9/Ex6_9.sce
new file mode 100755
index 000000000..1d4f1dc4b
--- /dev/null
+++ b/2414/CH6/EX6.9/Ex6_9.sce
@@ -0,0 +1,10 @@
+clc;

+close();

+//page no 200

+//prob no. 6.9

+//All voltage in V

+m=0.6;   //modulation factor

+A=100;   //peak carrier level (in V)

+Vmax=A*(1+m);

+Vmin=A*(1-m);

+disp(Vmin,'Vmin:',Vmax,'Vmax:','The maximum and minimum values of positive envelope is')