1 files changed, 13 insertions, 0 deletions
diff --git a/3137/CH17/EX17.34/Ex17_34.sce b/3137/CH17/EX17.34/Ex17_34.sce
new file mode 100755
index 000000000..d4837a8ff
--- /dev/null
+++ b/3137/CH17/EX17.34/Ex17_34.sce
@@ -0,0 +1,13 @@
+//Initilization of variables
+I=100 //slug-ft^2
+w=4 //rad/s
+theta=6 //rad
+Mc=64.4 //lb
+g=32.2 //ft/s^2
+//Calculations
+vb=2*w //ft/s
+vc=0.5*w //ft/s
+Mb=(0.5*I*w^2+0.5*(Mc/g)*vc^2+0.5*Mc*theta)/(2*theta-(0.5*vb^2*(1/g))) //lb
+//Result
+clc
+printf('The weight of the block B is %f lb',Mb)