initial commit / add all books

47 files changed, 483 insertions, 0 deletions

diff --git a/2863/CH2/EX2.1/ex2_1.sce b/2863/CH2/EX2.1/ex2_1.sce
new file mode 100755
index 000000000..2a4fc8a0f
--- /dev/null
+++ b/2863/CH2/EX2.1/ex2_1.sce
@@ -0,0 +1,11 @@
+//chapter 2

+//formula is Etheta=60*pi*I(dl/lambda)*(sin(theta)/r) where thetha=90

+printf("\n");

+r=200;

+printf("distance between points is %dm",r);

+lam=10;

+printf("\nthe wavelength is %dm",lam);

+idl=3*10^-4;

+printf("\nthe current element is %eA/m",idl);

+Etheta=60*3.14*3*10^-3/2;

+printf("\nEtheta is value is %eV/m",Etheta);

diff --git a/2863/CH2/EX2.10/ex2_10.sce b/2863/CH2/EX2.10/ex2_10.sce
new file mode 100755
index 000000000..2fede17f8
--- /dev/null
+++ b/2863/CH2/EX2.10/ex2_10.sce
@@ -0,0 +1,7 @@
+//chapter 2

+//Rrad=36.5ohm

+//Irms=Im/sqrt(2)

+printf("\n");

+Im=1.22;//on applying Kvl

+Pavg=36.5*(1.122/sqrt(2))^2;

+printf("the average power is %gW",Pavg);

diff --git a/2863/CH2/EX2.11/ex2_11.sce b/2863/CH2/EX2.11/ex2_11.sce
new file mode 100755
index 000000000..3dfdc4ac3
--- /dev/null
+++ b/2863/CH2/EX2.11/ex2_11.sce
@@ -0,0 +1,11 @@
+//chapter 2

+//Hphi=Im*dl*sin(theta)/(2*lamda*r);

+//for Hertzian Dipole

+printf("\n");

+Hphi=5*10^-6;

+lamda=1;//assume

+dl=0.04;

+Im=(5*10^-6)*2*(2*10^3)/(0.04);

+Irms=Im/(sqrt(2));

+Prad=80*(%pi)^2*(0.04)^2*(Irms)^2;

+printf("the radiated Power is %gW",Prad);

diff --git a/2863/CH2/EX2.12/ex2_12.sce b/2863/CH2/EX2.12/ex2_12.sce
new file mode 100755
index 000000000..760bfea9c
--- /dev/null
+++ b/2863/CH2/EX2.12/ex2_12.sce
@@ -0,0 +1,9 @@
+//chapter 2

+//For Half wave Dipole

+//Hphi=Im/(2*pi*r)*cos(pi/2*cos(theta)/sin(theta))

+//Rrad=73 ohm

+Hphi=5*10^-6;

+r=2*10^3;

+Im=(5*10^-6)*(4*(%pi)*10^3);

+Prad=73*(Im/sqrt(2))^2;

+printf("the radiated power is %gW",Prad);

diff --git a/2863/CH2/EX2.13/ex2_13.sce b/2863/CH2/EX2.13/ex2_13.sce
new file mode 100755
index 000000000..432b79d2a
--- /dev/null
+++ b/2863/CH2/EX2.13/ex2_13.sce
@@ -0,0 +1,8 @@
+//chapter 2

+//For quarter wave monopole

+//Rrad=36.5 ohm

+Im=20*(%pi)*10^-3;//from previous problem

+Prad=36.5*((20*(%pi)*10^-3)/sqrt(2))^2;

+printf("the radiated power is %gW",Prad);

+

+

diff --git a/2863/CH2/EX2.14/ex2_14.sce b/2863/CH2/EX2.14/ex2_14.sce
new file mode 100755
index 000000000..1eab49cfc
--- /dev/null
+++ b/2863/CH2/EX2.14/ex2_14.sce
@@ -0,0 +1,7 @@
+//chapter 2

+//lamda=velocity/frequency

+printf("\n");

+frequency=50*10^6;

+lamda=3*10^8/frequency;

+leng=lamda/2;

+printf("the length of the dipole antenna is %dm",leng);

