Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- With[{b = 1}, Plot[fBH[b, h], {h, b (Sqrt@7 - 2), b/(Sqrt@7 - 2)},
- Filling -> Axis, Axes -> False, Frame -> True, GridLines ->
- {{aMax[b, 10], b (Sqrt@7 - 2), b/(Sqrt@7 - 2)}, {0, fBH[b, aMax[b, 10]]}}]]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
