diff options
| author | priyanka | 2015-06-24 15:03:17 +0530 |
|---|---|---|
| committer | priyanka | 2015-06-24 15:03:17 +0530 |
| commit | b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch) | |
| tree | ab291cffc65280e58ac82470ba63fbcca7805165 /1595/CH12 | |
| download | Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2 Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip | |
initial commit / add all books
Diffstat (limited to '1595/CH12')
| -rwxr-xr-x | 1595/CH12/EX12.1/ex12_1.sce | 8 | ||||
| -rwxr-xr-x | 1595/CH12/EX12.10/ex12_10.sce | 440 | ||||
| -rwxr-xr-x | 1595/CH12/EX12.2/ex12_2.sce | 16 | ||||
| -rwxr-xr-x | 1595/CH12/EX12.3/ex12_3.sce | 8 | ||||
| -rwxr-xr-x | 1595/CH12/EX12.4/ex12_4.sce | 8 | ||||
| -rwxr-xr-x | 1595/CH12/EX12.5/ex12_5.sce | 8 | ||||
| -rwxr-xr-x | 1595/CH12/EX12.7/ex12_7.sce | 25 | ||||
| -rwxr-xr-x | 1595/CH12/EX12.8/ex12_8.sce | 13 | ||||
| -rwxr-xr-x | 1595/CH12/EX12.9/ex12_9.sce | 14 |
9 files changed, 540 insertions, 0 deletions
diff --git a/1595/CH12/EX12.1/ex12_1.sce b/1595/CH12/EX12.1/ex12_1.sce new file mode 100755 index 000000000..6c0dcf48a --- /dev/null +++ b/1595/CH12/EX12.1/ex12_1.sce @@ -0,0 +1,8 @@ +//Transmission Lines : example 12-1 : (pg 575)
+L=73.75*10^-9;
+C=29.5*10^-12;
+Z=sqrt(L/C);
+x=5280;
+z=sqrt((x*L)/(x*C));
+printf("\nFor the 1-ft section, \nZ0 = sqrt(L/C) = %.f Ohm",Z);
+printf("\nFor the 1-mi section, \nZ0 = %.f Ohm",z);
\ No newline at end of file diff --git a/1595/CH12/EX12.10/ex12_10.sce b/1595/CH12/EX12.10/ex12_10.sce new file mode 100755 index 000000000..6eb53bcd2 --- /dev/null +++ b/1595/CH12/EX12.10/ex12_10.sce @@ -0,0 +1,440 @@ +//Transmission Lines : example 12-10 : (pg 601)
+Z0=75;//characteristic impedance
+j=%i;
+ZL=50-j*100;//load impedance
+x=50/Z0;
+y=100/Z0;
+mprintf("\nzL = ZL/Z0 = %.2f - j* %.2f",x,y);
+//rest of the values have to be calculated manually by smith chart or by using smith chart's softwares
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/1595/CH12/EX12.2/ex12_2.sce b/1595/CH12/EX12.2/ex12_2.sce new file mode 100755 index 000000000..0048c2134 --- /dev/null +++ b/1595/CH12/EX12.2/ex12_2.sce @@ -0,0 +1,16 @@ +//Transmission Lines : example 12-2 : (pg 574 & 575)
+a=2;//parallel wire line
+//D/d where D is spacing between the wires n d is diameter of 1 conductor
+b=2.35;//coaxial line
+D=0.285;
+d=0.08;
+e=1;//dielectric constant of insulating material relative to air
+z=(276/e)*log10(2*2);
+z1=(138/e)*log10(b);
+z2=(138/sqrt(2.3)*log10(D/d));
+//part(a) Zo of parallel wire with D/d = 2
+printf("\nZo = 276/sqrt(e).log10.(2D/d) = %.f Ohm",z);
+//part(b) Zo of coaxial line with D/d = 2.35
+printf("\nZo = 138/sqrt(e).log10.(D/d) = %.1f Ohm",z1);
+//part(c) Zo of RG-8A/U coaxial cable with D=0.285 in. & d=0.08 in.
+printf("\nZo = 138/sqrt(2.3).log10.(D/d) = %.f Ohm",z2);
\ No newline at end of file diff --git a/1595/CH12/EX12.3/ex12_3.sce b/1595/CH12/EX12.3/ex12_3.sce new file mode 100755 index 000000000..962a1b5f9 --- /dev/null +++ b/1595/CH12/EX12.3/ex12_3.sce @@ -0,0 +1,8 @@ +//Transmission Lines : example 12-3 : (pg 579)
+L=73.75*10^-9;
+C=29.5*10^-12;
+d=1;//distance
+t=sqrt(L*C);
+Vp=d/t;
+printf("\nthe delay introduced is t = sqrt(L.C) = %.11f s",t);
+printf("\nThe velocity of propagation is, \nVp = d/sqrt(L.C) = %.f ft/s",Vp);
\ No newline at end of file diff --git a/1595/CH12/EX12.4/ex12_4.sce b/1595/CH12/EX12.4/ex12_4.sce new file mode 100755 index 000000000..97c414eca --- /dev/null +++ b/1595/CH12/EX12.4/ex12_4.sce @@ -0,0 +1,8 @@ +//Transmission Lines : example 12-4 : (pg 580)
+v=2.07*10^8;//velocity
+c=3*10^8;//velocity of light
+Er=2.3;//relative dielectric constant
+vf=(v/c);//velocity factor
+vf1=1/sqrt(Er);
+printf("\nThe velocity was 2.07*10^8 m/s \nvf = %.2f",vf);
+printf("\nvf = 1/sqrt(Er) = %.2f",vf1);
\ No newline at end of file diff --git a/1595/CH12/EX12.5/ex12_5.sce b/1595/CH12/EX12.5/ex12_5.sce new file mode 100755 index 000000000..650421ceb --- /dev/null +++ b/1595/CH12/EX12.5/ex12_5.sce @@ -0,0 +1,8 @@ +//Transmission Lines : example 12-5 : (pg 581)
+c=3*10^8;//speed of light
+f=100*10^6;//frequency of signal
+x=2.07*10^8;//velocity of wave propagation
+w=c/f;//wavelength in free-space
+w1=x/f;//wavelength while traveling through an RG-8A/U coaxial cable
+printf("\nIn free space, lambda = c/f = %.f m",w);
+printf("\nWhile traveling through RG-8A/U cable, lamda = c/f = %.2f m",w1);
diff --git a/1595/CH12/EX12.7/ex12_7.sce b/1595/CH12/EX12.7/ex12_7.sce new file mode 100755 index 000000000..326ecf2ad --- /dev/null +++ b/1595/CH12/EX12.7/ex12_7.sce @@ -0,0 +1,25 @@ +//Transmission Lines : example 12-7 : (pg 592 & 593)
+Zl=300;//load impedance
+Zo=50;//characteristic impedance
+v=2.07*10^8;//velocity in RG-8A/U cable
+f=27*10^6;//operating frequency of citizen's band transmitter
+Po=4;//output power of transmitter
+l=10;//length of RG-8A/U cable
+Rl=300;//input resistance of antenna
+T=((Zl-Zo)/(Zl+Zo));//reflection coefficient
+h=v/f;//length of cable in wavelength
+le=l/h;//electrical length
+x=Rl/Zo;//VSWR
+y=((1+T)/(1-T));//VSWR
+rp=(T)^2*Po;//reflected power
+Pl=Po-rp;//load power
+//part(a): The reflection coefficient
+printf("\nT = ZL-Z0/ZL+Z0 = %.2f",T);
+//part(b) : The electrical length of the cable in wavelengths(h)
+printf("\nh = v/f = %.2f m",h);
+mprintf("\nBecause the cable is 10m long,its electrical length is (%.f m)/(%.2f m/wavelength) = %.1fh",l,h,le);
+//part(c) : The VSWR
+printf("\nBecause load is resistive, \nVSWR = %.f",x);
+printf("\nAn alternativr solution, because T is known, \nVSWR = 1+T/1-T = %.f",y);
+//part(d) : absorbed power
+mprintf("\nthe reflected voltage is T times the incident voltage,\nreflected voltage = %.2f W \nPload = %.2f W",rp,Pl);
diff --git a/1595/CH12/EX12.8/ex12_8.sce b/1595/CH12/EX12.8/ex12_8.sce new file mode 100755 index 000000000..b75e66079 --- /dev/null +++ b/1595/CH12/EX12.8/ex12_8.sce @@ -0,0 +1,13 @@ +//Transmission Lines : example 12-8 : (pg 597)
+Zo=100;//characteristic impedance
+j=%i;
+Zl = 200-j*150;//load impedance
+l=4.3;//length of transmission line
+x=200/Zo;
+y=150/Zo;
+a=0.4*Zo;
+b=0.57*Zo;
+mprintf("\nTo normalize the load impedance: \nzL = ZL/Zo = %.f - j*%.1f",x,y);
+//VSWR and equation of zin should b drawn from impedance smith chart,the plotted points should be read
+printf("\n zin = 0.4 + j*0.57");//from smith chart
+mprintf("\nZin = zin*Zo = %.f Ohm + j* %.f Ohm",a,b);
diff --git a/1595/CH12/EX12.9/ex12_9.sce b/1595/CH12/EX12.9/ex12_9.sce new file mode 100755 index 000000000..3643ffbb6 --- /dev/null +++ b/1595/CH12/EX12.9/ex12_9.sce @@ -0,0 +1,14 @@ +//Transmission Lines : example 12-9 : (pg 599)
+j=%i;
+RL=120;//load resistance from smith chart
+ZL=75+j*50;//load impedance
+Z0=50;//characteristic impedance
+a=75/Z0;
+y=50/Z0;//normalized load impedance
+z=2.4;//normalized z at a point that is purely resistive
+ar=z*Z0;//actual resistance
+x=sqrt(Z0*RL);
+printf("\nzl = ZL/Z0 = %.1f + j*%.f",a,y);
+//VSWR,zin,R can be found out from smith chart manually
+printf("\nZ0^ = sqrt(Z0*RL) = %.1f Ohm",x);//characteristic impedance of matcing section
+//^ indicates (') complement sign
\ No newline at end of file |