diff --git a/2863/CH2/EX2.15/ex2_15.sce b/2863/CH2/EX2.15/ex2_15.sce
new file mode 100755
index 000000000..0a18b4550
--- /dev/null
+++ b/2863/CH2/EX2.15/ex2_15.sce
@@ -0,0 +1,7 @@
+//chapter 2

+//Etheta=60*Im*cos(pi/2*cos(theta)/sin(theta))/r

+printf("\n");

+r=500*10^3;

+Etheta=10*10^-6;

+Im=Etheta*r/60;

+printf("the current through the dipole is %gA",Im);

diff --git a/2863/CH2/EX2.16/ex2_16.sce b/2863/CH2/EX2.16/ex2_16.sce
new file mode 100755
index 000000000..f69618bd7
--- /dev/null
+++ b/2863/CH2/EX2.16/ex2_16.sce
@@ -0,0 +1,4 @@
+//chapter 2

+//for half wave dipole

+Pavg=0.5*73*0.0833;//Rrad*Irms^2;Rrad=73 ohm

+printf("the radiated power is %gW",Pavg);

diff --git a/2863/CH2/EX2.17/ex2_17.sce b/2863/CH2/EX2.17/ex2_17.sce
new file mode 100755
index 000000000..e6e56cd70
--- /dev/null
+++ b/2863/CH2/EX2.17/ex2_17.sce
@@ -0,0 +1,16 @@
+//chapter 2

+//efficiency=Prad/Pinput

+//efficiency=0.95,Umax=0.5W/sr,D=Umax/[Prad/4*pi];

+//part (i)

+printf("\n");

+Pinput=0.4;

+n=0.95;

+Umax=0.5;

+Prad=n*Pinput;

+printf("the radiated power is %gW",Prad);

+D=0.5/(0.38/(4*(%pi)));

+printf("\nthe directivity is %g",D);

+//part(ii)

+Prad=0.3;

+D=0.5/(0.3/(4*(%pi)));

+printf("\nthe directivity is%g",D);

diff --git a/2863/CH2/EX2.18/ex2_18.sce b/2863/CH2/EX2.18/ex2_18.sce
new file mode 100755
index 000000000..02aa846e8
--- /dev/null
+++ b/2863/CH2/EX2.18/ex2_18.sce
@@ -0,0 +1,16 @@
+//chapter 2

+//for half wave dipole

+//on applying kvl

+printf("\n");

+Im=0.0768;

+Rrad=73;

+r=10^4;

+Prad=0.5*Rrad*Im^2;//Rrad=73 for half wave dipole

+printf("the radiated power is %gW",Prad);

+Gd=1.6405//on taking antilog of Gd(in db)

+E4=Prad/(4*(%pi)*r^2);

+E3=1.6405*E4;

+E2=E3*240*(%pi);

+printf("\n%g",E2);

+E=sqrt(E2);

+printf("\nthe field value is %gV/m",E);

diff --git a/2863/CH2/EX2.19/ex2_19.sce b/2863/CH2/EX2.19/ex2_19.sce
new file mode 100755
index 000000000..1c232ade4
--- /dev/null
+++ b/2863/CH2/EX2.19/ex2_19.sce
@@ -0,0 +1,12 @@
+//chapter 2

+//frequency=100 MHz

+printf("\n");

+frequency=100*10^6;

+lamda=3*10^8/frequency;

+leng=lamda/2;

+printf("the length of antenna is %gm",leng);

+Rrad=73;

+Im=25;

+Prad=Rrad*0.5*Im^2;

+printf("\nthe power radiated is %gW",Prad);

+

diff --git a/2863/CH2/EX2.2/ex2_2.sce b/2863/CH2/EX2.2/ex2_2.sce
new file mode 100755
index 000000000..f5c293b4e
--- /dev/null
+++ b/2863/CH2/EX2.2/ex2_2.sce
@@ -0,0 +1,14 @@
+//chapter 2

+//formula etta=Prad/Prad+Ploss=Rrad/Rrad+Rloss

+printf("\n");

+Rrad=72;

+printf("radiation resistance is %dohm",Rrad);

+Rloss=8;

+ettar=72/(72+8);

+printf("\nthe Loss resistance is %dohm",Rloss);

+Gpmax=30;

