1 files changed, 9 insertions, 0 deletions
diff --git a/812/CH4/EX4.03/4_03.sce b/812/CH4/EX4.03/4_03.sce
new file mode 100755
index 000000000..d9ad2ace3
--- /dev/null
+++ b/812/CH4/EX4.03/4_03.sce
@@ -0,0 +1,9 @@
+//density//
+pathname=get_absolute_file_path('4.03.sce')
+filename=pathname+filesep()+'4.03-data.sci'
+exec(filename)
+//Rate of change of air density in tank(in (kg/m^3)/s):
+r=-d*v*A/V/10^6
+printf("\n\nRESULTS\n\n")
+printf("\n\nRate of change of air density in tank: %.3f kg/m^3\n\n",r)
+printf("\n\nThe density decreases as is indicated by the negative sign\n\n")