summaryrefslogtreecommitdiff
path: root/3862/CH2/EX2.15/Ex2_15.sce
diff options
context:
space:
mode:
Diffstat (limited to '3862/CH2/EX2.15/Ex2_15.sce')
-rw-r--r--3862/CH2/EX2.15/Ex2_15.sce27
1 files changed, 27 insertions, 0 deletions
diff --git a/3862/CH2/EX2.15/Ex2_15.sce b/3862/CH2/EX2.15/Ex2_15.sce
new file mode 100644
index 000000000..638f5be2a
--- /dev/null
+++ b/3862/CH2/EX2.15/Ex2_15.sce
@@ -0,0 +1,27 @@
+clear
+//
+
+//variable declaration
+P1=500.0 //Loading at inclined to 60.0°,N
+P2=1000.0 //vertical loading at 150 distance from O,N
+P3=1200.0 //vertical loading at 150 distance from O,N
+H=700.0 //Horizontal loading at 300 ditance from O,N
+a=150.0
+theta=60.0*%pi/180
+//assume Resulat R at distance x from O,
+//sum of vertical Fy & sum of horizontal forces Fx is zero
+//Assume direction of Fx is right
+//Assume direction of Fy is up
+Rx=P1*cos(theta)-H
+Ry=-P3-P2-P1*sin(theta)
+
+R=sqrt((Rx**2)+(Ry**2))
+printf("\n R= %0.2f KN in y-direction",R)
+
+alpha=atan(Ry/Rx)*180/%pi
+printf("\n alpha %0.2f °",alpha)
+
+//Let the point of application of the resultant be at a distance x from the point O along the horizontal arm. Then,
+
+x=(P1*sin(theta)*(2*a)+P2*a-P3*a*cos(theta)+H*a*2*sin(theta))/(-Ry)
+printf("\n x= %0.3f mm",x)