Try
Solve[Det[({{1, x, y}, {1, a, b}, {1, c, d}})] == 0, y][[1]] //Collect[#, x, Simplify] &
(*{y -> (-b c + a d)/(a - c) + ((b - d) x)/(a - c)}*)
Ulrich Neumann
- 56.9k
- 2
- 26
- 60