In[]:=
DSolve[{M'[t]1/4500(660-M[t])M[t]-10,M[0]100},M[t],t]
Out[]=
M[t]
3004++
71
-471
t75
71
71
t75
23+3+3
71
-2371
t75
71
71
t75
In[]:=
SolveAlways==,t
3004++
71
-471
t75
71
71
t75
23+3+3
71
-2371
t75
71
71
t75
150at+b
71
75
E
55t+c
71
75
E
