I have a system of algebraic equations that I am trying to solve on Mathematica. Unfortunately, the algebraic equations I have are degenerate so Mathematica will give an error "Solve::svars: Equations may not give solutions for all "solve" variables" when I try to solve for the variables.
I want to keep the variables that Mathematica does solve for, but somehow isolate the variables that Mathematica does not solve. For example, the output of my Solve command looks like this:
{{$d$r[1, 1, 1] -> -(27/8),
$d$r[1, 1, 2] -> -((9 Sqrt[3])/8),
$d$r[1, 1, 3] -> -$d$r[1, 2, 3] - $d$r[1, 3, 3] - $d$r[1, 4, 3] - 2/3 $d$r[2, 1, 3] - 2/3 $d$r[2, 2, 3] - 2/3 $d$r[2, 3, 3] - 2/3 $d$r[2, 4, 3] - 1/3 $d$r[3, 1, 3] - 1/3 $d$r[3, 2, 3] - 1/3 $d$r[3, 3, 3] - 1/3 $d$r[3, 4, 3], $d$r[1, 2,1] -> -(21/8),
$d$r[1, 2, 2] -> -((3 Sqrt[3])/8),
$d$r[1, 3, 1] -> -(15/8),
. . . .
$d$r[4, 1, 3] -> 1/3 $d$r[1, 2, 3] + 2/3 $d$r[1, 3, 3] + [Delta]r[1, 4, 3] - 1/3 $d$r[2, 1, 3] + 1/3 $d$r[2, 3, 3] + 2/3 $d$r[2, 4, 3] - 2/3 $d$r[3, 1, 3] - 1/3 $d$r[3, 2, 3] + 1/3 $d$r[3, 4, 3] - 2/3 $d$r[4, 2, 3] - 1/3 $d$r[4, 3, 3],
$d$r[4, 2, 1] -> 15/8,
$d$r[4, 2, 2] -> -((3 Sqrt[3])/8),
Clearly some of the variables converge to a value while the other variables such as $d$r[1,1,3] and $d$r[4, 1, 3] are expressed in terms of the other variables. Is there a way to isolate the undetermined variables on Mathematica?
