Maximize[{Min[a, 1-2a, b, 1/2 (1-2b), c, d, 1-2c-2d, e, f, 1/2 (1-2e-2f)], e == 1/3-a-b-c && f == 2a+b-c-d-1/6}, {a, b, c, d, e, f}]

Uh oh! Wolfram|Alpha doesn't run without JavaScript.

Please enable JavaScript. If you don't know how, you can find instructionshere.Once you've done that, refresh this page to start using Wolfram|Alpha.