1 files changed, 16 insertions, 0 deletions
diff --git a/3701/CH8/EX8.4/Ex8_4.sce b/3701/CH8/EX8.4/Ex8_4.sce
new file mode 100644
index 000000000..7d1ce900e
--- /dev/null
+++ b/3701/CH8/EX8.4/Ex8_4.sce
@@ -0,0 +1,16 @@
+////Given
+E=9                             //Kinetic energy of a particle in ev
+v0=10                           //ev
+E1=5                            //ev
+E2=15
+E3=10                           //ev
+
+//calculation
+//
+R=((sqrt(E2)-(sqrt(E2-v0)))/(sqrt(E2)+(sqrt(E2-v0))))**2
+T=1-R
+
+//Result
+printf("\n (a) E1 < vo, therefore R=1, T=0")
+printf("\n (b) reflection coefficient R=  %0.3f \n transmission coefficient T=  %0.3f ",R,T)
+printf("\n (c) E3=v0, therefore R=1 , T=0")