summaryrefslogtreecommitdiff
path: root/3864/CH6/EX6.26/Ex6_26.sce
diff options
context:
space:
mode:
Diffstat (limited to '3864/CH6/EX6.26/Ex6_26.sce')
-rw-r--r--3864/CH6/EX6.26/Ex6_26.sce36
1 files changed, 36 insertions, 0 deletions
diff --git a/3864/CH6/EX6.26/Ex6_26.sce b/3864/CH6/EX6.26/Ex6_26.sce
new file mode 100644
index 000000000..4f3185b4c
--- /dev/null
+++ b/3864/CH6/EX6.26/Ex6_26.sce
@@ -0,0 +1,36 @@
+clear
+//
+//
+
+//Initilization of Variables
+
+d1=100 //mm //Outer Diameter
+d2=95 //mm //Inner Diameter
+T=2*10**6 //N-mm //Torque
+
+//Calculations
+
+J=%pi*32**-1*(d1**4-d2**4) //mm**4 //Polar Modulus
+
+//Shear stress
+q_max=T*J**-1*d1*2**-1 //N/mm**2
+
+//Now theta*L**-1=T*(G*J)**-1
+//After substituting values and further simplifying we get
+//Let theta*L**-1=X
+X=T*J**-1
+
+//Now Treating it as very thin walled tube
+d=(d1+d2)*2**-1 //mm
+
+r=d*2**-1
+t=(d1-d2)*2**-1
+q_max2=T*(2*%pi*r**2*t)**-1 //N/mm**2
+
+X2=T*(2*%pi*r**3*t)**-1
+
+//Result
+printf("\n When it is treated as hollow shaft:Max shear stress %0.2f N/mm**2",q_max)
+printf("\n :Angle of Twist per unit Length %0.3f ",X)
+printf("\n When it is very thin Walled Tube :Max shear stress %0.2f N/mm**2",q_max2)
+printf("\n :Angle of twist per Unit Length %0.3f ",X2)