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.  
  5. %%  Inlämningsuppgift Tribologi
  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.  
  28. %% Uppgift 3
  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.  
  55. %% Uppgift 4
  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.  
  63. %% Uppgift 5
  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. OK, I Understand
Top