Guest User

Untitled

a guest
Jan 18th, 2019
98
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.37 KB | None | 0 0
  1. U = DSolveValue[ {D[u[t] , t] - (F/m) + (b/m)*u[t] == 0 }, u, t]
  2. (*Function[{t}, F/b + E^(-((b t)/m)) C[1]]*)
  3.  
  4. X = DSolveValue[{x[t] x'[t] == U[t] }, x, t]
  5. (*Function[{t}, -((Sqrt[2] Sqrt[F t - E^(-((b t)/m)) m C[1] + b C[2]])/Sqrt[b])]*)
  6.  
  7. {X[0], X'[0]}
  8. (*{-((Sqrt[2] Sqrt[-m C[1] + b C[2]])/Sqrt[b]), -((F + b C[1])/(Sqrt[2] Sqrt[b] Sqrt[-m C[1] + b C[2]]))}*)
Add Comment
Please, Sign In to add comment