Skip to content

Instantly share code, notes, and snippets.

@phoeagon

phoeagon/gist:6250455

Created August 16, 2013 14:35
Show Gist options
  • Save phoeagon/6250455 to your computer and use it in GitHub Desktop.
Save phoeagon/6250455 to your computer and use it in GitHub Desktop.
Download ZIP
Mathematica
Raw
gistfile1.txt
Solve[0 == (a*x1 + b*y1 + c) && 0 == (d*x1 + e*y1 + f) &&
A (g*x2 + h*y2 + 1) == (a*x2 + b*y2 + c) && 0 == (d*x2 + e*y2 + f) &&
0 == (a*x3 + b*y3 + c) &&
A (g*x3 + h*y3 + 1) == (d*x3 + e*y3 + f) &&
A (g*x4 + h*y4 + 1) == (a*x4 + b*y4 + c) &&
A (g*x4 + h*y4 + 1) == (d*x4 + e*y4 + f), {a, b, c, d, e, f, g, h}]
-------------------------------------------------------------------------------------
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment