1 files changed, 14 insertions, 0 deletions
diff --git a/3886/CH2/EX2.21/Ex2_21.sce b/3886/CH2/EX2.21/Ex2_21.sce
new file mode 100644
index 000000000..06c4ef72b
--- /dev/null
+++ b/3886/CH2/EX2.21/Ex2_21.sce
@@ -0,0 +1,14 @@
+//reactions developed at contact surfaces
+//Refer fig. 2.26 (a),(b) and (c)
+//using geometry
+theta=acosd(0.8)  //degree
+//consider equilibrium of cylinder 1
+//Using equilibrium conditions
+RB=800/sind(theta)  //N
+RA=RB*cosd(theta)  //N
+//consider equilibrium of cylinder 2
+//Using equilibrium conditions
+RD=((RB*sind(theta))+1200)/cosd(45)  //N
+RC=RD*sind(45)+RB*cosd(theta)  //N
+printf("\nThe reactions are:-\nRA=%.1f N\nRB=%.1f N\nRC=%.1f N\nRD=%.1f N",RA,RB,RC,RD)
+