+printf("\nthe power gain of antenna is %d",Gpmax);

+Gdmax=Gpmax/ettar;

+Gdmax1=10 *log10(Gdmax);//in db

+printf("\nthe Directivity gain is %g",Gdmax);

+printf("\nthe Directivity gain in db is given by %edb",Gdmax1);

diff --git a/2863/CH2/EX2.20/ex2_20.sce b/2863/CH2/EX2.20/ex2_20.sce
new file mode 100755
index 000000000..8a7cb5177
--- /dev/null
+++ b/2863/CH2/EX2.20/ex2_20.sce
@@ -0,0 +1,6 @@
+//chapter 2

+printf("\n");

+Im=15;

+Prad=6*10^3;

+Rrad=Prad/(Im/sqrt(2))^2;

+printf("the radiation resistance is %gohm",Rrad);

diff --git a/2863/CH2/EX2.21/ex2_21.sce b/2863/CH2/EX2.21/ex2_21.sce
new file mode 100755
index 000000000..b9c263b25
--- /dev/null
+++ b/2863/CH2/EX2.21/ex2_21.sce
@@ -0,0 +1,13 @@
+//chapter 2

+//Gpmax=n*Gdmax

+//N=Rrad/Rrad+Rloss

+printf("\n");

+Rrad=72;

+Rloss=8;

+n=Rrad/(Rrad+Rloss);

+printf("the radiation efficiency is given by %g",n);

+Gpmax=15.8489;//antilog(Gpmax/10);Gpmax=12db

+Gdmax=Gpmax/n;

+Gdmaxdb=10*log10(Gdmax);

+printf("\nthe directive gain is %g",Gdmax);

+printf("\nthe directive gain in db is %g",Gdmaxdb);

diff --git a/2863/CH2/EX2.22/ex2_22.sce b/2863/CH2/EX2.22/ex2_22.sce
new file mode 100755
index 000000000..35336dad6
--- /dev/null
+++ b/2863/CH2/EX2.22/ex2_22.sce
@@ -0,0 +1,12 @@
+//chapter 2

+printf("\n");

+dl=1/40;

+Im=125;

+Rloss=1;

+Rrad=80*(%pi)^2*(dl)^2;

+printf("the Radiation resistance is %gohm",Rrad);

+Irms=Im/sqrt(2);

+Prad=Rrad*(Irms)^2;

+printf("\nthe Power radiated is %gW",Prad);

+n=Rrad/(Rrad+Rloss);

+printf("\nthe radiation efficiency is %g",n);

diff --git a/2863/CH2/EX2.23/ex2_23.sce b/2863/CH2/EX2.23/ex2_23.sce
new file mode 100755
index 000000000..730c89e27
--- /dev/null
+++ b/2863/CH2/EX2.23/ex2_23.sce
@@ -0,0 +1,8 @@
+//chapter 2

+//|E|^2=sqrt(60*Gd*Prad)/r;

+printf("\n");

+r=10^4;

+Gd=3.1622//antilog(5db/10)

+Prad=20*10^3;

+E=sqrt(60*Gd*Prad)/r;

+printf("the Electric field value is %gV/m",E);

diff --git a/2863/CH2/EX2.24/ex2_24.sce b/2863/CH2/EX2.24/ex2_24.sce
new file mode 100755
index 000000000..5ef7ed92e
--- /dev/null
+++ b/2863/CH2/EX2.24/ex2_24.sce
@@ -0,0 +1,8 @@
+//chapter 2

+//Gd=antilog(12db/10)

+printf("\n");

+Gd=15.85;

+Prad=5*10^3;

+r=3*10^3;

+E=sqrt(60*Gd*Prad)/r;

+printf("the electric field is %gV/m",E);

diff --git a/2863/CH2/EX2.25/ex2_25.sce b/2863/CH2/EX2.25/ex2_25.sce
new file mode 100755
index 000000000..cca174521
--- /dev/null
+++ b/2863/CH2/EX2.25/ex2_25.sce
@@ -0,0 +1,16 @@
+//chapter 2

+//R=l*sqrt(pi*F*Uo*Sigma)/Sigma*2*pi*r

+printf("\n");

+L=2;

+r=1*10^-3;

+f=2*10^6;

+u=4*(%pi)*10^-7;

+sig=5.7*10^6;

+R=sqrt((%pi)*2*10^6*4*(%pi)*10^-7/(5.7*10^6))*L/(2*(%pi)*10^-3);

+printf("the resistance of hertzian dipole is %gohm",R);

+dl=2

+frequency=2*10^6;

+lamda=3*10^8/(frequency);

+Rrad=80*(%pi)^2*(dl/lamda)^2;

+n=Rrad/(Rrad+R);

+printf("\nthe radiation efficiency is %gohm",n);

diff --git a/2863/CH2/EX2.26/ex2_26.sce b/2863/CH2/EX2.26/ex2_26.sce
new file mode 100755
index 000000000..def44f366
--- /dev/null
+++ b/2863/CH2/EX2.26/ex2_26.sce
@@ -0,0 +1,8 @@
+//chapter 2

+//half wave dipole

+printf("\n");

+dl=1/15;//assume lamda=1;

+Rloss=1.5;

+Rrad=80*(%pi)^2*(1/15)^2;

+n=Rrad/(Rrad+Rloss);

+printf("the radiation efficiency is %g",n);

diff --git a/2863/CH2/EX2.27/ex2_27.sce b/2863/CH2/EX2.27/ex2_27.sce
new file mode 100755
index 000000000..f289cd05d
--- /dev/null
+++ b/2863/CH2/EX2.27/ex2_27.sce
@@ -0,0 +1,7 @@
+//chapter 2

+//Leff=Voc/E

+printf("\n");

+Leff=8;

+E=0.01;

+Voc=Leff*E;

+printf("the voltage induced is %gV",Voc);

diff --git a/2863/CH2/EX2.28/ex2_28.sce b/2863/CH2/EX2.28/ex2_28.sce
new file mode 100755
index 000000000..6f73abee3
--- /dev/null
+++ b/2863/CH2/EX2.28/ex2_28.sce
@@ -0,0 +1,10 @@
+//chapter 2

+//Antenna Bandwidth=Operating Frequency/Q;

+printf("\n");

+Q=30;

+f=10*10^6;

+f0=f*Q;

+c=3*10^8;

+lamda=c/f0;

+leng=lamda/2;

+printf("the length of the half wave dipole is %gm",leng);

diff --git a/2863/CH2/EX2.29/ex2_29.sce b/2863/CH2/EX2.29/ex2_29.sce
new file mode 100755
index 000000000..7de666ba3
--- /dev/null
+++ b/2863/CH2/EX2.29/ex2_29.sce
@@ -0,0 +1,19 @@
+//chapter 2

+//part a

+printf("\n");

+c=3*10^8;

+f=10^9;

+lamda=c/f;

+printf("the wavelength is %gm",lamda);

+//part b

+dl=3*10^-2;

+Rrad=80*(%pi)^2*(dl/lamda)^2;

+printf("\nthe radiation resistance is %gohm",Rrad);

+//part c

+Gdmax=1.5//Gd=1.5sin^2(theta),where theta=90 for short dipole

+n=0.6;

+Gp=n*Gdmax;

+printf("\nthe antenna gain is given by %g",Gp);

+//part d

+Ae=1.5*(lamda)^2/(4*(%pi));

+printf("\nthe effective aperture is %gm^2",Ae);

diff --git a/2863/CH2/EX2.3/ex2_3.sce b/2863/CH2/EX2.3/ex2_3.sce
new file mode 100755
index 000000000..dccc61fa9
--- /dev/null
+++ b/2863/CH2/EX2.3/ex2_3.sce
@@ -0,0 +1,7 @@
+//chapter 2

+//Rrad=80*pi^2*(dl/lambda)^2

+printf("\n");

+dl=0.1;

+printf("the elemental length is given by %g",dl);

+Rrad=80*(%pi)^2*(0.1)^2;

+printf("\nthe radiation resistance is %gohm",Rrad);

diff --git a/2863/CH2/EX2.30/ex2_30.sce b/2863/CH2/EX2.30/ex2_30.sce
new file mode 100755
index 000000000..7c34120b9
--- /dev/null
+++ b/2863/CH2/EX2.30/ex2_30.sce
@@ -0,0 +1,13 @@
+//chapter 2

+//P=k(Ta+Tr)B

+printf("\n");

+Ta=15;

+Tr=20;

+b=4*10^6;

+//part a

+k=1.38*10^-23;

+Pb=k*(Ta+Tr);

+printf("the power per unit bandwidth is %gW/hz",Pb);

+//part b

+P=Pb*b;

+printf("\nthe available noise power is %gW",P);

diff --git a/2863/CH2/EX2.31/ex2_31.sce b/2863/CH2/EX2.31/ex2_31.sce
new file mode 100755
index 000000000..7fd3678f9
--- /dev/null
+++ b/2863/CH2/EX2.31/ex2_31.sce
@@ -0,0 +1,7 @@
+//chapter 2

+//Q=Fo/delf;

+printf("\n");

+f0=30*10^6;

+f=600*10^3;

+Q=f0/f;

+printf("the tuning factor Q is %d",Q);

diff --git a/2863/CH2/EX2.32/ex2_32.sce b/2863/CH2/EX2.32/ex2_32.sce
new file mode 100755
index 000000000..370ba8a47
--- /dev/null
+++ b/2863/CH2/EX2.32/ex2_32.sce
@@ -0,0 +1,17 @@
+//chapter 2

+//part a

+printf("\n");

+c=3*10^8;

+frequency=20*10^9;

+lamda=c/frequency;

+printf("the wavelength is %gm",lamda);

+//part b

+//Ae=G*(lamda)^2/4*pi

+r=0.61;

+Aep=(%pi)*r^2;

+printf("\nthe effective physical aperture is %gm^2",Aep);

+Ae=0.55*Aep;

+Ga=(Ae*4*(%pi))/(lamda)^2;

+Gdb=10*log10(Ga);

+printf("\nthe antenna gain is %g",Ga);

+printf("\nthe antenna gain in db is %gdb",Gdb);

diff --git a/2863/CH2/EX2.33/ex2_33.sce b/2863/CH2/EX2.33/ex2_33.sce
new file mode 100755
index 000000000..98005d652
--- /dev/null
+++ b/2863/CH2/EX2.33/ex2_33.sce
@@ -0,0 +1,7 @@
+//chapter 2

+printf("\n");

+f=30*10^6;

+c=3*10^8;

+lamda=c/f;

+leng=lamda/2;

+printf("the length of half wave dipole is %dm",leng);

diff --git a/2863/CH2/EX2.34/ex2_34.sce b/2863/CH2/EX2.34/ex2_34.sce
new file mode 100755
index 000000000..b7952974e
--- /dev/null
+++ b/2863/CH2/EX2.34/ex2_34.sce
@@ -0,0 +1,12 @@
+//chapter 2

+printf("\n");

+Rrad=72;

+Rloss=8;

+Gp=16;

+n=Rrad/(Rrad+Rloss);

+printf("the radiation efficiency is %g",n);

+Gp=16;

+Gd=Gp/n;

+Gddb=10*log10(Gd);

+printf("\nthe directive gain is %g",Gd);

+printf("\nthe directive gain in db is %gdb",Gddb);

diff --git a/2863/CH2/EX2.35/ex2_35.sce b/2863/CH2/EX2.35/ex2_35.sce
new file mode 100755
index 000000000..b88273964
--- /dev/null
+++ b/2863/CH2/EX2.35/ex2_35.sce
@@ -0,0 +1,11 @@
+//chapter 2

+printf("\n");

+Gt=1.5;

+Gr=1.5;

+d=10;

+Pt=15;

+f=10^9;

+c=3*10^8;

+lamda=c/f;

+Pr=Pt*Gt*Gr*(lamda/(4*(%pi)*d))^2;

+printf("the radiated power is %gW",Pr);

diff --git a/2863/CH2/EX2.36/ex2_36.sce b/2863/CH2/EX2.36/ex2_36.sce
new file mode 100755
index 000000000..365906821
--- /dev/null
+++ b/2863/CH2/EX2.36/ex2_36.sce
@@ -0,0 +1,13 @@
+//chapter 2

+printf("\n");

+f=2*10^9;

+c=3*10^8;

+lamda=c/f;

