1 files changed, 22 insertions, 0 deletions
diff --git a/3750/CH2/EX2.1/Ex2_1.sce b/3750/CH2/EX2.1/Ex2_1.sce
new file mode 100644
index 000000000..eacfabe98
--- /dev/null
+++ b/3750/CH2/EX2.1/Ex2_1.sce
@@ -0,0 +1,22 @@
+//Strength Of Material By G.H.Ryder
+//Chapter 2
+//Example 1
+//To Calculate diameter of Bolts
+
+clc();
+
+//Initialization of Variables
+P=250; //Power transmitted by coupling, Unit in KW
+N=1000;  //Rotations ,Unit in rpm
+n=6;  //number fo bolts
+PCD=14;  //Pitch circle diameter, Unit in cm
+ShearStress=75;  //Allowable mean shear stress, Unit in N/mm^2
+
+//Computations
+Torque=(P*60*1000)/(%pi*2*N);  //torque to be transmitted, Unit in N-m
+//Torque Equation: Torque=StearStress*(%pi*d^2/4)*n*PCD/(2*100)
+d=sqrt(Torque*4*100*2/(ShearStress*%pi*n*PCD));  //Diameter of Rod , Unit in mm
+d=ceil(d); //Rounding off d to upper value
+
+//Result
+printf("Diameter of the Bolts = %.fmm\n",d)