1 files changed, 25 insertions, 0 deletions
diff --git a/3793/CH4/EX4.16/exp_4_16.sce b/3793/CH4/EX4.16/exp_4_16.sce
new file mode 100644
index 000000000..e9927f29a
--- /dev/null
+++ b/3793/CH4/EX4.16/exp_4_16.sce
@@ -0,0 +1,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);
+