, , , "a". ( ) g (a, z) = 0, . g ^ 2 - (z - a) * (z - 2 * a) == 0. Groebnerbasis, ( , ).
grelation = First[GroebnerBasis[g - Sqrt[(z - a)*(z - 2*a)], {x, a, g}]]
Out [472] = 2 a ^ 2 - g ^ 2 - 3 a z + z ^ 2
'a' , g () . , , , g ( ). , , , "z" a.
Solve[Eliminate[{grelation == 0, D[grelation, g] == 0}, g], z]
Out [481] = {{z → a}, {z → 2 a}}
Wolfram Research