1 files changed, 14 insertions, 0 deletions
diff --git a/1085/CH16/EX16.1/ex16_1.sce b/1085/CH16/EX16.1/ex16_1.sce
new file mode 100755
index 000000000..e1e0ab1ff
--- /dev/null
+++ b/1085/CH16/EX16.1/ex16_1.sce
@@ -0,0 +1,14 @@
+//Exam:16.1
+clc;
+clear;
+close;
+T_c=4.2;//critical temperature of mercury
+k=1.4*10^(-23);//
+E_g=3*k*T_c;//energy gap (in Joule)
+e=1.6*10^(-19);//charge on the electron 
+E=E_g/e;//energy gap (in electron volt)
+h=6.6*10^(-34)// in J-s
+c=3*10^8;//in m/s
+wavelength=h*c/E_g;//wavelength of a photon (in m)
+disp(E,'energy gap (in electron volt)=');
+disp(wavelength,'wavelength of a photon (in m)=');
+\ No newline at end of file