summaryrefslogtreecommitdiff
path: root/3774/CH6/EX6.6/Ex6_6.sce
diff options
context:
space:
mode:
Diffstat (limited to '3774/CH6/EX6.6/Ex6_6.sce')
-rw-r--r--3774/CH6/EX6.6/Ex6_6.sce23
1 files changed, 23 insertions, 0 deletions
diff --git a/3774/CH6/EX6.6/Ex6_6.sce b/3774/CH6/EX6.6/Ex6_6.sce
new file mode 100644
index 000000000..f2305b281
--- /dev/null
+++ b/3774/CH6/EX6.6/Ex6_6.sce
@@ -0,0 +1,23 @@
+// exa 6.6 Pg 176
+clc;clear;close;
+
+// Given Data
+Tmax=400;// N.mm
+Tmin=200;// N.mm
+Mmax=500;// N.mm
+Mmin=250;// N.mm
+Sut=540;// MPa
+Syt=420;// MPa
+n=2;// factor of safety
+
+Se=0.35*Sut;// MPa
+
+Mm=(Mmax+Mmin)/2;// N.m
+Ma=(Mmax-Mmin)/2;// N.m
+Tm=(Tmax+Tmin)/2;// N.m
+Ta=(Tmax-Tmin)/2;// N.m
+Sys=0.5*Syt// MPa
+Ses=0.5*Se;// MPa
+// Max. Distortion energy theory - Syt/n = 32/%pi/d**3*sqrt((Mm+Ma*(Syt/Se)**2)+0.75*(Tm+Ta*(Sys/Ses))**2)
+d = (32/%pi*sqrt((Mm+Ma*(Syt/Se))**2+0.75*(Tm+Ta*(Sys/Ses))**2)*1000/(Syt/n))**(1/3) ; // mm
+printf('shaft diameter = %.f mm.',d)