summaryrefslogtreecommitdiff
path: root/72/CH11/EX11.2.1/11_2-1.sce
blob: 481cad6d9f11da5c09fcdac651291b08939276b8 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
//CAPTION: Characteristics_of_a_Parallel_Strip_Line
//chapter_no.-11,  page_no.-505
//Example_no.11-2-1

clc;

//(a) Calculate the required width of the conducting strip
erd=6;//relative_dielectric_constant
d=4*(10^-3);//thickness
Z0=50;//characteristic_impedance

w=(377*(d))/((sqrt(erd))*Z0);
disp(w,'the_required_width_of_the_conducting_strip(in metres)is =');

//(b) Calculate_the_strip_line_capacitance

ed=8.854*(10^-12)*erd;
d=4*(10^-3);//thickness
C=(ed*w)/d;
C=C*(10^12);
disp(C,'the_strip_line_capacitance(in pF/m)is =');




//(c) Calculate_the_strip_line_inductance

uc=4*%pi*(10^-7);
d=4*(10^-3);//thickness
C=(uc*d)/w;
C=C*(10^6);
disp(C,'the_strip_line_inductance(in uH/m)is =');

//(d)Calculate_the_phase_velocity_of_the_wave_in_the_parallel_strip_line

c=3*(10^8);

vp=c/(sqrt(erd));
disp(vp,'the_phase_velocity_of_the_wave_in_the_parallel_strip_line(in m/s)is =');