summaryrefslogtreecommitdiff
path: root/3793/CH4/EX4.16/exp_4_16.sce
blob: e9927f29a609f4a6dd9ef6058f72309f3fdab418 (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
clear;
clc;
Rl=400;
sl=300;
Rs=80;
sb=900;
Rsb=400;
va=300;
vb=150;
ta=sl/vb;
tb=sb/va;
reflectionca=(Rs-Rsb)/(Rs+Rsb);

refractionca=(2*Rs)/(Rs+Rsb);
reflectionca=-reflectionca;
reflectionca1=-reflectionca;
reflectioncb1=reflectionca;
refractioncb=refractionca;
refractioncb1=(2*Rsb)/(Rs+Rsb);
refractionca1=refractioncb1;
reflectionend=1;
refractionend=0;
v1=(reflectionend - reflectionca+.37+.163);//using bewley lattice diagram
mprintf("From the diagram the voltage at 10 micros is %.4f pu",v1);