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/CH34/EX34.2/Example34_2.sce | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100755 24/CH34/EX34.2/Example34_2.sce

(limited to '24/CH34/EX34.2/Example34_2.sce')

diff --git a/24/CH34/EX34.2/Example34_2.sce b/24/CH34/EX34.2/Example34_2.sce
new file mode 100755
index 000000000..1be862743
--- /dev/null
+++ b/24/CH34/EX34.2/Example34_2.sce
@@ -0,0 +1,20 @@
+exec('Gravitation.sci', -1)
+
+//Given that
+density = 3.5*10^3  //in kg/m^3
+c = 3*10^8  //in m/s
+d = 1  //(say)
+Ps = 3.9*10^26  //in W
+
+//Sample Problem 34-2
+printf("**Sample Problem 34-2**\n")
+R = poly(0, 'R')
+A = %pi*R^2
+Ad = 4*%pi*d^2
+I = Ps/Ad
+Fr = I*A/c
+V = 4/3*%pi*R^3
+m = density*V
+Fg = GForce(m, Ms, d)
+R = roots(Fr-Fg)
+printf("The radius of the dust particle is %1.3em", R(1))
\ No newline at end of file
-- 
cgit