Guest User

Untitled

a guest
Feb 17th, 2018
88
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.66 KB | None | 0 0
  1. SolveAlways[5 d[1, 2] == a d[1, 2] + b d[1, 3], {d[1, 2], d[1, 3]}]
  2.  
  3. vector = 12 + 2 d[1, 2] + 2 d[1, 3] + 2 d[1, 4] - 2 d[1, 5] +
  4. 2 d[2, 3] - 2 d[2, 5] + 2 d[3, 4] - 2 d[3, 5] - 2 d[4, 5];
  5. basis = {1, d[1, 2] + d[1, 3] + d[1, 4] + d[2, 3] + d[3, 4],
  6. d[1, 5] + d[2, 5] + d[3, 5] + d[4, 5],
  7. d[1, 2] d[3, 4] + d[1, 3] d[2, 4] + d[1, 4] d[3, 2],
  8. d[1, 5] d[2, 3] + d[1, 5] d[2, 4] + d[1, 3] d[2, 5] +
  9. d[1, 4] d[2, 5] + d[1, 5] d[3, 4] + d[2, 5] d[3, 4] +
  10. d[1, 2] d[3, 5] + d[1, 4] d[3, 5] + d[2, 4] d[3, 5] +
  11. d[1, 2] d[4, 5] + d[1, 3] d[4, 5] + d[2, 3] d[4, 5]}
  12. len = Length[basis];
  13. SolveAlways[vector == Array[c, len].basis, Variables[basis]]
Add Comment
Please, Sign In to add comment