Some posibilities to maximize
(eqs = {Subscript[y, 1] == Subscript[x, 1],
Subscript[y, 2] == 1/(1 + 1/Subscript[x, 2]),
Subscript[y, 3] == (1 - 2*Subscript[x, 1])/(1 + Subscript[x, 2]) +
Subscript[x, 1],
Subscript[y, 4] ==
2/((1 + 1/Subscript[x, 2]) + 1/Subscript[x, 1])}) // TableForm
Plot3D[eqs[[3, 2]], {Subscript[x, 1], 0, 1}, {Subscript[x, 2], 0,
100}]
cond = Flatten@{0 < Subscript[x, 1] <= 1, 0 < Subscript[x, 2],
Thread[0 <= {Subscript[y, 1], Subscript[y, 2], Subscript[y, 3],
Subscript[y, 4]} <= 1]}
Maximize everx yi independently
(max1 = Maximize[{#, cond}, {Subscript[x, 1], Subscript[x, 2],
Subscript[y, 1], Subscript[y, 2], Subscript[y, 3], Subscript[y,
4]}] & /@ {Subscript[y, 1], Subscript[y, 2], Subscript[y, 3],
Subscript[y, 4]}) // MatrixForm
Maximize sum of squared yi
sq = {Subscript[y, 1], Subscript[y, 2], Subscript[y, 3], Subscript[y,
4]}.{Subscript[y, 1], Subscript[y, 2], Subscript[y, 3], Subscript[
y, 4]}
(max2 = Maximize[{sq, cond}, {Subscript[x, 1], Subscript[x, 2],
Subscript[y, 1], Subscript[y, 2], Subscript[y, 3], Subscript[y,
4]}])
(* {4, {Subscript[x, 1] -> 1/2, Subscript[x, 2] -> 1,
Subscript[y, 1] -> 1, Subscript[y, 2] -> 1, Subscript[y, 3] -> 1,
Subscript[y, 4] -> 1}} *)
Maximize sum of yi
tot = Total@{Subscript[y, 1], Subscript[y, 2], Subscript[y, 3],
Subscript[y, 4]}
(max3 = Maximize[{tot, cond}, {Subscript[x, 1], Subscript[x, 2],
Subscript[y, 1], Subscript[y, 2], Subscript[y, 3], Subscript[y,
4]}])
(* {4, {Subscript[x, 1] -> 1, Subscript[x, 2] -> 1, Subscript[y, 1] -> 1,
Subscript[y, 2] -> 1, Subscript[y, 3] -> 1, Subscript[y, 4] -> 1}} *)