Advertisement
Guest User

Untitled

a guest
Jul 22nd, 2019
88
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.32 KB | None | 0 0
  1. FullSimplify[DSolve[x'[t] == a + b E^(g t) + (c + d E^(-g t)) x[t], x[t], t]]
  2.  
  3. a = 1; b = 2; c = 3; d = 4; g = 0.1; A = 1
  4. x[t_] := E^(-((d E^(-g t))/g) + c t) (A + Integrate[E^((d E^(-g K[1]))/g - c K[1]) (a + b E^(g K[1])), {K[1], 1, t}])
  5. Plot[x[t], {t, 1, 10}]
  6.  
  7. x[1]
  8.  
  9. 3.83926*10^-15
  10.  
  11. x[2]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement