4 files changed, 41 insertions, 0 deletions
diff --git a/1367/CH3/EX3.4/3_4.sce b/1367/CH3/EX3.4/3_4.sce
new file mode 100755
index 000000000..a2586dab3
--- /dev/null
+++ b/1367/CH3/EX3.4/3_4.sce
@@ -0,0 +1,12 @@
+//Find Energy of third and fifth orbit
+//Ex:3.4
+clc;
+clear;
+close;
+e1=-13.6;//ionization potential of hydrogen in volts
+n=3;//third orbit
+e3=e1/(n^2);//Energy of third orbit in volts
+disp(e3,"Energy of third orbit (in volts) = ");
+m=5;//fifth orbit
+e5=e1/(m^2);//Energy of fifth orbit in volts
+disp(e5,"Energy of fifth orbit (in volts) = ");
+\ No newline at end of file
diff --git a/1367/CH3/EX3.4/ex_3_4_r.txt b/1367/CH3/EX3.4/ex_3_4_r.txt
new file mode 100755
index 000000000..6a40ab79b
--- /dev/null
+++ b/1367/CH3/EX3.4/ex_3_4_r.txt
@@ -0,0 +1,7 @@
+ Energy of third orbit (in volts) =    
+ 
+  - 1.5111111  
+ 
+ Energy of fifth orbit (in volts) =    
+ 
+  - 0.544  
+\ No newline at end of file
diff --git a/1367/CH3/EX3.5/3_5.sce b/1367/CH3/EX3.5/3_5.sce
new file mode 100755
index 000000000..46d28c1a8
--- /dev/null
+++ b/1367/CH3/EX3.5/3_5.sce
@@ -0,0 +1,13 @@
+//Find Dipole moment and  Percentage ionic character
+//Ex:3.5
+clc;
+clear;
+close;
+d=0.9178;//molecular distance in angstorm
+d1=d*10^-10;//in m
+e=1.602*10^-19;//in C
+dm=e*d1;//dipole moment in fully ionic state in Cm
+disp(dm,"Dipole moment of HF in fully ionic state (in Cm) = ");
+dm_m=6.375*10^-30;//meaured dipole moment in Cm
+p=(dm_m*100)/dm;//Percentage ionic character
+disp(p,"Percentage ionic character");
diff --git a/1367/CH3/EX3.5/ex_3_5_r.txt b/1367/CH3/EX3.5/ex_3_5_r.txt
new file mode 100755
index 000000000..80bee8b3d
--- /dev/null
+++ b/1367/CH3/EX3.5/ex_3_5_r.txt
@@ -0,0 +1,9 @@
+ 
+ Dipole moment of HF in fully ionic state (in Cm) =    
+ 
+    1.470D-29  
+ 
+ Percentage ionic character   
+ 
+    43.358038  
+ 
+\ No newline at end of file