Guest User

Untitled

a guest
Mar 22nd, 2018
76
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.43 KB | None | 0 0
  1. DSolve[{[CurlyEpsilon] fB +
  2. D[y[fB, a], {fB, 1}]/
  3. y[fB, a] ([CurlyEpsilon] [Gamma]B - c (fB - fbar)) +
  4. 1/2 [CurlyEpsilon] ([CurlyEpsilon] - 1) sD^2 +
  5. 1/2 D[y[fB, a], {fB, 2}]/y[fB, a] [Gamma]B^2 (1/sD^2 + 1/sS^2) -
  6. D[y[fB, a], {a, 1}]/y[fB, a] == 0, y[fB, 0] == 1}, y[fB, a], {fB, a}]
  7.  
  8. ySol[fB_, a_] := Exp[[CurlyEpsilon] (fbar (a) - 1/c (fB - fbar) (E^(-c a) - 1)) +
  9. 1/2 [CurlyEpsilon]^2 ([Gamma]B^2/sD^2 + [Gamma]B^2/
  10. sS^2) (1/c^2 a + 1/c^3 (E^(-c a) - 1) -
  11. 1/2 1/c^3 (E^(-c a) - 1)^2) +
  12. 1/2 [CurlyEpsilon] ([CurlyEpsilon] -
  13. 1) sD^2 a + [CurlyEpsilon]^2 [Gamma]B/
  14. c (a + 1/c (E^(-c a) - 1))];
  15.  
  16. D[ySol[fB, a], {fB, 1}]/ ySol[fB, a] == -(((-1 + E^(-a c)) [CurlyEpsilon])/c)
  17.  
  18. D[ySol[fB, a], {fB, 2}]/ ySol[fB, a] == ((-1 + E^(-a c))^2 [CurlyEpsilon]^2)/c^2
  19.  
  20. Integrate[[CurlyEpsilon] fB - ((-1 + E^(-c (a))) [CurlyEpsilon])/ c ([CurlyEpsilon] [Gamma]B - c (fB - fbar)) + 1/2 [CurlyEpsilon] ([CurlyEpsilon] - 1) sD^2 + 1/2 ((-1 + E^(-c (a)))^2 [CurlyEpsilon]^2)/ c^2 [Gamma]B^2 (1/sD^2 + 1/sS^2), a]
  21.  
  22. Temp[a_, fB_] := Exp[1/2 [CurlyEpsilon] (a (2 fbar +
  23. sD^2 (-1 + [CurlyEpsilon])) + (
  24. E^(-2 a c) (-1 + 4 E^(a c)) (sD^2 +
  25. sS^2) [Gamma]B^2 [CurlyEpsilon])/(
  26. 2 c^3 sD^2 sS^2) + ([Gamma]B (2 E^(-a c) +
  27. a (1/sD^2 + 1/sS^2) [Gamma]B) [CurlyEpsilon])/c^2 + (
  28. 2 E^(-a c) (-fB + fbar + a E^(a c) [Gamma]B [CurlyEpsilon]))/
  29. c)];
  30.  
  31. D[Temp[a, fB], {fB, 1}]/Temp[a, fB] == -((E^(-a c) [CurlyEpsilon])/c)
Add Comment
Please, Sign In to add comment