diff options
| author | prashantsinalkar | 2017-10-10 12:27:19 +0530 |
|---|---|---|
| committer | prashantsinalkar | 2017-10-10 12:27:19 +0530 |
| commit | 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch) | |
| tree | dbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /698/CH2/EX2.17/P17_design_of_overhanging_crank.sce | |
| parent | b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff) | |
| download | Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.gz Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.bz2 Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.zip | |
initial commit / add all books
Diffstat (limited to '698/CH2/EX2.17/P17_design_of_overhanging_crank.sce')
| -rw-r--r-- | 698/CH2/EX2.17/P17_design_of_overhanging_crank.sce | 65 |
1 files changed, 65 insertions, 0 deletions
diff --git a/698/CH2/EX2.17/P17_design_of_overhanging_crank.sce b/698/CH2/EX2.17/P17_design_of_overhanging_crank.sce new file mode 100644 index 000000000..dd547b195 --- /dev/null +++ b/698/CH2/EX2.17/P17_design_of_overhanging_crank.sce @@ -0,0 +1,65 @@ +clc
+//Example 2.17
+//Design of shaft of overhanging crank
+//------------------------------------------------------------------------------
+
+//Given data:
+//Loads
+P=2000 // N
+//Stresses
+Ss=75*(10^6) // MN/m^2
+
+//Distance of shaft from plane of action
+l1=0.3 // m
+//Distance of shaft from line of action
+l2=0.15 // m
+
+//Bending moment
+M=P*l2
+//Torsion
+T=P*l1
+
+//------------------------------------------------------------------------------
+//Function to standardize dimensions by choosing from available range
+funcprot(0)
+function [y]=stddim(x)
+ x=x*(10^3)
+ std=[1 2 3 4 5 6 8 9 10 12 15 18 20 24:2:60]
+ n=length(std)
+ for i=1:n
+ if (x<std(i)) then
+ y=std(i)
+ break
+ else
+ continue
+ end
+ end
+ y=y*(10^-3)
+endfunction
+//------------------------------------------------------------------------------
+
+res17=mopen(TMPDIR+'17_design_of_overhanging_crank.txt','wt')
+mfprintf(res17,"Let the diameter of shaft be d\n\n")
+//Bending stress
+mfprintf(res17,"Bending Stress Sx= M*c/I\n\twhere c=d/2\n\t\t I=(pi/64)*d^4\n\n")
+//Torsional shear Stress
+mfprintf(res17,'Shear stress Txy=T*r/J\n\twhere r=d/2\n\t\t J=(pi/32)*d^4\n\n')
+
+mfprintf(res17,'Maximum shear stress\n\tTmax=sqrt( ((Sx-Sy)/2)^2 + (Txy^2) )\n')
+mfprintf(res17,'where Tmax is 75MN/m^2 and Sy=0\n')
+
+mfprintf(res17,'diameter\n\td=( (16* sqrt( M^2 + T^2 )) / (Ss*pi) )^1/3\n\n')
+
+d=( (16* sqrt( M^2 + T^2 )) / (%pi*Ss) ) ^ (1/3)
+disp (d)
+mfprintf(res17,'The calculated diameter is %0.4f m',d)
+
+mfprintf(res17,'\nStandardizing the above value, we get\n')
+
+[ds]=stddim(d)
+
+mfprintf(res17,'\n\td=%0.4f m = %0.1f mm',ds,ds*10^3)
+mclose(res17)
+editor(TMPDIR+'17_design_of_overhanging_crank.txt')
+//------------------------------------------------------------------------------
+//-----------------------------End of program-----------------------------------
\ No newline at end of file |