cyphric

Untitled

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