Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- FullSimplify[DSolve[x'[t] == a + b E^(g t) + (c + d E^(-g t)) x[t], x[t], t]]
- a = 1; b = 2; c = 3; d = 4; g = 0.1; A = 1
- 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}])
- Plot[x[t], {t, 1, 10}]
- x[1]
- 3.83926*10^-15
- x[2]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement