Facebook
From Unique Mosquito, 1 Year ago, written in Plain Text.
Embed
Download Paste or View Raw
Hits: 195
  1. %─ćwiczenie nr 2
  2. %Korzystaj─ůc ze wzor├│w na amplitud─Ö drga┼ä t┼éumionych narysuj wykres
  3. %zale┼╝no┼Ťci amplitudy od cz─Östo┼Ťci si┼éy wymuszaj─ůcej dla 3 r├│┼╝nych
  4. %współczynników tłumienia b dla podanych danych.
  5.  
  6. %F0=1
  7. %b0=0.1
  8. %b1=1
  9. %b2=10
  10. %wwym: 0:0.05:100
  11. %LpKM=3
  12. %MASA (m=290[g]=0,290[kg]
  13. %Wsp SPREŻYSTOŚCI: (k=98[N/m])
  14. k=98;
  15. f0=1;
  16. m=0.290;
  17. b0=0.1;
  18. b1=1;
  19. b2=10;
  20. %w0=k/m=98/0.290;
  21. w0=sqrt(k/m);
  22. wwym=0:0.05:100;
  23. w1=(w0^2-b0.^2)^(1/2);
  24. w2=(w0^2-b1.^2)^(1/2);
  25. w3=(w0^2-b2.^2)^(1/2);
  26.  
  27. A1=(f0/m).*(1./((wwym.^2-w1.^2).^2+4.*(b0.^2).*(w1.^2)).^(1/2));
  28. A2=(f0/m).*(1./((wwym.^2-w2.^2).^2+4.*(b1.^2).*(w2.^2)).^(1/2));
  29. A3=(f0/m).*(1./((wwym.^2-w3.^2).^2+4.*(b2.^2).*(w3.^2)).^(1/2));
  30.  
  31. hold;
  32.  
  33. plot(wwym,A1);
  34. plot(wwym,A2);
  35. plot(wwym,A3);
  36. title('A zale┼╝ne od cz─Östo┼Ťci si┼éy wymuszaj─ůcej');
  37. xlabel('omega[rad/s]');
  38. ylabel('Amplituda[m]');
  39. %====
  40. legend('b0','b1','b2')