1 files changed, 26 insertions, 0 deletions
diff --git a/3647/CH9/EX9.4/ex9_4.sce b/3647/CH9/EX9.4/ex9_4.sce
new file mode 100644
index 000000000..b0d1ab757
--- /dev/null
+++ b/3647/CH9/EX9.4/ex9_4.sce
@@ -0,0 +1,26 @@
+//Solutions to Problems In applied mechanics
+//A N Gobby
+clear all;
+clc
+//initialisation of variables
+h=6//in
+h1=4//in
+d=5000//kilowatt
+g=2500//rev/min
+f=8//in
+l=20//in
+G=12*10^6//lbf/in^2
+p=746//watts
+w=1000//in
+q=33000//in
+j=102.2//in^4
+t=12//in
+k=180//in
+//CALCULATIONS
+S=(d*w/p)//hp
+T=((q*S)/(2*%pi*g))//lbf ft
+Q=(t*T/j)*3//lbf/in^2
+F=f*Q//lbf/in^2
+A=((t*T*l*h*k)/(G*j*%pi))//degree
+//RESULTS
+printf('the angle of twist=% f degree',A)