diff options
Diffstat (limited to '698/CH16')
| -rw-r--r-- | 698/CH16/EX16.2/2_Determination_of_leaf_thickness.txt | 11 | ||||
| -rw-r--r-- | 698/CH16/EX16.2/P2_determination_of_leaf_thickness.sce | 37 | ||||
| -rw-r--r-- | 698/CH16/EX16.3/3_design_of_leaf_spring.txt | 12 | ||||
| -rw-r--r-- | 698/CH16/EX16.3/P3_design_of_leaf_spring.sce | 35 | ||||
| -rw-r--r-- | 698/CH16/EX16.5/5_number_of_coils_helical_spring.txt | 13 | ||||
| -rw-r--r-- | 698/CH16/EX16.5/P5_number_of_coils_helical_spring.sce | 37 |
6 files changed, 145 insertions, 0 deletions
diff --git a/698/CH16/EX16.2/2_Determination_of_leaf_thickness.txt b/698/CH16/EX16.2/2_Determination_of_leaf_thickness.txt new file mode 100644 index 000000000..f9463cd72 --- /dev/null +++ b/698/CH16/EX16.2/2_Determination_of_leaf_thickness.txt @@ -0,0 +1,11 @@ +y=(12*F*(L^3))/(b*(t^3)*((2*ng)+(3*ne))*E)
+thickness t=12.323 mm
+
+With extra full length leaf pre-stressed,
+s = (6*F*L)/(n*b*(t^2))
+ =195 MN/m^2
+
+With no pre-stresses,
+se=(18*F*L)/(b*(t^2)*((2*ng)+(3*ne)))
+ 277 MN/m2
+
diff --git a/698/CH16/EX16.2/P2_determination_of_leaf_thickness.sce b/698/CH16/EX16.2/P2_determination_of_leaf_thickness.sce new file mode 100644 index 000000000..70572e38f --- /dev/null +++ b/698/CH16/EX16.2/P2_determination_of_leaf_thickness.sce @@ -0,0 +1,37 @@ +clc
+//Example 16.2
+// Determination of pressure intensity
+
+//------------------------------------------------------------------------------
+//Given Data:
+L=1
+ne=1
+ng=8
+b=0.045
+F=2000
+E=200*(10^9)
+y=0.075
+// With initial prestress,
+
+// y= (12*F*(L^3))/(b*(t^3)*((2*ng)+(3*ne))*E)
+t=((12*F*(L^3))/(y*b*((2*ng)+(3*ne))*E))^(1/3)
+
+n=ng+1
+s=(6*F*L)/(n*b*(t^2))
+//with no prestress,
+
+se=(18*F*L)/(b*(t^2)*((2*ng)+(3*ne)))
+
+//Printing result file to .txt
+res2= mopen(TMPDIR+'2_Determination_of_leaf_thickness.txt','wt')
+mfprintf(res2,'y=(12*F*(L^3))/(b*(t^3)*((2*ng)+(3*ne))*E)\n')
+mfprintf(res2,'thickness t=%0.3f mm\n\n',t* 10^3)
+mfprintf(res2,'With extra full length leaf pre-stressed,\n')
+mfprintf(res2,'s = (6*F*L)/(n*b*(t^2))\n\t=%d MN/m^2\n\n',(s*(10^-6)))
+mfprintf(res2,'With no pre-stresses,\n')
+mfprintf(res2,'se=(18*F*L)/(b*(t^2)*((2*ng)+(3*ne)))\n\t %d MN/m2\n\n",(se*(10^-6)))
+mclose(res2);
+editor(TMPDIR+'2_Determination_of_leaf_thickness.txt')
+
+//------------------------------------------------------------------------------
+//--------------------------------End of program--------------------------------
\ No newline at end of file diff --git a/698/CH16/EX16.3/3_design_of_leaf_spring.txt b/698/CH16/EX16.3/3_design_of_leaf_spring.txt new file mode 100644 index 000000000..e1cb2f1af --- /dev/null +++ b/698/CH16/EX16.3/3_design_of_leaf_spring.txt @@ -0,0 +1,12 @@ +(a) Bending stress s=(6*F*L)/(n*b*(t^2))
+deflection y= (12*F*(L^3))/(b*(t^3)*n*E)
+
+(b) From above,
+ s/y = Et/L^2
+t=19.125 mm
+
+(c) Strain energy of cantilever leaf spring
+ =s^2/ 6E * Volume of spring
+The width is 19.30f mm
+The thickness can be taken as 20.00 mm
+The width can be taken as 20.00 mm
diff --git a/698/CH16/EX16.3/P3_design_of_leaf_spring.sce b/698/CH16/EX16.3/P3_design_of_leaf_spring.sce new file mode 100644 index 000000000..8dd4f3407 --- /dev/null +++ b/698/CH16/EX16.3/P3_design_of_leaf_spring.sce @@ -0,0 +1,35 @@ +clc
+//Example 16.3
+// Design of leaf spring
+
+//------------------------------------------------------------------------------
+//Given Data:
+
+s=850*(10^6)
+y=0.125
+E=200*(10^9)
+L=0.75
+
+res3= mopen(TMPDIR+'3_design_of_leaf_spring.txt','wt')
+mfprintf(res3,'(a) Bending stress s=(6*F*L)/(n*b*(t^2))\n')
+mfprintf(res3,'deflection y= (12*F*(L^3))/(b*(t^3)*n*E)\n\n')
+
+t=(s*(L^2))/(y*E)
+mfprintf(res3,'(b) From above,\n\ts/y = Et/L^2\n')
+mfprintf(res3,'t=%0.3f mm\n\n',t*(10^3))
+
+mfprintf(res3,'(c) Strain energy of cantilever leaf spring\n')
+mfprintf(res3,'\t=s^2/ 6E * Volume of spring\n')
+Se=500
+n=6
+b=(Se*6*E*2)/((s^2)*n*t*L)
+mfprintf(res3,'The width is %0.2ff mm\n',b*(10^3))
+
+mfprintf(res3,"The thickness can be taken as %0.2f mm\n",ceil(t* 10^3))
+mfprintf(res3,"The width can be taken as %0.2f mm\n",ceil(b* 10^3))
+
+mclose(res3);
+editor(TMPDIR+'3_design_of_leaf_spring.txt')
+
+//------------------------------------------------------------------------------
+//--------------------------------End of program--------------------------------
\ No newline at end of file diff --git a/698/CH16/EX16.5/5_number_of_coils_helical_spring.txt b/698/CH16/EX16.5/5_number_of_coils_helical_spring.txt new file mode 100644 index 000000000..fa93113b1 --- /dev/null +++ b/698/CH16/EX16.5/5_number_of_coils_helical_spring.txt @@ -0,0 +1,13 @@ +C= D/d
+D=9.6 mm
+
+Wahl factor
+K= ((4*C -1)/(4*C -1)) + (0.615/C)
+ =1.10
+
+F/y = dG/8*n*C^3
+n=41.15 turns
+
+F= 52.43 N
+
+The deflection should be limited to 29.13 mm
diff --git a/698/CH16/EX16.5/P5_number_of_coils_helical_spring.sce b/698/CH16/EX16.5/P5_number_of_coils_helical_spring.sce new file mode 100644 index 000000000..61370003d --- /dev/null +++ b/698/CH16/EX16.5/P5_number_of_coils_helical_spring.sce @@ -0,0 +1,37 @@ +clc
+//Example 16.5
+// Number of coils in helical spring
+
+//------------------------------------------------------------------------------
+//Given Data:
+
+d=1.6e-3
+C=6
+Ss=345e6
+k=1800
+G=80e9
+
+res5= mopen(TMPDIR+'5_number_of_coils_helical_spring.txt','wt')
+
+mfprintf(res5,'C= D/d\n')
+D= C*d
+mfprintf(res5,'D=%0.1f mm\n\n',D* 10^3)
+
+K= ((4*C -1)/(4*C -1)) + (0.615/C)
+mfprintf(res5,'Wahl factor\n')
+mfprintf(res5,'K= ((4*C -1)/(4*C -1)) + (0.615/C)\n\t=%0.2f\n\n',K)
+
+n=(d*G)/(k*8* C^3)
+mfprintf(res5,'F/y = dG/8*n*C^3\n')
+mfprintf(res5,'n=%0.2f turns\n\n',n)
+
+F= (Ss*%pi* d^3)/(K*8*D)
+mfprintf(res5,'F= %0.2f N\n\n',F)
+
+mfprintf(res5,"The deflection should be limited to %0.2f mm\n",F/k * 10^3)
+
+mclose(res5);
+editor(TMPDIR+'5_number_of_coils_helical_spring.txt')
+
+//------------------------------------------------------------------------------
+//--------------------------------End of program--------------------------------
\ No newline at end of file |