SHARE
TWEET

Untitled

a guest Jun 25th, 2019 45 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. `Do[threetest =
  2. MatrixRank[{{threepoints[[i]][[2]][[1]] -
  3. threepoints[[i]][[1]][[1]],
  4. threepoints[[i]][[2]][[2]] - threepoints[[i]][[1]][[2]]},
  5. {threepoints[[i]][[3]][[1]] - threepoints[[i]][[1]][[1]],
  6. threepoints[[i]][[3]][[2]] - threepoints[[i]][[1]][[2]]}}];
  7. If[threetest < 2, Break[], 1], {i, Binomial[n, 3]}]`
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top