1 files changed, 14 insertions, 0 deletions
diff --git a/3651/CH1/EX1.4/Ex1_4.sce b/3651/CH1/EX1.4/Ex1_4.sce
new file mode 100644
index 000000000..896e67c9b
--- /dev/null
+++ b/3651/CH1/EX1.4/Ex1_4.sce
@@ -0,0 +1,14 @@
+//variable declaration
+I=5;                       //Ionisation energy
+A=4;                       //Electron Affinity
+e=(1.6*10**-19)
+E=8.85*10**-12            //epsilon constant
+r=0.5*10**-19             //dist between A and B
+
+//Calculations
+C=-(e**2/(4*%pi*E*r*e))/10**10    //Coulomb energy
+E_c=I-A+C                             //Energy required
+
+//Result
+printf('Coulomb energy =%0.2f eV\n',C)
+printf('Energy required =%0.2f eV',E_c')