From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 2414/CH6/EX6.1/Ex6_1.sce   | 11 +++++++++++
 2414/CH6/EX6.10/Ex6_10.sce |  9 +++++++++
 2414/CH6/EX6.11/Ex6_11.sce | 17 +++++++++++++++++
 2414/CH6/EX6.12/Ex6_12.sce | 15 +++++++++++++++
 2414/CH6/EX6.14/Ex6_14.sce | 10 ++++++++++
 2414/CH6/EX6.15/Ex6_15.sce | 10 ++++++++++
 2414/CH6/EX6.16/Ex6_16.sce | 30 ++++++++++++++++++++++++++++++
 2414/CH6/EX6.17/Ex6_17.sce | 18 ++++++++++++++++++
 2414/CH6/EX6.2/Ex6_2.sce   | 13 +++++++++++++
 2414/CH6/EX6.3/Ex6_3.sce   | 12 ++++++++++++
 2414/CH6/EX6.4/Ex6_4.sce   | 13 +++++++++++++
 2414/CH6/EX6.5/Ex6_5.sce   | 13 +++++++++++++
 2414/CH6/EX6.6/Ex6_6.sce   | 13 +++++++++++++
 2414/CH6/EX6.7/Ex6_7.sce   | 13 +++++++++++++
 2414/CH6/EX6.8/Ex6_8.sce   | 12 ++++++++++++
 2414/CH6/EX6.9/Ex6_9.sce   | 10 ++++++++++
 16 files changed, 219 insertions(+)
 create mode 100755 2414/CH6/EX6.1/Ex6_1.sce
 create mode 100755 2414/CH6/EX6.10/Ex6_10.sce
 create mode 100755 2414/CH6/EX6.11/Ex6_11.sce
 create mode 100755 2414/CH6/EX6.12/Ex6_12.sce
 create mode 100755 2414/CH6/EX6.14/Ex6_14.sce
 create mode 100755 2414/CH6/EX6.15/Ex6_15.sce
 create mode 100755 2414/CH6/EX6.16/Ex6_16.sce
 create mode 100755 2414/CH6/EX6.17/Ex6_17.sce
 create mode 100755 2414/CH6/EX6.2/Ex6_2.sce
 create mode 100755 2414/CH6/EX6.3/Ex6_3.sce
 create mode 100755 2414/CH6/EX6.4/Ex6_4.sce
 create mode 100755 2414/CH6/EX6.5/Ex6_5.sce
 create mode 100755 2414/CH6/EX6.6/Ex6_6.sce
 create mode 100755 2414/CH6/EX6.7/Ex6_7.sce
 create mode 100755 2414/CH6/EX6.8/Ex6_8.sce
 create mode 100755 2414/CH6/EX6.9/Ex6_9.sce

(limited to '2414/CH6')

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')
-- 
cgit