+printf("the wavelngth is %gm",lamda);

+//part b

+Pr=10^-12;

+Gt=200;

+Gr=200;

+d=3*10^6;

+Pt=((4*(%pi)*d)/lamda)^2*(Pr/(Gt*Gr));

+printf("\nthe transmitted power is %gW",Pt);

diff --git a/2863/CH2/EX2.37/ex2_37.sce b/2863/CH2/EX2.37/ex2_37.sce
new file mode 100755
index 000000000..bcaf36978
--- /dev/null
+++ b/2863/CH2/EX2.37/ex2_37.sce
@@ -0,0 +1,16 @@
+//chapter 2

+//part a

+printf("\n");

+c=3*10^8;

+f=100*10^6;

+lamda=c/f;

+printf("the wavelength is %dm",lamda);

+//part b

+Gt=15.8489//antilog(12/10)

+Pt=10^-1;

+Pr=10^-9;

+d=384.4*10^6;//238857*1609.35

+Gr=(((4*(%pi)*d)/lamda)^2*Pr)/(Pt*Gt);

+printf("\nthe gain of receiver is %g",Gr);

+Grdb=10*log10(Gr);

+printf("\nthe gain of receiver in db is %gdb",Grdb);

diff --git a/2863/CH2/EX2.38/ex2_38.sce b/2863/CH2/EX2.38/ex2_38.sce
new file mode 100755
index 000000000..1f82edbcd
--- /dev/null
+++ b/2863/CH2/EX2.38/ex2_38.sce
@@ -0,0 +1,8 @@
+//chapter 2

+printf("\n");

+Q=15;

+lamda=1;

+c=3*10^8;

+f0=c/lamda;

+Bw=f0/Q;

+printf("the bandwidth of antenna is %eHz",Bw);

diff --git a/2863/CH2/EX2.39/ex2_39.sce b/2863/CH2/EX2.39/ex2_39.sce
new file mode 100755
index 000000000..7df8b8028
--- /dev/null
+++ b/2863/CH2/EX2.39/ex2_39.sce
@@ -0,0 +1,8 @@
+//chapter 2

+//Aemax=Gdmax*lamda^2/4*pi;

+printf("\n");

+Aemax=0.13;//assume lamda=1 for half wave dipole

+Gdmax=4*(%pi)*Aemax;

+printf("the maximum directive gain is %g",Gdmax);

+Gdmaxdb=10*log10(Gdmax);

+printf("\nthe maximum directive gian in db is %gdb",Gdmaxdb);

diff --git a/2863/CH2/EX2.4/ex2_4.sce b/2863/CH2/EX2.4/ex2_4.sce
new file mode 100755
index 000000000..8e096cee7
--- /dev/null
+++ b/2863/CH2/EX2.4/ex2_4.sce
@@ -0,0 +1,13 @@
+//chapter 2

+//Prad=80*(pi)^2*(dl/lambda)*(Irms)^2;

+printf("\n");

+frequency=100*10^6;

+lamda=(3*10^8)/(100*10^6);//lamda=c/f;

+printf("the wavelength is %dm",lamda);

+Prad=100;

+printf("\nthe Radiated power is %dW",Prad);

+dl=0.01;

+printf("\nthe elemental length is %gm",dl);

+Irms2=(3/0.01)^2*100/(80*(%pi)^2);

+Irms=sqrt(Irms2);

+printf("\nthe Irms current is %gA",Irms)

diff --git a/2863/CH2/EX2.40/ex2_40.sce b/2863/CH2/EX2.40/ex2_40.sce
new file mode 100755
index 000000000..8d2148d99
--- /dev/null
+++ b/2863/CH2/EX2.40/ex2_40.sce
@@ -0,0 +1,7 @@
+//chapter 2

+printf("\n");

+Rloss=1;

+Ra=73;

+Im=14.166*10^-3;//on applying kvl

+Prad=(Im/sqrt(2))^2*(Rloss+Ra);

+printf("the radiated power is %gW",Prad);

diff --git a/2863/CH2/EX2.41/ex2_41.sce b/2863/CH2/EX2.41/ex2_41.sce
new file mode 100755
index 000000000..d6cb30b59
--- /dev/null
+++ b/2863/CH2/EX2.41/ex2_41.sce
@@ -0,0 +1,15 @@
+//chapter 2

+//Etheta=n0Im/2pir*cos(pi/2 cos(theta)/sin(theta))

+printf("\n");

+Pin=100;

+n=0.5;

+r=500;

+Prad=n*Pin;

+printf("the radiated power is %gW",Prad);

+Rrad=73;//for half wave dipole

+Im=sqrt((2*Prad)/Rrad);

+n0=120*(%pi);

+Etheta=(cos((%pi/2)*cos(%pi/3))/sin(%pi/3))*n0*(Im/(2*(%pi)*r));

+printf("\nthe electric field is given by %gV/m",Etheta);

+Pavg=(0.5*(Etheta)^2)/(n0);

+printf("\nthe average power is %gW",Pavg);

diff --git a/2863/CH2/EX2.42/ex2_42.sce b/2863/CH2/EX2.42/ex2_42.sce
new file mode 100755
index 000000000..3c51a2f8f
--- /dev/null
+++ b/2863/CH2/EX2.42/ex2_42.sce
@@ -0,0 +1,12 @@
+//chapter 2

+//may june 2008

+printf("\n");

+Pt=15

+Aet=2.5;

+Aer=0.5;

+d=15*10^3;

+f=5*10^9;

+c=3*10^8;

+lamda=c/f;

+Pr=(Pt*Aet*Aer)/((d)^2*(lamda)^2);

+printf("the radiated power is %gW",Pr);

diff --git a/2863/CH2/EX2.43/ex2_43.sce b/2863/CH2/EX2.43/ex2_43.sce
new file mode 100755
index 000000000..a0eb67002
--- /dev/null
+++ b/2863/CH2/EX2.43/ex2_43.sce
@@ -0,0 +1,10 @@
+//chapter 2

+//may june 2009

+printf("\n");

+n=10;

+d=0.25;

+lamda=1;//assume

+Gdmax=4*((n*d)/lamda);

+printf("\nthe maximum directive gain is %g",Gdmax);

+Gdmaxdb=10*log10(Gdmax);

+printf("\nthe maximum directive gain in db is %gdb",Gdmaxdb);

diff --git a/2863/CH2/EX2.44/ex2_44.sce b/2863/CH2/EX2.44/ex2_44.sce
new file mode 100755
index 000000000..a2240d328
--- /dev/null
+++ b/2863/CH2/EX2.44/ex2_44.sce
@@ -0,0 +1,7 @@
+//chapter 2

+//nov-dec 2012

+printf("\n");

+Rrad=65;

+Rloss=10;

+n=Rrad/(Rrad+Rloss);

+printf("the radiation efficiency is %g",n);

diff --git a/2863/CH2/EX2.45/ex2_45.sce b/2863/CH2/EX2.45/ex2_45.sce
new file mode 100755
index 000000000..44ea7f054
--- /dev/null
+++ b/2863/CH2/EX2.45/ex2_45.sce
@@ -0,0 +1,11 @@
+//chapter 2

+//may june 2013

+//Aem=Gdmax*lamda^2/4*pi;

+printf("\n");

+Gdmax=1.5;//for half wave dipole

+f=10^9;

+c=3*10^8;

+lamda=c/f;

+Aem=(Gdmax*(lamda)^2)/(4*(%pi));

+printf("the effective aperture is %gm^2",Aem);

+ 

diff --git a/2863/CH2/EX2.46/ex2_46.sce b/2863/CH2/EX2.46/ex2_46.sce
new file mode 100755
index 000000000..cddc54eb0
--- /dev/null
+++ b/2863/CH2/EX2.46/ex2_46.sce
@@ -0,0 +1,6 @@
+//chapter 2

+printf("\n");

+Pdes=3*10^3;

+Popp=500;

+FBR=Pdes/Popp;

+printf("the front to back ratio is %d",FBR);

diff --git a/2863/CH2/EX2.47/ex2_47.sce b/2863/CH2/EX2.47/ex2_47.sce
new file mode 100755
index 000000000..708e57099
--- /dev/null
+++ b/2863/CH2/EX2.47/ex2_47.sce
@@ -0,0 +1,5 @@
+//chapter 2

