Revisions to How to reduce this equation to the form of y == k*x + b

added 110 characters in body

Source Link

edited Jan 16, 2020 at 10:22

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)}*)

create equation

(% /. Rule -> Equal) [[1]]
(*y == (-b c + a d)/(a - c) + ((b - d) x)/(a - c)*)

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)}*)

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)}*)

create equation

(% /. Rule -> Equal) [[1]]
(*y == (-b c + a d)/(a - c) + ((b - d) x)/(a - c)*)

Post Undeleted by Ulrich Neumann

occurred Jan 16, 2020 at 10:15

Post Deleted by Ulrich Neumann

occurred Jan 16, 2020 at 10:13

Source Link

created Jan 16, 2020 at 10:13

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)}*)

Return to Answer