1 files changed, 11 insertions, 0 deletions
diff --git a/24/CH43/EX43.9/Example43_9.sce b/24/CH43/EX43.9/Example43_9.sce
new file mode 100755
index 000000000..00aa9f2af
--- /dev/null
+++ b/24/CH43/EX43.9/Example43_9.sce
@@ -0,0 +1,11 @@
+//Given that
+dose = 3  //in J/kg
+c = 4180  //in J.kg/K
+m = 1  //(say)
+
+//Sample problem 43-9
+txt = mopen('Example43_9_result.txt','wt')
+mfprintf(txt, '**Sample Problem 43-9**\n')
+deltaT = (dose/m)/c
+mfprintf(txt, 'The change in temprature of the body is %eK', deltaT)
+mclose(txt)
+\ No newline at end of file