+printf("\n");

+dl=1/50;

+Rr=80*(%pi)^2*(dl)^2;

+printf("the radiation resistance is %gohm",Rr);

diff --git a/2863/CH2/EX2.5/ex2_6.sce b/2863/CH2/EX2.5/ex2_6.sce
new file mode 100755
index 000000000..ff61d18ef
--- /dev/null
+++ b/2863/CH2/EX2.5/ex2_6.sce
@@ -0,0 +1,10 @@
+//chapter 2

+//Pavg=0.5*|E|^2/etta0,Prmax=2*10^-6W,Aem=Prmax/Pavg

+printf("\n");

+E=50*10^-3;

+Etta0=120*(%pi);

+printf("the electric field is %eV/m",E);

+Pavg=0.5*(50*10^-3)^2/(120*(%pi));

+printf("\nthe average power is %gW",Pavg);

+Aem=(2*10^-6)/(3.315*10^-6);

+printf("\nthe maximum effective aperture area is %gm^2",Aem);

diff --git a/2863/CH2/EX2.6/ex2_6.sce b/2863/CH2/EX2.6/ex2_6.sce
new file mode 100755
index 000000000..ff61d18ef
--- /dev/null
+++ b/2863/CH2/EX2.6/ex2_6.sce
@@ -0,0 +1,10 @@
+//chapter 2

+//Pavg=0.5*|E|^2/etta0,Prmax=2*10^-6W,Aem=Prmax/Pavg

+printf("\n");

+E=50*10^-3;

+Etta0=120*(%pi);

+printf("the electric field is %eV/m",E);

+Pavg=0.5*(50*10^-3)^2/(120*(%pi));

+printf("\nthe average power is %gW",Pavg);

+Aem=(2*10^-6)/(3.315*10^-6);

+printf("\nthe maximum effective aperture area is %gm^2",Aem);

diff --git a/2863/CH2/EX2.7/ex2_7.sce b/2863/CH2/EX2.7/ex2_7.sce
new file mode 100755
index 000000000..458ca91f1
--- /dev/null
+++ b/2863/CH2/EX2.7/ex2_7.sce
@@ -0,0 +1,10 @@
+//chapter 2

+//GT=GR=Antilog[GT or Gr(in db)/10]=31.622*10^3

+//1 mile=1609.35 m

+printf("\n");

+freq=3*10^9;

+d=48280.5;//30miles*1609.35

+lamda=(3*10^8)/(3*10^9);

+printf("the wavelength is %gm",lamda);

+Pt=(10^-3)*((4*(%pi)*48280.5)/0.1)^2*(1/(31.622*10^3)^2);//Pr=Pt(GR*GT*(lamda/4*pi*d)^2),Pr=1mW

+printf("\nthe transmitter power is %gW",Pt);

diff --git a/2863/CH2/EX2.8/ex2_8.sce b/2863/CH2/EX2.8/ex2_8.sce
new file mode 100755
index 000000000..9a73b0146
--- /dev/null
+++ b/2863/CH2/EX2.8/ex2_8.sce
@@ -0,0 +1,7 @@
+//chapter 2

+//T0=290k,room temperature

+printf("\n");

+F=1.2882;

+printf("given F is given by %g",F);

+Te=(1.2882-1)*290;//Te=(F-1)T0

+printf("\neffective noise temperature is %gK",Te);

diff --git a/2863/CH2/EX2.9/ex2_9.sce b/2863/CH2/EX2.9/ex2_9.sce
new file mode 100755
index 000000000..2a27c7906
--- /dev/null
+++ b/2863/CH2/EX2.9/ex2_9.sce
@@ -0,0 +1,12 @@
+//chapter 2

+//Etheta=60Im/r*(cos(pi/2cos(theta))/sin(theta));

+//theta=90

+//Pavg=Rrad*Irms^2;

+//Irms=Im/sqrt(2)

+printf("\n");

+Im=100*10^-3;

+r=100

+Etheta=(60*10^-3);

+H=(60*10^-3)/(120*(%pi));

+Pavg=73*(10^-1/sqrt(2))^2;//Rrad=73ohm for half wave dipole

+printf("the average power is %gW",Pavg);