1 files changed, 25 insertions, 0 deletions
diff --git a/1205/CH4/EX4.5/S_4_5.sce b/1205/CH4/EX4.5/S_4_5.sce
new file mode 100644
index 000000000..c7243aeec
--- /dev/null
+++ b/1205/CH4/EX4.5/S_4_5.sce
@@ -0,0 +1,25 @@
+clc;
+
+//At equillibrium  +sum(Mo)=0,
+//s=r*theta;
+//F=k*s=k*r*theta;
+k=45;//N/mm
+r=75;//mm
+W=1800;//N
+l=200;//mm
+
+
+//+sum(Mo)=0 W*l*sin(theta)-r(k*r*theta)=0,
+//sin(theta)=k*r^2*theta/(W*l) 
+
+// trial and error 
+printf("Probable answers by trial and error method are \n");
+for i=0:0.1:%pi/2 // from 0 to 90 degrees
+
+difference=(sin(i)-k*r^2*(i)/(W*l));
+if difference<0.01 then   // Approximation
+   theta=i;
+   theta=theta*180/%pi;//Degrees , conversion into degrees
+printf("Theta=%.2f degrees\n",theta); 
+end
+end