diff options
Diffstat (limited to '2863/CH2')
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);
|