Advertisement
Guest User

Untitled

a guest
Aug 21st, 2019
91
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.53 KB | None | 0 0
  1. function [dydt] = odes2(t,y)
  2.  
  3. m=1;k=2;vb=0.1;mis=0.15;mik=0.1;g=9.81;Fn=m*g;Fs=mis*Fn;Fc=mik*Fn;vs=0.001;
  4. sigma1=sqrt(10e5);zmax=1.839e-6;zba=1.287e-6;
  5. sigma2=0.1;
  6. sigma0=10e5;
  7.  
  8. if(vb-y(2))<0
  9. alfa=0
  10. elseif y(3)<zba
  11. alfa=0
  12. elseif zba<y(3) && y(3)<zmax
  13. alfa=0.5*(sin(pi*(y(3)-(zmax+zba)/2)/(zmax-zba))+1)
  14. elseif zmax<y(3)
  15. alfa=1
  16. end
  17.  
  18. dydt(1)=y(2);
  19. dydt(3)=(vb-y(2))-(alfa*(sigma0*abs(vb-y(2)))/(Fc+(Fs-Fc)*exp(-((vb-y(2))/vs)^2)))*y(3);
  20. dydt(2)=1/m*(sigma1*dydt(3)+sigma0*y(3)+sigma2*(vb-y(2))-k*y(1));
  21.  
  22. dydt=dydt(:);
  23.  
  24. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement