diff options
Diffstat (limited to '25/CH8')
| -rwxr-xr-x | 25/CH8/EX8.1/8_1.sce | 19 | ||||
| -rwxr-xr-x | 25/CH8/EX8.10/8_10.sce | 5 | ||||
| -rwxr-xr-x | 25/CH8/EX8.11/8_11.sce | 9 | ||||
| -rwxr-xr-x | 25/CH8/EX8.2/8_2.sce | 7 | ||||
| -rwxr-xr-x | 25/CH8/EX8.3/8_3.sce | 9 | ||||
| -rwxr-xr-x | 25/CH8/EX8.4/8_4.sce | 18 | ||||
| -rwxr-xr-x | 25/CH8/EX8.5/8_5.sce | 5 | ||||
| -rwxr-xr-x | 25/CH8/EX8.6/8_6.sce | 13 | ||||
| -rwxr-xr-x | 25/CH8/EX8.7/8_7.sce | 13 | ||||
| -rwxr-xr-x | 25/CH8/EX8.8/8_8.sce | 20 | ||||
| -rwxr-xr-x | 25/CH8/EX8.9/8_9.sce | 8 |
11 files changed, 126 insertions, 0 deletions
diff --git a/25/CH8/EX8.1/8_1.sce b/25/CH8/EX8.1/8_1.sce new file mode 100755 index 000000000..481eca96d --- /dev/null +++ b/25/CH8/EX8.1/8_1.sce @@ -0,0 +1,19 @@ +// example:-8.1,page no.-392.
+// program to compute the reflection coefficients seen looking in to the output port.
+// as the power is divided in to 2:1 ratio. and Pin=(1/2)*Vo^2/Zo;
+// so,P1=(1/3)*Pin;and P2=(2/3)*Pin ............(i)
+Zo=50;
+Z1=3*Zo; // from above condition.............(i)
+Z2=(3/2)*Zo;
+Zin=parallel_impedence(Z1,Z2); // input impedence to the junction.
+if Zin==Zo
+ disp("input is matched to the 50 ohm sources")
+else
+ disp("not matched")
+end
+Zin1=parallel_impedence(Zo,Z2); // looking in to the 150 ohm source.
+Zin2=parallel_impedence(Zo,Z1); // looking in to the 75 ohm source.
+tao1=(Zin1-Z1)/(Zin1+Z1);
+tao2=(Zin2-Z2)/(Zin2+Z2);
+disp(tao1,'reflection coefficient looking at 150 ohm line = ')
+disp(tao2,'reflection coefficient looking at 75 ohm line = ')
\ No newline at end of file diff --git a/25/CH8/EX8.10/8_10.sce b/25/CH8/EX8.10/8_10.sce new file mode 100755 index 000000000..a79e17d0d --- /dev/null +++ b/25/CH8/EX8.10/8_10.sce @@ -0,0 +1,5 @@ +// example:-8.10,page no.-440.
+// design a 180 deg. ring hybrid for a 50 ohm system impedence.
+Zo=50;
+Z=sqrt(2)*Zo;
+disp(Z,'the characteristic impedence of the ring transmission line in ohm is = ')
\ No newline at end of file diff --git a/25/CH8/EX8.11/8_11.sce b/25/CH8/EX8.11/8_11.sce new file mode 100755 index 000000000..4e39571d3 --- /dev/null +++ b/25/CH8/EX8.11/8_11.sce @@ -0,0 +1,9 @@ +// example:-8.11,page no.-444.
+// calculate the even and odd-mode characteristic impedences for a tapered coupled line 180 deg. hybrid for a 3 db coupling ratio and a 50 ohm characteristic impedence.
+alpha=0.707;bta=0.707;Zo=50;
+k=(1-alpha)/(1+alpha);
+Zoe=Zo/k;
+Zoo=k*Zo;
+disp(Zoo,'Zoo = ')
+disp(Zoe,'at (Z=L) the characteristic impedences of the coupled line must be = ')
+disp('at Z=0,there will be no coupling')
\ No newline at end of file diff --git a/25/CH8/EX8.2/8_2.sce b/25/CH8/EX8.2/8_2.sce new file mode 100755 index 000000000..e792650f8 --- /dev/null +++ b/25/CH8/EX8.2/8_2.sce @@ -0,0 +1,7 @@ +//example:-8.2,page no.-398.
+// program to design an equi-split wilkinson power divider for 50 ohm system impedence.
+Zo=50;
+Z=sqrt(2)*Zo; // impedence of quarter wave transmission line.
+R=2*Zo; // shunt resistor.
+disp(R,'the shunt resistance value should be in ohm = ')
+disp(Z,'the quarter wave transmission line in the divide should have a characteristic impedence in ohm = ')
\ No newline at end of file diff --git a/25/CH8/EX8.3/8_3.sce b/25/CH8/EX8.3/8_3.sce new file mode 100755 index 000000000..e26687161 --- /dev/null +++ b/25/CH8/EX8.3/8_3.sce @@ -0,0 +1,9 @@ +// example:-8.3,page no.-404.
+// program to design bethe-hole coupler for x-band wave guide.
+f=9*10^9;C=20;a=0.02286;b=0.01016;Ko=188.5;B=129;Z10=550.9;P10=4.22*10^-7;lamdao=0.0333;uo=4*%pi*10^-7;eo=8.854*10^-12;w=2*%pi*f;
+s=(a/%pi)*asin(lamdao/sqrt(2*(lamdao^2-a^2)))*10^3;
+// a=10*b;// as C=20db; // take x=a/b; so x=10;
+ro=(P10/((10*w)*((((2*eo/3)+(4*uo)/(3*Z10^2))*0.944)-((4*%pi^2*uo*0.056)/(3*B^2*a^2*Z10^2)))))^(1/3)*10^3;
+disp(s,'the aperture position in mm = ')
+disp(ro,'the aperture size in mm = ')
+disp("NOTE:-the above shown results completes the design of the betha hole coupler.")
\ No newline at end of file diff --git a/25/CH8/EX8.4/8_4.sce b/25/CH8/EX8.4/8_4.sce new file mode 100755 index 000000000..2eb40cc17 --- /dev/null +++ b/25/CH8/EX8.4/8_4.sce @@ -0,0 +1,18 @@ +//example:-8.4,page no.-410.
+// program to design a four hole chebysev coupler in x-band wave guide using round aperture located at s=a/4.
+a=0.02286;b=0.01016;lamdao=0.0333;ko=188.5;bta=129;Z10=550.9;P10=4.22*10^-7;f=9*10^9;no=377;N=3;
+s=a/4;
+kf=((2*ko)/(3*no*P10))*((sin(%pi*s/a)^2)-(2*(bta^2)/(ko^2))*((sin(%pi*s/a)^2)+((%pi^2)/((bta^2)*(a^2)))*(cos(%pi*s/a)^2)));
+kf=abs(kf)
+kb=((2*ko)/(3*no*P10))*((sin(%pi*s/a)^2)+(2*(bta^2)/(ko^2))*((sin(%pi*s/a)^2)-((%pi^2)/((bta^2)*(a^2)))*(cos(%pi*s/a)^2)));
+kb=abs(kb)
+x=cosh(acosh(100)/3); // x=sec(thetam).
+thetam=asec(x)*180/%pi; // so,thetam=70.6 and 109.4 at the band edge.
+k=10^(-171.94/20);
+ro=(((k/2)^(1/3))*x)*1000;
+r1=(1.5*k*((x^3)-x))^(1/3)*1000;
+disp(kf,'kf = ')
+disp(kb,'kb = ')
+disp(thetam,'thetam in degree = ')
+disp(ro,'ro in mm = ')
+disp(r1,'r1 in mm = ')
\ No newline at end of file diff --git a/25/CH8/EX8.5/8_5.sce b/25/CH8/EX8.5/8_5.sce new file mode 100755 index 000000000..348176741 --- /dev/null +++ b/25/CH8/EX8.5/8_5.sce @@ -0,0 +1,5 @@ +// example:-8.5,page no.-415.
+// program to design a 50 ohm branch-line quadrature hybrid junction.
+Zo=50;
+Z=Zo/sqrt(2);
+disp(Z,'the branch line impedence in ohm will be = ')
\ No newline at end of file diff --git a/25/CH8/EX8.6/8_6.sce b/25/CH8/EX8.6/8_6.sce new file mode 100755 index 000000000..af2537483 --- /dev/null +++ b/25/CH8/EX8.6/8_6.sce @@ -0,0 +1,13 @@ +// example:-8.6,page no.-419.
+// program to determine the even and odd mode characteristic impedence.
+syms C A d W C11 C12 Ce Co v eo er s b uo Zoe Zoo eipsila;
+C=A*eipsila/d;
+C11=(eo*er*W)/((b-s)/2)+(eo*er*W)/((b+s)/2);
+C12=er*eo*W/s;
+Ce==C11;
+Co=C11+2*C12
+v=1/sqrt(er*eo*uo);
+Zoe=1/(v*C11); // as Ce=C11;
+Zoo=1/(v*Co);
+disp(Zoe,'Zoe = ')
+disp(Zoo,'zoo = ')
\ No newline at end of file diff --git a/25/CH8/EX8.7/8_7.sce b/25/CH8/EX8.7/8_7.sce new file mode 100755 index 000000000..a2ea4f1dc --- /dev/null +++ b/25/CH8/EX8.7/8_7.sce @@ -0,0 +1,13 @@ +// example:-8.7,page no.-425.
+//design a 20 db single section coupled line coupler in stripline.
+C=10^(-20/20);f=3*10^9;eipsila=2.56;Zo=50;b=0.00158;
+Zoe=Zo*sqrt((1+C)/(1-C));
+Zoo=Zo*sqrt((1-C)/(1+C));
+Zoe=eipsila*Zoe;
+Zoo=eipsila*Zoo;
+x=0.72; //x=w/b.
+y=0.34; // y=s/b.
+w=0.72*b*100;
+s=0.34*b*100;
+disp(w,'conductor width in cm = ')
+disp(s,'conductor seperation in cm = ')
\ No newline at end of file diff --git a/25/CH8/EX8.8/8_8.sce b/25/CH8/EX8.8/8_8.sce new file mode 100755 index 000000000..44d801c0c --- /dev/null +++ b/25/CH8/EX8.8/8_8.sce @@ -0,0 +1,20 @@ +// example:-8.8,page no.-428.
+// design a three section 20 db coupler with a binomial response.
+Zo=50;f=3*10^9;N=3;
+syms C C1 C2 theta;
+C=10^(-20/20);
+disp("for a maximally flat response for a three=section coupler doupble derivative of C will be zero.")
+C1=0.0125;C2=0.125;C3=0.0125;
+Zoe1=Zo*sqrt((1+C1)/(1-C1));
+Zoe3=Zo*sqrt((1+C3)/(1-C3));
+Zoo1=Zo*sqrt((1-C1)/(1+C1));
+Zoo3=Zo*sqrt((1-C1)/(1+C1));
+Zoe2=Zo*sqrt((1+C2)/(1-C2));
+Zoo2=Zo*sqrt((1+C2)/(1-C2));
+disp("the even and odd mode characteristic impedences for each section are = ")
+disp(Zoe1,'Zoe1 = ')
+disp(Zoo1,'Zoo1 = ')
+disp(Zoe2,'Zoe2 = ')
+disp(Zoo2,'Zoo2 = ')
+disp(Zoe3,'Zoe3 = ')
+disp(Zoo3,'Zoo3 = ')
\ No newline at end of file diff --git a/25/CH8/EX8.9/8_9.sce b/25/CH8/EX8.9/8_9.sce new file mode 100755 index 000000000..675bd4ec2 --- /dev/null +++ b/25/CH8/EX8.9/8_9.sce @@ -0,0 +1,8 @@ +//example:-8.9,page no.-434.
+// program to design a 3 dB 50 ohm langer coupler for operation at 5 GHZ.
+f=5*10^9;C=10^(-3/20);
+Zo=50;
+Zoe=(((4*C)-3+sqrt(9-(8*C^2)))/((2*C)*sqrt((1-C)/(1+C))))*Zo;
+Zoo=(((4*C)+3-sqrt(9-(8*C^2)))/((2*C)*sqrt((1+C)/(1-C))))*Zo;
+disp(Zoe,'even mode characteristic impedence of a pair of adjacent coupled lines is = ')
+disp(Zoo,'even mode characteristic impedence of a pair of adjacent coupled lines is = ')
\ No newline at end of file |