summaryrefslogtreecommitdiff
path: root/1409/CH2
diff options
context:
space:
mode:
Diffstat (limited to '1409/CH2')
-rw-r--r--1409/CH2/EX2.1/2_1.sce14
-rw-r--r--1409/CH2/EX2.11/2_11.sce8
-rw-r--r--1409/CH2/EX2.12/2_12.sce9
-rw-r--r--1409/CH2/EX2.13/2_13.sce20
-rw-r--r--1409/CH2/EX2.14/2_14.sce12
-rw-r--r--1409/CH2/EX2.15/2_15.sce12
-rw-r--r--1409/CH2/EX2.16/2_16.sce22
-rw-r--r--1409/CH2/EX2.18/2_18.sce8
-rw-r--r--1409/CH2/EX2.19/2_19.sce9
-rw-r--r--1409/CH2/EX2.20/2_20.sce8
-rw-r--r--1409/CH2/EX2.21/2_21.sce13
-rw-r--r--1409/CH2/EX2.22/2_22.sce20
-rw-r--r--1409/CH2/EX2.23/2_23.sce22
-rw-r--r--1409/CH2/EX2.24/2_24.sce12
-rw-r--r--1409/CH2/EX2.26/2_26.sce12
-rw-r--r--1409/CH2/EX2.27/2_27.sce9
-rw-r--r--1409/CH2/EX2.3/2_3.sce23
-rw-r--r--1409/CH2/EX2.30/2_30.sce10
-rw-r--r--1409/CH2/EX2.4/2_4.sce8
-rw-r--r--1409/CH2/EX2.5/2_5.sce15
-rw-r--r--1409/CH2/EX2.6/2_6.sce9
-rw-r--r--1409/CH2/EX2.7/2_7.sce8
-rw-r--r--1409/CH2/EX2.8/2_8.sce9
-rw-r--r--1409/CH2/EX2.9/2_9.sce17
24 files changed, 309 insertions, 0 deletions
diff --git a/1409/CH2/EX2.1/2_1.sce b/1409/CH2/EX2.1/2_1.sce
new file mode 100644
index 000000000..cedc95b5a
--- /dev/null
+++ b/1409/CH2/EX2.1/2_1.sce
@@ -0,0 +1,14 @@
+clc;
+//page 2-5
+//Example 2.1
+//The value of inductor is 40*10^(-6) Henry and the value of capacitor is 12*10^(-9) Farad. Given frequency is 5*10^3 Hz
+L=40*10^(-6);
+C=12*10^(-9);
+fm=5000;
+fc=1/(2*%pi*sqrt(L*C));
+disp(+'kHz',fc/10^3,'fc=');
+disp(+'kHz',(fc+fm)/10^3,'Upper Sideband frequency is ');
+disp(+'kHz',(fc-fm)/10^3,'Loweer Sideband frequency is ');
+fusb=234.72037;
+flsb=224.72037;
+disp(+'kHz',fusb-flsb,'Bandwidth is ');
diff --git a/1409/CH2/EX2.11/2_11.sce b/1409/CH2/EX2.11/2_11.sce
new file mode 100644
index 000000000..9e034b369
--- /dev/null
+++ b/1409/CH2/EX2.11/2_11.sce
@@ -0,0 +1,8 @@
+clc;
+//page no:2-26
+//Example-2.11
+//Given radiated power is 50kW
+Pc=50;
+u=0.85;
+ptotal=Pc*(1+(u^2/2));
+disp(+'kW',ptotal,'Radiated power is ');
diff --git a/1409/CH2/EX2.12/2_12.sce b/1409/CH2/EX2.12/2_12.sce
new file mode 100644
index 000000000..903043dfe
--- /dev/null
+++ b/1409/CH2/EX2.12/2_12.sce
@@ -0,0 +1,9 @@
+clc;
+//Page no:2-26
+//Example-2.12
+//Given modulation percentage is 75 and power is 10kW
+//we know that ptotal=pc*(1+(u^2/2))
+ptotal=10;
+u=0.75;
+pc=ptotal/(1+(u^2/2));
+disp(+'kW',pc,'Carrier power is ');
diff --git a/1409/CH2/EX2.13/2_13.sce b/1409/CH2/EX2.13/2_13.sce
new file mode 100644
index 000000000..494cc973a
--- /dev/null
+++ b/1409/CH2/EX2.13/2_13.sce
@@ -0,0 +1,20 @@
+clc;
+//page no:2-26
+//Example-2.13
+//Goven carrier frequency is 1000kHz
+fc=1000000;
+fm1=300;
+fm2=800;
+fm3=1000;
+fusb1=(fc+fm1)/1000;
+disp(+'kHz',fusb1,'fusb1 is ');
+flsb1=(fc-fm1)/1000;
+disp(+'kHz',flsb1,'flsb1 is ');
+fusb2=(fc+fm2)/1000;
+disp(+'kHz',fusb2,'fusb2 is ');
+flsb2=(fc-fm2)/1000;
+disp(+'kHz',flsb2,'flsb2 is ');
+fusb3=(fc+fm3)/1000;
+disp(+'kHz',fusb3,'fusb3 is ');
+flsb3=(fc-fm3)/1000;
+disp(+'kHz',flsb3,'flsb3 is ');
diff --git a/1409/CH2/EX2.14/2_14.sce b/1409/CH2/EX2.14/2_14.sce
new file mode 100644
index 000000000..b2de0d29a
--- /dev/null
+++ b/1409/CH2/EX2.14/2_14.sce
@@ -0,0 +1,12 @@
+clc;
+//page no:2-27
+//Example:2.14
+//Given carrier power is 360W and two modulation percentages are 55 and 65
+u1=0.55;
+u2=0.65;
+ut=sqrt(u1^2+u2^2);
+disp(ut,'ut=');
+pc=300;
+Ut=0.85;
+Psb=(pc*[Ut^2])/2;
+disp(+'W',Psb,'Total sideband power is');
diff --git a/1409/CH2/EX2.15/2_15.sce b/1409/CH2/EX2.15/2_15.sce
new file mode 100644
index 000000000..4e7f1ff55
--- /dev/null
+++ b/1409/CH2/EX2.15/2_15.sce
@@ -0,0 +1,12 @@
+clc;
+//page no:2-27
+//Exmaple-2.15
+//Given modulation index is 0.5 and antenna current is 12A
+u=0.5;
+It=12;
+Ic=It/sqrt(1+(u^2/2));
+disp(+'A',Ic,'Ic=');
+U=0.9;
+Ic=11.31;
+It=Ic*sqrt(1+(U^2/2));
+disp(+'A',It,'Antenna current is ');
diff --git a/1409/CH2/EX2.16/2_16.sce b/1409/CH2/EX2.16/2_16.sce
new file mode 100644
index 000000000..108f633ec
--- /dev/null
+++ b/1409/CH2/EX2.16/2_16.sce
@@ -0,0 +1,22 @@
+clc;
+//page no:2-28
+//Example-2.16
+//Given output current of 60% modulated wave is 1.5A.
+It=1.5;
+u=0.6;
+Ic=It/sqrt(1+(u^2/2));
+disp(+'A',Ic,'Ic=' );
+u1=0.6;
+u2=0.7;
+ut=sqrt(u1^2+u2^2);
+disp(ut,'ut=' );
+//Now current rise with modulation index 0.922 is calculated
+u3=0.922;
+Ic1=1.38;
+It=Ic1*sqrt(1+(u3^2/2));
+disp(+'A',It,'It=' );
+//Ptotal=Pc+(Pc*u^2/4)+(Pc*u^2/4);
+//Perceentage of power saving is to be calculated if the carrisideband and one of the sideband are suppressed
+//P=(Pc+(Pc*u3^2/4))/(Pc+(Pc*u3^2/4)+(Pc*u3^2/4))*100;
+P=(1+(u3^2/4))/(1+(u3^2/4)+(u3^2/4))*100;
+disp(+'%', P, 'Percentage Power Saving=');
diff --git a/1409/CH2/EX2.18/2_18.sce b/1409/CH2/EX2.18/2_18.sce
new file mode 100644
index 000000000..5fdcb1ee2
--- /dev/null
+++ b/1409/CH2/EX2.18/2_18.sce
@@ -0,0 +1,8 @@
+clc;
+//Page No:2-30
+//Example-2.18
+//Given maximum amplitude value is 15V and minimum value is 5V
+Amax=15;
+Amin=5;
+u=(Amax-Amin)/(Amax+Amin);
+disp(u,'u=');
diff --git a/1409/CH2/EX2.19/2_19.sce b/1409/CH2/EX2.19/2_19.sce
new file mode 100644
index 000000000..30b72cebd
--- /dev/null
+++ b/1409/CH2/EX2.19/2_19.sce
@@ -0,0 +1,9 @@
+clc;
+//page no:2-30
+//Example-2.19
+//Given modulation index increases by 20%
+//we know that u=sqrt(2*[(It/Ic)^2-1])
+//Let It/Ic denoted as I
+I=1.2;
+u=sqrt(2*[(I)^2-1]);
+disp(u,'u=' );
diff --git a/1409/CH2/EX2.20/2_20.sce b/1409/CH2/EX2.20/2_20.sce
new file mode 100644
index 000000000..a830ec4ba
--- /dev/null
+++ b/1409/CH2/EX2.20/2_20.sce
@@ -0,0 +1,8 @@
+clc;
+//Page no:2-31
+//Example-2.20
+L1=5;
+L2=2;
+u=(L1-L2)/(L1+L2);
+disp(u,'u= ');
+
diff --git a/1409/CH2/EX2.21/2_21.sce b/1409/CH2/EX2.21/2_21.sce
new file mode 100644
index 000000000..ccc759bb3
--- /dev/null
+++ b/1409/CH2/EX2.21/2_21.sce
@@ -0,0 +1,13 @@
+clc;
+//Page no:2-31
+//Example-2.21
+//Given antenna current is 12A when only carrier is sent. It is increased to 15A when carrier is modulated by 1kHz sine wave
+It=15;
+Ic=12;
+u=sqrt(2*[(It/Ic)^2-1]);
+disp(u,'u=');
+u1=u*100;
+disp(+'%',u1,'i.e');
+u2=0.7;
+Itot=Ic*sqrt(1+(u2^2/2));
+disp(+'Amp',Itot,'It=');
diff --git a/1409/CH2/EX2.22/2_22.sce b/1409/CH2/EX2.22/2_22.sce
new file mode 100644
index 000000000..8c823ecbf
--- /dev/null
+++ b/1409/CH2/EX2.22/2_22.sce
@@ -0,0 +1,20 @@
+clc;
+//Page no:2-31
+//Example-2.22
+//There are two antennas, therefore power delivered by each antenna is Pt=I^2*R
+//Pt'=I^2'*R and Pt'=Pt/2
+//I^2*R/2=I^2'*R
+//I^2'=I^2/2=2
+//I'=sqrt(2)A
+//Let I' is denoted by I1
+//Total current required for two antennas is given as
+I1=sqrt(2);
+Itotal=I1*2;
+Itot=2;
+u=0.6;
+//Itot=Ic*sqrt(1+(u^2/2))
+Ic=Itot/sqrt(1+(u^2/2));
+disp(Ic,'Ic=');
+//Keeping Ic constant we calculate modulation index to get Itotal=2*sqrt(2)
+u1=sqrt([(Itotal/Ic)^2-1]*2);
+disp(u1,'u=');
diff --git a/1409/CH2/EX2.23/2_23.sce b/1409/CH2/EX2.23/2_23.sce
new file mode 100644
index 000000000..f37400518
--- /dev/null
+++ b/1409/CH2/EX2.23/2_23.sce
@@ -0,0 +1,22 @@
+clc;
+//Page No:2-32
+//Exmaple-2.23
+//Power required for double sideband with full carrier (AM wave) transmission is given by
+//PDSBFC=Pc*(1+(u^2/2))
+//for u=1
+//Lets assume Pc=1
+Pc=1;
+u=1;
+PDSBFC=1.5*Pc;
+//Power required for single suppressed carrier transmission is given by PSSB=(Pc*u^2)/4
+//for u=1
+PSSB=0.25*Pc;
+Psaving=([PDSBFC-PSSB]/PDSBFC)*100;
+disp(+'%',Psaving,'% Power saving when u=1 is');
+//for u=0.5
+u1=0.5;
+//PDSBFC=Pc*[1+(0.25/2)]
+PDSBFC1=1.125*Pc;
+PSSB1=0.0625*Pc;
+Psaving1=([PDSBFC1-PSSB1]/PDSBFC1)*100;
+disp(+'%',Psaving1,'% Power saving when u=0.5 is');
diff --git a/1409/CH2/EX2.24/2_24.sce b/1409/CH2/EX2.24/2_24.sce
new file mode 100644
index 000000000..2281e0fd9
--- /dev/null
+++ b/1409/CH2/EX2.24/2_24.sce
@@ -0,0 +1,12 @@
+clc;
+//Page no:2-33
+//Example:2.24
+//given fc+fm=6.854 MHz
+//fc-fm=6.824 MHz
+fc=13.678/2;
+disp(+'MHz',fc,'fc=');
+//Amplitude(sideband)=(u*Ac)/2;
+Amplitudesideband=50;
+u=0.4;
+Ac=(Amplitudesideband*2)/u;
+disp(+'V',Ac,'Ac=');
diff --git a/1409/CH2/EX2.26/2_26.sce b/1409/CH2/EX2.26/2_26.sce
new file mode 100644
index 000000000..6e2da35ac
--- /dev/null
+++ b/1409/CH2/EX2.26/2_26.sce
@@ -0,0 +1,12 @@
+clc;
+//Page no:2-34
+//Example-2.26
+//Given carrier power=400W and modulation index=0.75
+Pc=400;
+u=0.75;
+PDSBFC=Pc*(1+(u^2/2));
+PDSBSC=(Pc*u^2)/2;
+PSSB=(Pc*u^2)/4;
+disp(+'W',PDSBFC,'PDSBFC=');
+disp(+'W',PDSBSC,'PDSBSC=');
+disp(+'W',PSSB,'PSSB=');
diff --git a/1409/CH2/EX2.27/2_27.sce b/1409/CH2/EX2.27/2_27.sce
new file mode 100644
index 000000000..871e0357d
--- /dev/null
+++ b/1409/CH2/EX2.27/2_27.sce
@@ -0,0 +1,9 @@
+clc;
+//Page no:2-34
+//Example-2.27
+u=0.75;
+//PDSBFC=Pc*(1+(u^2/2))
+PDSBFC=Pc*(1+(u^2/2));
+PSSB=(Pc*u^2)/4;
+Psaving=((PDSBFC-PSSB)/PDSBFC)*100;
+disp(+'%',Psaving,'Percentage power saving=');
diff --git a/1409/CH2/EX2.3/2_3.sce b/1409/CH2/EX2.3/2_3.sce
new file mode 100644
index 000000000..e2fdc81f6
--- /dev/null
+++ b/1409/CH2/EX2.3/2_3.sce
@@ -0,0 +1,23 @@
+clc;
+//page 2-10
+//Example 2.3
+//assume modulation index=0.2, given frequency signal is 10*sin(2*%pi*500*t) and given carrier signal is 50*sin(2*%pi*10^5)
+//Given
+wm=2*%pi*500;
+fm=500;
+wc=2*%pi*10^5;
+fc=100000
+disp(+'Hz',fc+fm,'Upper sideband frequency is ');
+disp(+'Hz',fc-fm,'Lower sideband frequency is ');
+Ec=50;
+mu=0.2;
+disp(+'V',(mu*Ec)/2,'Amplitude of upper and lower sidebands is ')
+fusb=100500;
+flsb=99500;
+disp(+'Hz',fusb-flsb, 'Bandwidth is ');
+//given load=600 ohms
+//from carrier signal we know that Ac=50
+Ac=50;
+R=600;
+ptotal=(Ac^2/(2*R))*(1+(mu^2/2));
+disp(+'watts',ptotal,'Total power delivered is ');
diff --git a/1409/CH2/EX2.30/2_30.sce b/1409/CH2/EX2.30/2_30.sce
new file mode 100644
index 000000000..538c88f3b
--- /dev/null
+++ b/1409/CH2/EX2.30/2_30.sce
@@ -0,0 +1,10 @@
+clc;
+//Page no:2-39
+//Example-2.30
+Am=20;
+Ac=50;
+u=0.75;
+fm=1;
+fc=50;
+//we know the equation for AM wave is Ac*[1+u*cos(2*%pi*t)]*cos(2*%pi*fc*t)
+disp("s(t)=50[1+0.75*cos(2*%pi*t)]*cos(2*%pi*50*t)");
diff --git a/1409/CH2/EX2.4/2_4.sce b/1409/CH2/EX2.4/2_4.sce
new file mode 100644
index 000000000..346a87ebc
--- /dev/null
+++ b/1409/CH2/EX2.4/2_4.sce
@@ -0,0 +1,8 @@
+clc;
+//page no 2-11
+//example: 2.4
+//Given carrier power=400 watt and modulation depth as 80%
+u=0.8;
+Pc=400;
+ptotal=Pc*(1+(u^2/2));
+disp(+'watts',ptotal, 'Total power delivered is ')
diff --git a/1409/CH2/EX2.5/2_5.sce b/1409/CH2/EX2.5/2_5.sce
new file mode 100644
index 000000000..0f2e1e31f
--- /dev/null
+++ b/1409/CH2/EX2.5/2_5.sce
@@ -0,0 +1,15 @@
+clc;
+//page no:2-12
+//Example 2.5
+//Given power= 20 kilowatts and modulation % =75
+Ptotal=20;
+u=0.75;
+ptotal=Pc*(1+(u^2/2));
+Pc=Ptotal/(1+(u^2/2));
+disp(+'kW',Pc,'Carrier Power is ');
+Pc=15.6;
+Psb=Pc*(u^2/4);
+disp(+'kW',Psb,'Sideband power is ');
+//As the power in both sidebands is equal
+disp(+'kW',Psb,'Upper Sideband power is ');
+disp(+'kW',Psb,'Lower Sideband power is ');
diff --git a/1409/CH2/EX2.6/2_6.sce b/1409/CH2/EX2.6/2_6.sce
new file mode 100644
index 000000000..a972f55a5
--- /dev/null
+++ b/1409/CH2/EX2.6/2_6.sce
@@ -0,0 +1,9 @@
+clc;
+//page no: 2-14
+//Example-2.6
+//Given Total antenna current is 5A, and modulation index is 0.6
+Itotal=5;
+u=0.6;
+//Itotal=Ic*sqrt(1+(u^2/2));
+Ic=Itotal/sqrt(1+(u^2/2));
+disp(+'A',Ic,'Antenna current when only carrier is sent is ');
diff --git a/1409/CH2/EX2.7/2_7.sce b/1409/CH2/EX2.7/2_7.sce
new file mode 100644
index 000000000..080e5a75e
--- /dev/null
+++ b/1409/CH2/EX2.7/2_7.sce
@@ -0,0 +1,8 @@
+clc;
+//page no: 2.7
+//Example-2.7
+//Given that Itotal=1.15*Ic
+Itotal=1.15*Ic;
+u=sqrt(2*[(Itotal/Ic)^2-1]);
+disp(u,'Modulation index is ');
+
diff --git a/1409/CH2/EX2.8/2_8.sce b/1409/CH2/EX2.8/2_8.sce
new file mode 100644
index 000000000..e420f749f
--- /dev/null
+++ b/1409/CH2/EX2.8/2_8.sce
@@ -0,0 +1,9 @@
+//page no:2-17
+//Example:2.8
+clc;
+//given modulation indices are 0.6, 0.3 and 0.4
+u1=0.6;
+u2=0.3;
+u3=0.4;
+ut=sqrt(u1^2+u2^2+u3^2);
+disp(ut,'Total Modulation index is ');
diff --git a/1409/CH2/EX2.9/2_9.sce b/1409/CH2/EX2.9/2_9.sce
new file mode 100644
index 000000000..95cea753d
--- /dev/null
+++ b/1409/CH2/EX2.9/2_9.sce
@@ -0,0 +1,17 @@
+clc;
+//Page no:2-17
+//Example-2.9
+//power is 10kW with carrier unmodulated and 11.8kW with carrier sinusoidally modulated
+ptotal=11.8;
+pc=10;
+u=sqrt(2*[(ptotal/pc)-1]);
+disp(u,'Modulation index is ');
+//with 30% modulation of another modulation signal
+u1=0.6;
+u2=0.3;
+ut=sqrt(u1^2+u2^2);
+disp(ut,'Total modulation index');
+//rounding ut to 0.67
+ut1=0.67;
+PTotal=pc*(1+(ut1^2/2));
+disp(+'kW',PTotal,'Total radiated power is ');
generated by cgit (git 2.34.1) at 2024-12-20 07:43:47 +0000