• API
• FAQ
• Tools
• Archive
SHARE
TWEET

# TribMike

a guest Feb 27th, 2020 82 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
1. format long
2. clc
3. clear all
4.
6. % Givna konstanter, samband och värden
7. M0 = 6;
8. n0 = 1800;
9. k = 119;
10. R = 0.025;
11. alfaN = 20; % grader
12. beta = 18; % grader
13. sigmaTN = 2.9E8;
14.
15. nmin = 0.25*n0;
16.
17. n = nmin;
18. M = M0*(1-n/n0);
19. F = k*M;
20.
21. Fh = M/R;
22. Fv = M*tand(alfaN)/(R*cosd(beta));
23. Fa = M*tand(beta)/R;
24.
25. T = 80;
26. etac = 0.2;
27.
29. % Gissade värden på bredd
30. bA = 0.01;
31. bB = 0.01;
32.
33. % Krafter
34. FBa = F - Fa
35. FBv = (Fv*(0.03/2 + bA/2) - Fa*R)/(0.03 + bA/2 + bB/2);
36. FAv = Fv - FBv;
37. FAh = Fh*(0.03/2 + bA/2)/(0.03 + bA/2 + bB/2);
38. FBh = Fh - FAh;
39.
40. FAr = sqrt(FAv^2 + FAh^2)
41. FBr = sqrt(FBv^2 + FBh^2)
42.
43. % Gissade värden på spänningskoncentrationsfaktorer
44. alfaAv = 2;
45. alfaAb = 2;
46. alfaBb = 2;
47.
48. % Lagerdiameter
49.
50. dA = (1/(pi*sigmaTN)^2*((16*alfaAb*FAr*bA)^2 + 3*(alfaAv*16*M)^2))^(1/6)
51.
52. dB = (16*alfaBb*FBr*bB/(pi*sigmaTN))^(1/3)
53.
54.
56. L10h = 20E3;
57.
58. CA = ((L10h*60*nmin)/1E6)^(1/3) * FAr
59.
60. CB = ((L10h*60*nmin)/1E6)^(1/3) * (0.56*FBr + 1*FBa)
61.
62.
64. f0 = 13;
65. C0 = 2.36E3;
66.
67. f = f0*FBa/C0
68.
69. % Linjär interpolation
70. f1 = 2.07;
71. f2 = 3.45;
72. Y1 = 1.31;
73. Y2 = 1.15;
74.
75. Y = Y1 + (f-f1)*(Y2-Y1)/(f2-f1);
76.
77. % Nya värden på spänningskoncentrationsfaktorer och bredd ger nya d och C
78. bAny = 0.0035;
79. bBny = 0.009;
80. alfaAvny = 1.8;
81. alfaAbny = 2.9;
82. alfaBbny = 1.9;
83.
84. % Nya krafter pga nya alfa och b
85. FBvny = (Fv*(0.03/2 + bAny/2) - Fa*R)/(0.03 + bAny/2 + bBny/2);
86. FAvny = Fv - FBvny;
87. FAhny = Fh*(0.03/2 + bAny/2)/(0.03 + bAny/2 + bBny/2);
88. FBhny = Fh - FAhny;
89.
90. FArny = sqrt(FAvny^2 + FAhny^2);
91. FBrny = sqrt(FBvny^2 + FBhny^2);
92.
93.
94. dAny = (1/(pi*sigmaTN)^2*((16*alfaAbny*FArny*bAnyny)^2 + 3*(alfaAvny*16*M)^2))^(1/6)
95. CAny = ((L10h*60*nmin)/1E6)^(1/3) * FArny
96.
97. dBny = (16*alfaBbny*FBrny*bBny/(pi*sigmaTN))^(1/3)
98. CBny = ((L10h*60*nmin)/1E6)^(1/3) * (0.56*FBrny + Y*FBa)
99.
100.
101. % Testa igen med 619/7 och *6200
102.
103. % Nya värden på spänningskoncentrationsfaktorer och bredd
104. bAnyny = 0.005;
105. bBny = 0.009;
106. alfaAvnyny = 1.7;
107. alfaAbnyny = 2.1;
108. alfaBbny = 1.9;
109.
110. % Nya krafter pga nya alfa och b
111. FBvny = (Fv*(0.03/2 + bAnyny/2) - Fa*R)/(0.03 + bAnyny/2 + bBny/2);
112. FAvny = Fv - FBvny;
113. FAhny = Fh*(0.03/2 + bAnyny/2)/(0.03 + bAnyny/2 + bBny/2);
114. FBhny = Fh - FAhny;
115.
116. FArny = sqrt(FAvny^2 + FAhny^2);
117. FBrny = sqrt(FBvny^2 + FBhny^2);
118.
119. dAverk = 0.007;
120. dBverk = 0.010;
121.
122. sigmaAjmf = sqrt((alfaAbnyny*32*FArny*bAnyny/2/(pi*dAverk^3))^2 + 3*(alfaAvnyny*16*M/(pi*dAverk^3))^2)
123. sigmaBjmf = (alfaBbny*32*FBrny*(bBny/2))/(pi*dBverk^3)
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.
Top