Advertisement
Guest User

Untitled

a guest
May 18th, 2012
67
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.35 KB | None | 0 0
  1. ClearAll["Global`*"] // Simplify
  2. lhs = D[\[Rho][s]^\[Gamma], s];
  3. sol = \[Rho][s] /.
  4. DSolve[{lhs == -c1 \[Rho][s] s, \[Rho][0] == \[Rho]0}, \[Rho][s],
  5. s][[1]];
  6. assume = s > 0 && \[Rho]0 > 0 && c1 > 0 && \[Gamma] > 1;
  7. smax = Solve[sol == 0, s] // Simplify[#, Assumptions -> assume] &
  8. If[Refine[(smax /. #) > 0, assume], #, ## &[]] & /@ smax
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement