1 files changed, 22 insertions, 0 deletions
diff --git a/1325/CH8/EX8.3/8_3.sce b/1325/CH8/EX8.3/8_3.sce
new file mode 100644
index 000000000..017cc168a
--- /dev/null
+++ b/1325/CH8/EX8.3/8_3.sce
@@ -0,0 +1,22 @@
+//To find a) magnitude of P b) magnitude of force at Hd
+clc
+//given
+u=.35
+Tb=500//lb.ft
+rd=10//in
+phi=atan(u)
+x=rd*sin(phi)
+//F*OD=R*a=R1*a
+//R=R1
+//2*R*x=Tb
+OD=24//in
+a=11.5//inches; From figure
+F=Tb*a*12/(OD*2*x)
+//from figure
+HG=4//in
+GK=12//in
+HL=12.22//in
+P=F*HG/GK
+Fhd=HL*P/HG
+printf("\na) Magnitude of P = %.f lb",P)
+printf("\nb) Magnitude of Fhd = %.f lb",Fhd)