New answers tagged

3

This doesn't answer your question, but hopefully provides an alternate approach where you don't need to worry about pattern matching issues when doing replacements. The following function (inspired by chyanog's answer to a related question) is a more programmatic way to denest some radical expressions: denestSqrt[e_, domain_, x_] := Replace[ y /. Solve[...


0

It seems to work in MMA 12.1: r1 = Sqrt[(1 - 2 x) (2 - x + 2 Sqrt[1 - x - 2 x^2])] -> a; r2 = Sqrt[(-1 + 2 x) (2 - x + 2 Sqrt[1 - x - 2 x^2])] -> b; expr = Sqrt[(1 - 2 x) (2 - x + 2 Sqrt[1 - x - 2 x^2])] + Sqrt[(-1 + 2 x) (2 - x + 2 Sqrt[1 - x - 2 x^2])]; expr /. r1 expr /. r2 expr /. {r1, r2} If you still have problems, please document an error ...


Top 50 recent answers are included