From 7bc77cb1ed33745c720952c92b3b2747c5cbf2df Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Sat, 3 Feb 2018 11:01:52 +0530
Subject: Added new code

---
 3862/CH2/EX2.12/Ex2_12.sce | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)
 create mode 100644 3862/CH2/EX2.12/Ex2_12.sce

(limited to '3862/CH2/EX2.12/Ex2_12.sce')

diff --git a/3862/CH2/EX2.12/Ex2_12.sce b/3862/CH2/EX2.12/Ex2_12.sce
new file mode 100644
index 000000000..b590fb8c7
--- /dev/null
+++ b/3862/CH2/EX2.12/Ex2_12.sce
@@ -0,0 +1,36 @@
+clear
+//
+
+//variable declaration
+
+P1=2.0       //loading at 1,KN
+P2=1.5       //loading at 2,KN
+P3=5.0       //loading at 3,KN
+a=10.0       //side length,mm
+
+// If theta1, theta2 and theta3 are the slopes of the forces 2 kN, 5 kN and 1.5 kN forces with respect to x axis, then 
+
+
+theta1=atan(a/a)
+theta2=atan((3*a)/(4*a))
+theta3=atan((a)/(2*a))
+
+
+//sum of vertical Fy & sum of horizontal forces Fx is zero
+//Assume direction of Fx is right
+//Assume direction of Fy is up
+Fx=P1*cos(theta1)+P3*cos(theta2)-P2*cos(theta3)
+
+Fy=P1*sin(theta1)-P3*sin(theta2)-P2*sin(theta3)
+
+R=sqrt((Fx**2)+(Fy**2))
+printf("\n R= %0.2f  N",R)
+
+alpha=atan(Fy/Fx)*180/%pi 
+printf("\n alpha= %0.2f  °",(-alpha))
+
+//Distance d of the resultant from O is given by
+//Rd=sum of moment at A
+
+d=((a*3)*P1*cos(theta1)+(5*a)*P3*sin(theta2)+P2*(a)*sin(theta3))/(4.66)
+printf("\n d= %0.2f  mm",d)
-- 
cgit