Skip to main content
added 116 characters in body
Source Link
kglr
  • 400.5k
  • 18
  • 488
  • 929
ff1 = RegionDistance[#, #2] < #3]&

f1[Line[{{0, 0}, {1, 10.^-7}}], {.5, 0}, 10^-6]
(* True *)

f2 = Chop[RegionDistance[#, #2] ,#3] == 0&

f[Line[f2[Line[{{0, 0}, {1, 10.^-7}}], {.5, 0}, 10^-6]
(* True *)
f = Chop[RegionDistance[#, #2] ,#3] == 0&

f[Line[{{0, 0}, {1, 10.^-7}}],{.5, 0},10^-6]
(* True *)
f1 = RegionDistance[#, #2] < #3]&

f1[Line[{{0, 0}, {1, 10.^-7}}], {.5, 0}, 10^-6]
(* True *)

f2 = Chop[RegionDistance[#, #2] ,#3] == 0&

f2[Line[{{0, 0}, {1, 10.^-7}}], {.5, 0}, 10^-6]
(* True *)
Source Link
kglr
  • 400.5k
  • 18
  • 488
  • 929

f = Chop[RegionDistance[#, #2] ,#3] == 0&

f[Line[{{0, 0}, {1, 10.^-7}}],{.5, 0},10^-6]
(* True *)