diff options
Diffstat (limited to '623/CH27/EX5.5.4/U5_C5_4.sce')
| -rwxr-xr-x | 623/CH27/EX5.5.4/U5_C5_4.sce | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/623/CH27/EX5.5.4/U5_C5_4.sce b/623/CH27/EX5.5.4/U5_C5_4.sce new file mode 100755 index 000000000..233af4fe0 --- /dev/null +++ b/623/CH27/EX5.5.4/U5_C5_4.sce @@ -0,0 +1,10 @@ +//variable initialization
+h=6.63*10^-34; //Plank's constant (joule second)
+v=1.153*10^11; //Frequency of absorption line (Hz)
+mu=11.38*10^-27; //Recuced mass of the molecule (kg)
+
+//Calculation of the internuclear distance
+I=h/(4*%pi^2*v); //moment of inertia of CO molecule (kg m^2)
+r=sqrt(I/mu)*10^10; //Internuclear distance (Å)
+
+printf("\n Internuclear distance = %.2f Å",r);
|