Message Boards Message Boards

0
|
1834 Views
|
2 Replies
|
2 Total Likes
View groups...
Share
Share this post:

Putting a differential equation into a certain form

Posted 2 years ago

Hi guys so I have this differential equation

DSolve[{M'[t] == 1/4500 (660 - M[t]) M[t] - 10, M[0] == 100}, M[t], t] 

which gives me a result

(300 (4 + Sqrt[71] - 4 E^((Sqrt[71] t)/75) + 
Sqrt[71] E^((Sqrt[71] t)/75)))/(23 + 3 Sqrt[71] - 
23 E^((Sqrt[71] t)/75) + 3 Sqrt[71] E^((Sqrt[71] t)/75))

that I need to get into the form (150 (b + a E^((Sqrt[71] t)/75)))/(c + 55 E^((Sqrt[71] t)/75)) and I need to find a,b,c I have tried solve always but no luck is there any command that I can use to find a,b,c?

POSTED BY: Vedansh Malhan
2 Replies

Simplify does it already. However, you can use SolveAlways by setting the exponential to a new symbol:

sol = DSolveValue[{M'[t] == 1/4500 (660 - M[t]) M[t] - 10, 
    M[0] == 100}, M[t], t];
preferredForm = (150 (b + a E^((Sqrt[71] t)/75)))/(c + 
     55 E^((Sqrt[71] t)/75));
SolveAlways[preferredForm == sol /. E^((Sqrt[71] t)/75) -> x, x]
sol /. %[[1]]
POSTED BY: Gianluca Gorni
Posted 2 years ago

Thank you so much that worked.

POSTED BY: Vedansh Malhan
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract