Advertisement
cyphric

Untitled

Oct 19th, 2019
151
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
MatLab 0.50 KB | None | 0 0
  1. function dv = quartercar(t,vvec)
  2. k1 = 5300;
  3. k2 = 163000;
  4. m1 = 470;
  5. m2 = 50;
  6. c1 = 310;
  7. c2 = 1200;
  8. v_param = 65/3.6;
  9. H_param = 0.2;
  10. v = 65/3.6;
  11. L = 1;
  12.  
  13. if t > L/v
  14.     h = 0;
  15.     h_prick = 0;
  16. else
  17.      h = (H_param/2)*(1-cos((2*pi*v_param*t)/L));
  18.      h_prick = (pi*H_param*v_param*sin((2*pi*v_param*t)/L))/L;
  19. end
  20. H = [0 0 1 0; 0 0 0 1; (-k1/m1), (k1/m1), (-c1/m1), (c1/m1); k1/m2, -((k1+k2/m2)), c1/m2, -((c1+c2)/m2)];
  21. g = [0;0;0;((k2*h)/m2) + ((c2*h_prick)/m2)];
  22.    
  23.  
  24. dv = H*vvec + g;
  25. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement