1 files changed, 16 insertions, 0 deletions
diff --git a/377/CH1/EX1.5/1_5.sce b/377/CH1/EX1.5/1_5.sce
new file mode 100644
index 000000000..5a770cfb5
--- /dev/null
+++ b/377/CH1/EX1.5/1_5.sce
@@ -0,0 +1,16 @@
+disp("T=16*exp(-2αβ/((1+β/α)^2)*((1+α/β)^2)))");
+E=1;
+V0=4;
+pi=3.14;
+m0=1.67*(10^-27)*1.6*(10^-13);
+h=1.055*10^-34;
+disp("β^2=4*pi^2*m0*(V0-E)/(h^2)");
+printf('\n');
+disp("α^2=4*pi^2*m0*E/(h^2)");
+b1=sqrt(2*m0*(V0-E)/(h^2));
+printf('\n The value of β is %f*10^14',b1*10^-14);
+c=3^0.5;  //say c=β/α
+a=1.9*10^14;
+b=10^-14;
+T=16*(exp(((-2)*a*b))/(((1+c)^2)*((1+(1/c))^2)));
+printf('\n The value of T is %fpercent',T*100);
+\ No newline at end of file