diff options
Diffstat (limited to '1586/CH7/EX7.11/EXP7_11.sce')
| -rw-r--r-- | 1586/CH7/EX7.11/EXP7_11.sce | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/1586/CH7/EX7.11/EXP7_11.sce b/1586/CH7/EX7.11/EXP7_11.sce new file mode 100644 index 000000000..2cc8eb466 --- /dev/null +++ b/1586/CH7/EX7.11/EXP7_11.sce @@ -0,0 +1,13 @@ +clc;funcprot(0);//EXAMPLE 7.11
+// Initialisation of Variables
+N=5.256*10^5;......//No. of cycles that the shaft will experience in one year
+F=12500;.........//applied load on shaft in lb
+L=96;...........//Length of Kliin produced from tool steel in in.
+sigma1=72000;...........//the applied stress on Shaft
+f=2;............//Factor of saftey of shaft
+sigma2=sigma1/f;......//the maximum allowed stress level
+//CALCULATIONS
+d1=(16*F*L/(sigma1*%pi))^(1/3);..........//The Diameter of Shaft in in.
+d2=(16*F*L/(sigma2*%pi))^(1/3);.......//The minimum diameter required to prevent failure
+disp(d1,"The Diameter of Shaft in in.:")
+disp(d2,"The minimum diameter required to prevent failure in in.:")
|