From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 24/CH43/EX43.6/Example43_6.sce        | 23 +++++++++++++++++++++++
 24/CH43/EX43.6/Example43_6_result.txt |  5 +++++
 2 files changed, 28 insertions(+)
 create mode 100755 24/CH43/EX43.6/Example43_6.sce
 create mode 100755 24/CH43/EX43.6/Example43_6_result.txt

(limited to '24/CH43/EX43.6')

diff --git a/24/CH43/EX43.6/Example43_6.sce b/24/CH43/EX43.6/Example43_6.sce
new file mode 100755
index 000000000..eca8cc5af
--- /dev/null
+++ b/24/CH43/EX43.6/Example43_6.sce
@@ -0,0 +1,23 @@
+//Given that
+uCsqure = 931.5  //in Mev
+M_H = 1.007825  //in Atomic mass unit
+M_U  = 238.05079  //in Atomic mass unit
+M_Th = 234.04363  //in Atomic mass unit
+M_He = 4.00260  //in Atomic mass unit
+M_Pa = 237.05121  //in Atomic mass unit
+
+txt = mopen('Example43_6_result.txt','wt')
+//Sample Problem 43-6a
+mfprintf(txt, '**Sample Problem 43-6a**\n')
+Q = (M_U - (M_Th + M_He)) * uCsqure
+mfprintf(txt, 'Energy released during alpha decay of uranium is %fMev\n', Q)
+
+//Sample Problem 43-6b
+mfprintf(txt, '\n**Sample Problem 43-6b**\n')
+Q = (M_U - (M_Pa + M_H)) * uCsqure
+if(Q<0) 
+    mfprintf(txt, 'It cannot emit a proton spontaneously')
+else
+    mfprintf(txt, 'It can emit proton spontaneously')
+end
+mclose(txt)
\ No newline at end of file
diff --git a/24/CH43/EX43.6/Example43_6_result.txt b/24/CH43/EX43.6/Example43_6_result.txt
new file mode 100755
index 000000000..fe1b98483
--- /dev/null
+++ b/24/CH43/EX43.6/Example43_6_result.txt
@@ -0,0 +1,5 @@
+**Sample Problem 43-6a**
+Energy released during alpha decay of uranium is 4.247640Mev
+
+**Sample Problem 43-6b**
+It cannot emit a proton spontaneously
\ No newline at end of file
-- 
cgit