summaryrefslogtreecommitdiff
path: root/1574/CH8/EX8.2/TL_Ex_8_2.sce
blob: e8a08a17e6c08d520fe358fedec1461b46be5927 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
clc
//Chapter8
//Example8.2, page no 314
//Given
v=3e8// velocty of light
f=1.2e6// Operating Freq
lambda=v/f
//disp(lambda)
l=100// length of the Tx-Line
phi=2*(%pi*l)/(lambda)// Phase shift in degrees
Zo=500// Characteristic impedance
//a Open circuited Line

Zin=-%i*Zo*(cos(phi)/sin(phi))

//b Short circuited Line
Z1in=%i*Zo*tan(phi)
mprintf('The phase shift is: %d degrees\n Open Circuited line impedance: -j%f ohms\n Short Circuited line impedance -j%f ohms',phi*180/%pi,-Zin*%i,Z1in*%i)