From d1e070fe2d77c8e7f6ba4b0c57b1b42e26349059 Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Sat, 3 Feb 2018 10:59:42 +0530
Subject: Modified the code

---
 3875/CH12/EX12.6/Ex12_6.sce | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to '3875/CH12/EX12.6')

diff --git a/3875/CH12/EX12.6/Ex12_6.sce b/3875/CH12/EX12.6/Ex12_6.sce
index 62e884fe1..9dff0194b 100644
--- a/3875/CH12/EX12.6/Ex12_6.sce
+++ b/3875/CH12/EX12.6/Ex12_6.sce
@@ -8,7 +8,7 @@ alpha=0.3*10^-9 //width of potental barrier in m
 e=1.6*10^-19 //charge in C
 
 //calculation
-Gamma=((sqrt(2*m*(V_0-E)))*1.6*10^-19)/h //in m^-1
-T=(16*E*(V_0-E)*exp(-2*Gamma*alpha))/V_0^2
-mprintf("The tunneling probability is = %1.2f",T)
+Gamma=(2*%pi*(sqrt(2*m*(V_0-E)))*e)/h //in m^-1
+T=((16*E*(V_0-E)/V_0^2)*exp(-2*(Gamma)*alpha))
+mprintf("The tunneling probability is = %1.2e",T)
 //The answer provided in the textbook is wrong.
-- 
cgit