Guest User

Untitled

a guest
Jun 18th, 2018
78
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.47 KB | None | 0 0
  1. bigG2[Qb_, d_, α_, μ_, c_] := FindRoot[1/2 (1 + α (-1 + γt)^2 - γt^2) - (
  2. d Qb (α + γt - α γt))/(
  3. c + α (-1 + γt) μ) == 0, {γt, 1/10}][[1, 2]]
  4.  
  5.  
  6. bigF2[Qb_, d_, α_, μ_, c_] :=c - d bigG2[Qb, d, α, μ,c] - α (1 - bigG2[Qb, d, α, μ, c]) (d + μ)
  7.  
  8. var = {μ -> 1, d -> 40/100, c -> 35/100}
  9.  
  10. RegionPlot[{bigF2[Qb, d, α /. var, μ /. var, c /. var] <
  11. 0 && (α μ)/(1 - α) < c &&
  12. Qb < ((1 + α) (c - α μ))/(2 d α) /. var}, {Qb, 0, 4}, {α, 0, 1 /. var}]
Add Comment
Please, Sign In to add comment