Evaluation taking extremely long

I am trying to solve the following:

\[Beta] = ArcCos[((-2 a^2 b^2 c x + 2 b^2 c^3 x - 2 a^2 b^2 r x - 4 a^2 b c r x - 4 a b^2 c r x + 6 b^2 c^2 r x + 4 b c^3 r x - 4 a^2 b r^2 x - 4 a b^2 r^2 x - 2 a^2 c r^2 x - 8 a b c r^2 x + 4 b^2 c r^2 x + 12 b c^2 r^2 x + 2 c^3 r^2 x - 2 a^2 r^3 x - 8 a b r^3 x - 4 a c r^3 x + 8 b c r^3 x + 6 c^2 r^3 x - 4 a r^4 x + 4 c r^4 x - 4 a b^2 c x^2 - 4 a b^2 r x^2 - 8 a b c r x^2 - 4 b^2 c r x^2 - 8 a b r^2 x^2 - 4 b^2 r^2 x^2 - 4 a c r^2 x^2 - 8 b c r^2 x^2 - 4 a r^3 x^2 - 8 b r^3 x^2 - 4 c r^3 x^2 - 4 r^4 x^2 + \[Sqrt](-(c + r)^2 (a^2 - b^2 - 2 b r + 2 r x + 2 a (r + x) + 2 (b + r) x Cos[\[Alpha]])^2 Csc[\[Alpha]]^2 ((a - c) (b + r)^2 (a + c + 2 r) (a - c + 2 x) (a + c + 2 (r + x)) - 4 (b + r)^2 (c + r)^2 x^2 Cot[\[Alpha]]^2 - 4 (b + r) (c + r)^2 x (a^2 - b^2 - 2 b r + 2 r x + 2 a (r + x)) Cot[\[Alpha]] Csc[\[Alpha]] - (c + r)^2 (a^2 - b^2 - 2 b r + 2 r x + 2 a (r + x))^2 Csc[\[Alpha]]^2))) Sin[\[Alpha]]^2)/((c + r)^2 (a^4 + b^4 + 4 b^3 r + 4 b^2 r^2 - 4 b^2 r x - 8 b r^2 x + 4 b^2 x^2 + 8 b r x^2 + 8 r^2 x^2 + 4 a^3 (r + x) - 4 a (r + x) (b^2 + 2 b r - 2 r x) - 2 a^2 (b^2 + 2 b r - 2 (r^2 + 3 r x + x^2)) + 4 (b + r) x (a^2 - b^2 - 2 b r + 2 r x + 2 a (r + x)) Cos[\[Alpha]]))] Solve[\[Alpha] == ArcCos[((-2 a^2 b c^2 x + 2 b^3 c^2 x - 4 a^2 b c r x + 4 b^3 c r x - 2 a^2 c^2 r x - 4 a b c^2 r x + 6 b^2 c^2 r x - 2 a^2 b r^2 x + 2 b^3 r^2 x - 4 a^2 c r^2 x - 8 a b c r^2 x + 12 b^2 c r^2 x - 4 a c^2 r^2 x + 4 b c^2 r^2 x - 2 a^2 r^3 x - 4 a b r^3 x + 6 b^2 r^3 x - 8 a c r^3 x + 8 b c r^3 x - 4 a r^4 x + 4 b r^4 x - 4 a b c^2 x^2 - 8 a b c r x^2 - 4 a c^2 r x^2 - 4 b c^2 r x^2 - 4 a b r^2 x^2 - 8 a c r^2 x^2 - 8 b c r^2 x^2 - 4 c^2 r^2 x^2 - 4 a r^3 x^2 - 4 b r^3 x^2 - 8 c r^3 x^2 - 4 r^4 x^2 + \[Sqrt]((b + r)^2 (a^2 - c^2 - 2 c r + 2 r x + 2 a (r + x) + 2 (c + r) x Cos[\[Beta]])^2 Csc[\[Beta]]^2 (-((a -  b) (c + r)^2 (a + b + 2 r) (a - b + 2 x) (a + b +  2 (r + x))) + 4 (b + r)^2 (c + r)^2 x^2 Cot[\[Beta]]^2 + 4 (b + r)^2 (c + r) x (a^2 - c^2 - 2 c r + 2 r x +   2 a (r + x)) Cot[\[Beta]] Csc[\[Beta]] + (b + r)^2 (a^2 - c^2 - 2 c r + 2 r x + 2 a (r + x))^2 Csc[\[Beta]]^2))) Sin[\[Beta]]^2)/((b +  r)^2 (a^4 + c^4 + 4 c^3 r + 4 c^2 r^2 - 4 c^2 r x - 8 c r^2 x + 4 c^2 x^2 + 8 c r x^2 + 8 r^2 x^2 + 4 a^3 (r + x) - 4 a (r + x) (c^2 + 2 c r - 2 r x) - 2 a^2 (c^2 + 2 c r - 2 (r^2 + 3 r x + x^2)) + 4 (c + r) x (a^2 - c^2 - 2 c r + 2 r x + 2 a (r + x)) Cos[\[Beta]]))], \[Alpha]] 

I realise that these are complex expressions, and it makes sense that Wolfram Mathematica / my computer is having a hard time, but I need to know if I am going to wait a few more hours or a few more years.

QUESTIONS:

Is there anyway I could get a ETA for when the evaluation will be done?

Do you have any suggestions to speed up the process?

Is there perhaps a strong VPS/ remote desktop service you can recommend that will be able to solve this faster?

I see Mathematica is only using 25% of my CPU, can i increase this?