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 /728/CH3 | |
| 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 '728/CH3')
30 files changed, 518 insertions, 0 deletions
diff --git a/728/CH3/EX3.1/EX3_1.sce b/728/CH3/EX3.1/EX3_1.sce new file mode 100755 index 000000000..362dd1ce9 --- /dev/null +++ b/728/CH3/EX3.1/EX3_1.sce @@ -0,0 +1,10 @@ +//Caption:Program to find value of terminating impedance of lossless transmission line.
+//Exa:3.1
+clc;
+clear;
+close;
+//Given:
+Z_ch=100;//in ohms
+S=5;//VSWR (unitless)
+Z=Z_ch*S;
+printf("\n\n\t The terminating impedence = %d ohms ",Z);
\ No newline at end of file diff --git a/728/CH3/EX3.1/Ex3_1.txt b/728/CH3/EX3.1/Ex3_1.txt new file mode 100755 index 000000000..f2235deb1 --- /dev/null +++ b/728/CH3/EX3.1/Ex3_1.txt @@ -0,0 +1,11 @@ +//Caption:Program to find value of terminating impedance of lossless transmission line.
+//Exa:3.1
+clc;
+clear;
+close;
+//Given:
+Z_ch=100;//in ohms
+S=5;//VSWR (unitless)
+Z=Z_ch*S;
+printf("\n\n\t The terminating impedence = %d ohms ",Z);
+
diff --git a/728/CH3/EX3.1/Ex3_1_ans.txt b/728/CH3/EX3.1/Ex3_1_ans.txt new file mode 100755 index 000000000..c1e309d8e --- /dev/null +++ b/728/CH3/EX3.1/Ex3_1_ans.txt @@ -0,0 +1,3 @@ +
+ The terminating impedence = 500 ohms
+
diff --git a/728/CH3/EX3.10/Ex3_10.sce b/728/CH3/EX3.10/Ex3_10.sce new file mode 100755 index 000000000..6c0280f50 --- /dev/null +++ b/728/CH3/EX3.10/Ex3_10.sce @@ -0,0 +1,22 @@ +//Caption:Calculate the charcterstic impedance & phase velocity
+//Exa:3.10
+clc;
+clear;
+close;
+e=2.718;
+f=1000;//in Hz
+l=10000;//in meters
+Z_sc=(2631+%i*1289);//in ohms
+Z_oc=(221-%i*137);//in ohms
+Z_o=[Z_sc*Z_oc]^0.5;
+Z_mag=[real(Z_o)^2+imag(Z_o)^2]^0.5;
+Z_ang=[atan((imag(Z_o))/real(Z_o))]*180/%pi;
+disp(Z_mag,"Characteristic impedance (in ohms) =");
+disp(Z_ang,"Angle (in degrees) =");
+x=[(Z_oc/Z_sc)^0.5];
+//x=tanh(v*l)
+//As, tanh(t)=[e^t-e^-t]/[e^t+e^-t]
+v=(261+%i*2988)/l;
+a=real(v);
+b=imag(v);
+disp(2*%pi*f/b,"Phase velocity (in meter per sec.) =");
\ No newline at end of file diff --git a/728/CH3/EX3.10/Ex3_10.txt b/728/CH3/EX3.10/Ex3_10.txt new file mode 100755 index 000000000..eb7d10e35 --- /dev/null +++ b/728/CH3/EX3.10/Ex3_10.txt @@ -0,0 +1,26 @@ +//Caption:Calculate the charcterstic impedance & phase velocity
+//Exa:3.10
+clc;
+clear;
+close;
+e=2.718;
+f=1000;//in Hz
+l=10000;//in meters
+Z_sc=(2631+%i*1289);//in ohms
+Z_oc=(221-%i*137);//in ohms
+Z_o=[Z_sc*Z_oc]^0.5;
+Z_mag=[real(Z_o)^2+imag(Z_o)^2]^0.5;
+Z_ang=[atan((imag(Z_o))/real(Z_o))]*180/%pi;
+disp(Z_mag,"Characteristic impedance (in ohms) =");
+disp(Z_ang,"Angle (in degrees) =");
+x=[(Z_oc/Z_sc)^0.5];
+//x=tanh(v*l)
+//As, tanh(t)=[e^t-e^-t]/[e^t+e^-t]
+v=(261+%i*2988)/l;
+a=real(v);
+b=imag(v);
+disp(2*%pi*f/b,"Phase velocity (in meter per sec.) =");
+
+
+
+
diff --git a/728/CH3/EX3.10/Ex3_10_ans.txt b/728/CH3/EX3.10/Ex3_10_ans.txt new file mode 100755 index 000000000..e19688f2b --- /dev/null +++ b/728/CH3/EX3.10/Ex3_10_ans.txt @@ -0,0 +1,12 @@ +Characteristic impedance (in ohms) =
+
+ 872.81286
+
+ Angle (in degrees) =
+
+ - 2.846825
+
+ Phase velocity (in meter per sec.) =
+
+ 21028.063
+
diff --git a/728/CH3/EX3.2/Ex3_2.sce b/728/CH3/EX3.2/Ex3_2.sce new file mode 100755 index 000000000..aa91a23f5 --- /dev/null +++ b/728/CH3/EX3.2/Ex3_2.sce @@ -0,0 +1,31 @@ +//Caption:Calculate the charcteristic impedance, attenuation constant, phase constant of transmission line Calculate power delivered to load , if line length=500 km.
+//Exa:3.2
+clc;
+clear;
+close;
+e=2.718;
+//Given:
+R=8;//in ohm/kilometer
+L=2*10^-3;//in henry/kilometer
+C=0.002*10^-6;//in farad/kilometer
+G=0.07*10^-6;//second/kilometer
+f=2000;//in hertz
+//Since [w=2*(pi)*f] & [Zch={(R+jwL)/(G+jwC)}^0.5]
+w=2*%pi*f;//in radians
+Z_ch={(R+%i*w*L)/(G+%i*w*C)}^0.5;//computing characteristic impedance
+disp(Z_ch,"Characteristic impedance (in ohms) =");
+y={(R+%i*w*L)*(G+%i*w*C)}^0.5;
+a=real(y);//atteneuation constant
+b=imag(y);//phase constant
+disp(a,"Atteneuation constant (in NP/km) =");
+disp(b,"Phase constant (in radian/km) =");
+V_in=2;//in volts
+l=500;//in kilometers
+Z_in=Z_ch;//Since line terminated at its char. imped. so, Z_in=Z_ch=Z(load)
+I_s=V_in/Z_in;
+Imag=[[{{real(I_s)}^2}+{{imag(I_s)}^2}]^0.5]*10^3;//in milliampere
+Iang=atan(imag(I_s)/real(I_s))*(180/%pi);//in degrees
+I=Imag*e^-1.99;//I=Is*e^-yl
+//P(power delivered)=I*I*REAL(Z_ch)
+P=I*I*real(Z_ch);
+disp(P,"Power delivered to load (in microwatt =)");
\ No newline at end of file diff --git a/728/CH3/EX3.2/Ex3_2.txt b/728/CH3/EX3.2/Ex3_2.txt new file mode 100755 index 000000000..d08f8b69f --- /dev/null +++ b/728/CH3/EX3.2/Ex3_2.txt @@ -0,0 +1,34 @@ +//Caption:Calculate the charcteristic impedance, attenuation constant, phase constant of transmission line Calculate power delivered to load , if line length=500 km.
+//Exa:3.2
+clc;
+clear;
+close;
+e=2.718;
+//Given:
+R=8;//in ohm/kilometer
+L=2*10^-3;//in henry/kilometer
+C=0.002*10^-6;//in farad/kilometer
+G=0.07*10^-6;//second/kilometer
+f=2000;//in hertz
+//Since [w=2*(pi)*f] & [Zch={(R+jwL)/(G+jwC)}^0.5]
+w=2*%pi*f;//in radians
+Z_ch={(R+%i*w*L)/(G+%i*w*C)}^0.5;//computing characteristic impedance
+disp(Z_ch,"Characteristic impedance (in ohms) =");
+y={(R+%i*w*L)*(G+%i*w*C)}^0.5;
+a=real(y);//atteneuation constant
+b=imag(y);//phase constant
+disp(a,"Atteneuation constant (in NP/km) =");
+disp(b,"Phase constant (in radian/km) =");
+V_in=2;//in volts
+l=500;//in kilometers
+Z_in=Z_ch;//Since line terminated at its char. imped. so, Z_in=Z_ch=Z(load)
+I_s=V_in/Z_in;
+Imag=[[{{real(I_s)}^2}+{{imag(I_s)}^2}]^0.5]*10^3;//in milliampere
+Iang=atan(imag(I_s)/real(I_s))*(180/%pi);//in degrees
+I=Imag*e^-1.99;//I=Is*e^-yl
+//P(power delivered)=I*I*REAL(Z_ch)
+P=I*I*real(Z_ch);
+disp(P,"Power delivered to load (in microwatt =)");
+
+
+
diff --git a/728/CH3/EX3.2/Ex3_2_ans.txt b/728/CH3/EX3.2/Ex3_2_ans.txt new file mode 100755 index 000000000..6ddfa8e0d --- /dev/null +++ b/728/CH3/EX3.2/Ex3_2_ans.txt @@ -0,0 +1,16 @@ + Characteristic impedance (in ohms) =
+
+ 1012.5002 - 155.81342i
+
+ Atteneuation constant (in NP/km) =
+
+ 0.0039869
+
+ Phase constant (in radian/km) =
+
+ 0.0254360
+
+ Power delivered to load (in microwatt =)
+
+ 72.141799
+
diff --git a/728/CH3/EX3.3/Ex3_3.sce b/728/CH3/EX3.3/Ex3_3.sce new file mode 100755 index 000000000..83bf5687e --- /dev/null +++ b/728/CH3/EX3.3/Ex3_3.sce @@ -0,0 +1,9 @@ +//Caption:Calculate phase velocity of the wave that propogates on line as given in example 3.2
+//Exa:3.3
+clc;
+clear;
+close;
+w=4*%pi*10^3;//in rad/sec
+b=0.02543;//in rad/km
+V_p=w/b;// phase velocity
+disp(V_p,"Phase velocity (in km/sec) =");
\ No newline at end of file diff --git a/728/CH3/EX3.3/Ex3_3.txt b/728/CH3/EX3.3/Ex3_3.txt new file mode 100755 index 000000000..654b86c01 --- /dev/null +++ b/728/CH3/EX3.3/Ex3_3.txt @@ -0,0 +1,13 @@ +//Caption:Calculate phase velocity of the wave that propogates on line as given in example 3.2
+//Exa:3.3
+clc;
+clear;
+close;
+w=4*%pi*10^3;//in rad/sec
+b=0.02543;//in rad/km
+V_p=w/b;// phase velocity
+disp(V_p,"Phase velocity (in km/sec) =");// But answer in book is misprinted as 494.22
+
+
+
+
diff --git a/728/CH3/EX3.3/Ex3_3_ans.txt b/728/CH3/EX3.3/Ex3_3_ans.txt new file mode 100755 index 000000000..2b89db88f --- /dev/null +++ b/728/CH3/EX3.3/Ex3_3_ans.txt @@ -0,0 +1,4 @@ +Phase velocity (in km/sec) =
+
+ 494155.35
+
diff --git a/728/CH3/EX3.4/Ex3_4.sce b/728/CH3/EX3.4/Ex3_4.sce new file mode 100755 index 000000000..e606c7846 --- /dev/null +++ b/728/CH3/EX3.4/Ex3_4.sce @@ -0,0 +1,22 @@ +//Caption:Calculate (a)-Current drawn from generator. (b)-Magnitune & phase of load current. (c)-Power delivered to load.
+//Exa: 3.4
+clc;
+clear;
+close;
+f=37.5*10^6;//frequency(in hertz)
+wl=(3*10^8)/f;//wavelength (in meters)
+Z_l=100;//in ohms
+Z_o=200;//in ohms
+l=5*wl/4;//length of line (in meters)
+b=2*%pi/wl;
+//At generator end,
+Z_i=Z_o*(Z_l+%i*Z_o*tan(b*l))/(Z_o+%i*Z_l*tan(b*l));
+V_s=200*Z_i/(200+Z_i);
+I_s=200/(200+Z_i);
+disp(real(I_s),"Current drawn from generator(in amps) =");
+//for a lossless line , P(avg)*I_input=P(avg)*I_load
+P_avg=V_s*I_s;//in watts
+disp(real(P_avg),"Power delivered to load (in watts) =)");
+//Real(Vs*Is)=Real(Vs*I_load)
+I_load=(P_avg/Z_l)^0.5;//in amps
+disp(real(I_load),"Current flowing in load (in amps) =)");
\ No newline at end of file diff --git a/728/CH3/EX3.4/Ex3_4.txt b/728/CH3/EX3.4/Ex3_4.txt new file mode 100755 index 000000000..1b320a4bb --- /dev/null +++ b/728/CH3/EX3.4/Ex3_4.txt @@ -0,0 +1,26 @@ +//Caption:Calculate (a)-Current drawn from generator. (b)-Magnitune & phase of load current. (c)-Power delivered to load.
+//Exa: 3.4
+clc;
+clear;
+close;
+f=37.5*10^6;//frequency(in hertz)
+wl=(3*10^8)/f;//wavelength (in meters)
+Z_l=100;//in ohms
+Z_o=200;//in ohms
+l=5*wl/4;//length of line (in meters)
+b=2*%pi/wl;
+//At generator end,
+Z_i=Z_o*(Z_l+%i*Z_o*tan(b*l))/(Z_o+%i*Z_l*tan(b*l));
+V_s=200*Z_i/(200+Z_i);
+I_s=200/(200+Z_i);
+disp(real(I_s),"Current drawn from generator(in amps) =");
+//for a lossless line , P(avg)*I_input=P(avg)*I_load
+P_avg=V_s*I_s;//in watts
+disp(real(P_avg),"Power delivered to load (in watts) =)");
+//Real(Vs*Is)=Real(Vs*I_load)
+I_load=(P_avg/Z_l)^0.5;//in amps
+disp(real(I_load),"Current flowing in load (in amps) =)");
+
+
+
+
diff --git a/728/CH3/EX3.4/Ex3_4_ans.txt b/728/CH3/EX3.4/Ex3_4_ans.txt new file mode 100755 index 000000000..8f47b7498 --- /dev/null +++ b/728/CH3/EX3.4/Ex3_4_ans.txt @@ -0,0 +1,12 @@ +Current drawn from generator(in amps) =
+
+ 0.3333333
+
+ Power delivered to load (in watts) =)
+
+ 44.444444
+
+ Current flowing in load (in amps) =)
+
+ 0.6666667
+
diff --git a/728/CH3/EX3.5/Ex3_5.sce b/728/CH3/EX3.5/Ex3_5.sce new file mode 100755 index 000000000..75613a3ca --- /dev/null +++ b/728/CH3/EX3.5/Ex3_5.sce @@ -0,0 +1,17 @@ +//Caption:Calculate VSWR & reflection coefficient.
+//Exa: 3.5
+clc;
+clear;
+close;
+Z_o=50;//in ohms
+f=300*10^6;//in Hz
+Z_l=50+%i*50;//in ohms
+wl=(3*10^8)/f;//wavelength(in meters)
+P=[(Z_l-Z_o)/(Z_l+Z_o)];
+P_mag={(real(P)^2)+(imag(P)^2)}^0.5;
+P_ang=atan(imag(P)/real(P))*180/%pi;//in degrees
+S={1+P_mag}/{1-P_mag};
+disp(P,"Reflection coefficient =");
+disp(P_mag,"Magnitude of reflection coeffcient =");
+disp(P_ang,"Angle (in degree) =");
+disp(S,"VSWR =");
\ No newline at end of file diff --git a/728/CH3/EX3.5/Ex3_5.txt b/728/CH3/EX3.5/Ex3_5.txt new file mode 100755 index 000000000..b822a5976 --- /dev/null +++ b/728/CH3/EX3.5/Ex3_5.txt @@ -0,0 +1,20 @@ +//Caption:Calculate VSWR & reflection coefficient.
+//Exa: 3.5
+clc;
+clear;
+close;
+Z_o=50;//in ohms
+f=300*10^6;//in Hz
+Z_l=50+%i*50;//in ohms
+wl=(3*10^8)/f;//wavelength(in meters)
+P=[(Z_l-Z_o)/(Z_l+Z_o)];
+P_mag={(real(P)^2)+(imag(P)^2)}^0.5;
+P_ang=atan(imag(P)/real(P))*180/%pi;//in degrees
+S={1+P_mag}/{1-P_mag};
+disp(P,"Reflection coefficient =");
+disp(P_mag,"Magnitude of reflection coeffcient =");
+disp(P_ang,"Angle (in degree) =");
+disp(S,"VSWR =");
+
+
+
diff --git a/728/CH3/EX3.5/Ex3_5_ans.txt b/728/CH3/EX3.5/Ex3_5_ans.txt new file mode 100755 index 000000000..98df14638 --- /dev/null +++ b/728/CH3/EX3.5/Ex3_5_ans.txt @@ -0,0 +1,16 @@ +Reflection coefficient =
+
+ 0.2 + 0.4i
+
+ Magnitude of reflection coeffcient =
+
+ 0.4472136
+
+ Angle (in degree) =
+
+ 63.434949
+
+ VSWR =
+
+ 2.618034
+
diff --git a/728/CH3/EX3.6/Ex3_6.sce b/728/CH3/EX3.6/Ex3_6.sce new file mode 100755 index 000000000..3e2c5adf1 --- /dev/null +++ b/728/CH3/EX3.6/Ex3_6.sce @@ -0,0 +1,15 @@ +//Caption:Determine point of attachment & length of stub.
+//Exa 3.6
+clc;
+clear;
+close;
+Z_l=100;//in ohms
+Z_o=600;//in ohms
+f=100*10^6;//in Hz
+wl=(3*10^8)/f;
+//Position of stub is :
+m=((Z_l*Z_o)/(Z_l-Z_o))^0.5;
+pos={wl/(2*%pi)}*atan((Z_l/Z_o)^0.5);//in meters
+l={wl/(2*%pi)}*{atan(m)};//in meters
+disp(pos,"Position of stub (in meters) =");
+disp(abs(l),"Length of stub (in meters) =");
\ No newline at end of file diff --git a/728/CH3/EX3.6/Ex3_6.txt b/728/CH3/EX3.6/Ex3_6.txt new file mode 100755 index 000000000..eba4f5cab --- /dev/null +++ b/728/CH3/EX3.6/Ex3_6.txt @@ -0,0 +1,19 @@ +//Caption:Determine point of attachment & length of stub.
+//Exa 3.6
+clc;
+clear;
+close;
+Z_l=100;//in ohms
+Z_o=600;//in ohms
+f=100*10^6;//in Hz
+wl=(3*10^8)/f;
+//Position of stub is :
+m=((Z_l*Z_o)/(Z_l-Z_o))^0.5;
+pos={wl/(2*%pi)}*atan((Z_l/Z_o)^0.5);//in meters
+l={wl/(2*%pi)}*{atan(m)};//in meters
+disp(pos,"Position of stub (in meters) =");
+disp(abs(l),"Length of stub (in meters) =");// But answer in book is misprinted as 1.28 m
+
+
+
+
diff --git a/728/CH3/EX3.6/Ex3_6_ans.txt b/728/CH3/EX3.6/Ex3_6_ans.txt new file mode 100755 index 000000000..35f626f8e --- /dev/null +++ b/728/CH3/EX3.6/Ex3_6_ans.txt @@ -0,0 +1,8 @@ +Position of stub (in meters) =
+
+ 0.1850638
+
+ Length of stub (in meters) =
+
+ 0.7512725
+
diff --git a/728/CH3/EX3.7/Ex3_7.sce b/728/CH3/EX3.7/Ex3_7.sce new file mode 100755 index 000000000..0a0574dec --- /dev/null +++ b/728/CH3/EX3.7/Ex3_7.sce @@ -0,0 +1,15 @@ +//Caption:Calculate terminating impedance.
+//Exa: 3.7
+clc;
+clear;
+close;
+Z_o=50;
+S=3.2;
+X_min=0.23;//in terms of wavelength(wl))
+//So :
+Z_l=Z_o*[[1-%i*S*tan(2*%pi*X_min)]/[S-%i*tan(2*%pi*X_min)]];//in ohms
+Z_lmag=[(real(Z_l)^2)+(imag(Z_l)^2)]^0.5;
+Z_lang=atan(imag(Z_l)/real(Z_l));
+disp("The load impedance");
+disp(Z_lmag,"magnitude (in ohms) =");
+disp(Z_lang*180/%pi,"angle (in degrees) =");
\ No newline at end of file diff --git a/728/CH3/EX3.7/Ex3_7.txt b/728/CH3/EX3.7/Ex3_7.txt new file mode 100755 index 000000000..b22021c06 --- /dev/null +++ b/728/CH3/EX3.7/Ex3_7.txt @@ -0,0 +1,18 @@ +//Caption:Calculate terminating impedance.
+//Exa: 3.7
+clc;
+clear;
+close;
+Z_o=50;
+S=3.2;
+X_min=0.23;//in terms of wavelength(wl))
+//So :
+Z_l=Z_o*[[1-%i*S*tan(2*%pi*X_min)]/[S-%i*tan(2*%pi*X_min)]];//in ohms
+Z_lmag=[(real(Z_l)^2)+(imag(Z_l)^2)]^0.5;
+Z_lang=atan(imag(Z_l)/real(Z_l));
+disp("The load impedance");
+disp(Z_lmag,"magnitude (in ohms) =");// But answer in book is mispinted as 14.9
+disp(Z_lang*180/%pi,"angle (in degrees) =");
+
+
+
diff --git a/728/CH3/EX3.7/Ex3_7_ans.txt b/728/CH3/EX3.7/Ex3_7_ans.txt new file mode 100755 index 000000000..2cf9a6bcc --- /dev/null +++ b/728/CH3/EX3.7/Ex3_7_ans.txt @@ -0,0 +1,10 @@ +The load impedance
+
+ magnitude (in ohms) =
+
+ 148.45323
+
+ angle (in degrees) =
+
+ - 19.750474
+
diff --git a/728/CH3/EX3.8/Ex3_8.sce b/728/CH3/EX3.8/Ex3_8.sce new file mode 100755 index 000000000..dd261e896 --- /dev/null +++ b/728/CH3/EX3.8/Ex3_8.sce @@ -0,0 +1,24 @@ +//Caption:Determine:(a)VSWR; (b)Position of 1st Vmin & Vmax; (c)Vmin & Vmax; (d)Impedance at Vmin & Vmax.
+//Exa: 3.8
+clc;
+clear;
+close;
+Z_o=50;//in ohms
+Z_l=100;//in ohms
+f=300*10^3;//in Hz
+P_l=50*10^-3;//in watts
+wl=(3*10^8)/f;
+p=(Z_l-Z_o)/(Z_l+Z_o);
+S=(1+abs(p))/(1-abs(p));
+disp(S,"VSWR =");
+//Since real Zl > Zo ,
+pos=wl/4;
+disp("First Vmax is located --->at the load ");
+disp("First Vmin is located at --->(wavelength/4)= ");
+disp(pos,"(in meters)");
+V_max=(P_l*Z_l)^0.5;
+V_min=V_max/S;
+disp(V_max,"Vmax (in volts) =");
+disp(V_min,"Vmin (in volts) =");
+disp(Z_o/S,"Zin at Vmin (in ohms) =:");
+disp(Z_o*S,"Zin at Vmax (in ohms) =");
\ No newline at end of file diff --git a/728/CH3/EX3.8/Ex3_8.txt b/728/CH3/EX3.8/Ex3_8.txt new file mode 100755 index 000000000..602791344 --- /dev/null +++ b/728/CH3/EX3.8/Ex3_8.txt @@ -0,0 +1,25 @@ +//Caption:Determine:(a)VSWR; (b)Position of 1st Vmin & Vmax; (c)Vmin & Vmax; (d)Impedance at Vmin & Vmax.
+//Exa: 3.8
+clc;
+clear;
+close;
+Z_o=50;//in ohms
+Z_l=100;//in ohms
+f=300*10^3;//in Hz
+P_l=50*10^-3;//in watts
+wl=(3*10^8)/f;
+p=(Z_l-Z_o)/(Z_l+Z_o);
+S=(1+abs(p))/(1-abs(p));
+disp(S,"VSWR =");
+//Since real Zl > Zo ,
+pos=wl/4;
+disp("First Vmax is located --->at the load ");
+disp("First Vmin is located at --->(wavelength/4)= ");
+disp(pos,"(in meters)");
+V_max=(P_l*Z_l)^0.5;
+V_min=V_max/S;
+disp(V_max,"Vmax (in volts) =");
+disp(V_min,"Vmin (in volts) =");
+disp(Z_o/S,"Zin at Vmin (in ohms) =:");
+disp(Z_o*S,"Zin at Vmax (in ohms) =");
+
diff --git a/728/CH3/EX3.8/Ex3_8_ans.txt b/728/CH3/EX3.8/Ex3_8_ans.txt new file mode 100755 index 000000000..1b503114b --- /dev/null +++ b/728/CH3/EX3.8/Ex3_8_ans.txt @@ -0,0 +1,28 @@ +VSWR =
+
+ 2.
+
+ First Vmax is located --->at the load
+
+ First Vmin is located at --->(wavelength/4)=
+
+ (in meters)
+
+ 250.
+
+ Vmax (in volts) =
+
+ 2.236068
+
+ Vmin (in volts) =
+
+ 1.118034
+
+ Zin at Vmin (in ohms) =:
+
+ 25.
+
+ Zin at Vmax (in ohms) =
+
+ 100.
+
diff --git a/728/CH3/EX3.9/Ex3_9.sce b/728/CH3/EX3.9/Ex3_9.sce new file mode 100755 index 000000000..8bf0a5429 --- /dev/null +++ b/728/CH3/EX3.9/Ex3_9.sce @@ -0,0 +1,18 @@ +//Caption:Determine in dB: (a)-reflection loss, (b)-transmission line (c)-return loss.
+//Exa: 3.9
+clc;
+clear;
+close;
+Z_o=600;//in ohm
+Z_s=50;//in ohm
+l=200;//in meter
+Z_l=500;//in ohm
+p=(Z_l-Z_o)/(Z_l+Z_o);
+ref_los=10*(log(1/(1-(abs(p))^2)))/(log(10));//in dB
+disp(ref_los,"Reflection loss (in dB) =");
+//attenuation loss= 0 dB
+//Transmisson loss = (attenuation loss)+(reflection loss) = (reflection loss)
+tran_los=ref_los;
+disp(tran_los,"Transmisson loss (in dB) =");
+ret_los=10*((log(abs(p)))/(log(10)));
+disp(ret_los,"Return loss(in dB) =");
\ No newline at end of file diff --git a/728/CH3/EX3.9/Ex3_9.txt b/728/CH3/EX3.9/Ex3_9.txt new file mode 100755 index 000000000..c499509b6 --- /dev/null +++ b/728/CH3/EX3.9/Ex3_9.txt @@ -0,0 +1,22 @@ +//Caption:Determine in dB: (a)-reflection loss, (b)-transmission line (c)-return loss.
+//Exa: 3.9
+clc;
+clear;
+close;
+Z_o=600;//in ohm
+Z_s=50;//in ohm
+l=200;//in meter
+Z_l=500;//in ohm
+p=(Z_l-Z_o)/(Z_l+Z_o);
+ref_los=10*(log(1/(1-(abs(p))^2)))/(log(10));//in dB
+disp(ref_los,"Reflection loss (in dB) =");
+//attenuation loss= 0 dB
+//Transmisson loss = (attenuation loss)+(reflection loss) = (reflection loss)
+tran_los=ref_los;
+disp(tran_los,"Transmisson loss (in dB) =");
+ret_los=10*((log(abs(p)))/(log(10)));
+disp(ret_los,"Return loss(in dB) =");
+
+
+
+
diff --git a/728/CH3/EX3.9/Ex3_9_ans.txt b/728/CH3/EX3.9/Ex3_9_ans.txt new file mode 100755 index 000000000..1958f2c98 --- /dev/null +++ b/728/CH3/EX3.9/Ex3_9_ans.txt @@ -0,0 +1,12 @@ +Reflection loss (in dB) =
+
+ 0.0360412
+
+ Transmisson loss (in dB) =
+
+ 0.0360412
+
+ Return loss(in dB) =
+
+ - 10.413927
+
|