Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- bigG2[Qb_, d_, α_, μ_, c_] := FindRoot[1/2 (1 + α (-1 + γt)^2 - γt^2) - (
- d Qb (α + γt - α γt))/(
- c + α (-1 + γt) μ) == 0, {γt, 1/10}][[1, 2]]
- bigF2[Qb_, d_, α_, μ_, c_] :=c - d bigG2[Qb, d, α, μ,c] - α (1 - bigG2[Qb, d, α, μ, c]) (d + μ)
- var = {μ -> 1, d -> 40/100, c -> 35/100}
- RegionPlot[{bigF2[Qb, d, α /. var, μ /. var, c /. var] <
- 0 && (α μ)/(1 - α) < c &&
- Qb < ((1 + α) (c - α μ))/(2 d α) /. var}, {Qb, 0, 4}, {α, 0, 1 /. var}]
Add Comment
Please, Sign In to add comment