Advertisement
Guest User

Untitled

a guest
Aug 21st, 2019
81
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.32 KB | None | 0 0
  1. (* a = 859433;
  2. b = 859317;
  3. c = 756839;
  4. d = 756725;*)
  5.  
  6. aMinvalue = 859000; (*range to check*)
  7. aMaxvalue = 859450;
  8.  
  9. (*constraints*)
  10. a > b > c > d
  11. x = Differences[{(c - d), (a - b)}]
  12. x[[1]] < 12
  13. EvenQ[x[[1]]]
  14.  
  15. x = (a - b)/(c - d)
  16. Numerator[x] == 58
  17. Denominator[x] == 57
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement