1 files changed, 24 insertions, 0 deletions
diff --git a/1205/CH4/EX4.9/S_4_9.sce b/1205/CH4/EX4.9/S_4_9.sce
new file mode 100644
index 000000000..80d72ae05
--- /dev/null
+++ b/1205/CH4/EX4.9/S_4_9.sce
@@ -0,0 +1,24 @@
+clc;
+theta=30;//degree, 
+theta=theta*%pi/180;//rad, Conversion
+e_AH=[0,sin(theta),cos(theta)];//Unit vector along AH
+r_HC=[-50,250,0];
+r_DC=[300,0,0];
+r_FC=[350,20,0];
+
+//Applying theory of Eqyuillibrium equations and equating coefficient to zero we get following equtions for cross product 
+//by sum(Mc)=0
+// Coefficient of i
+T=100*10^3/216.5;//N,Tension wire AH
+// Coefficient of j
+Dz=-43.3*461.1/300;//N
+//coefficient of k
+Dy=(140*10^3+25*461.9)/300;//N
+printf("Tension wire AH is %.0f N\n",T);
+printf("Reaction at D is D=((%.0f N)j +(%.1f N)k \n",Dy,Dz);
+
+//Applying sumF=0
+Cx=0;//N, Xcomponent of C
+Cy=-461.9*0.5-505.1+400;//N, Y component of C
+Cz=-461.9*0.866-66.67;//N, Zcomponent of c
+printf("Reaction at C is C=(%.0f N)i +(%.0f N)j +(%.0f N)k \n",Cx,Cy,Cz);