Revisions to Find duplicates in list of InfiniteLine

added 70 characters in body

Source Link

edited Sep 26, 2017 at 3:31

7.2k
3
26
67

After version 11.1

lines={ InfiniteLine[{{0,0},{1,0}}], InfiniteLine[{{0,0},{2,0}}],
        InfiniteLine[{{0,1},{1,0}}], InfiniteLine[{{0,1},{4,-3}}] };

DeleteDuplicates[lines, RegionEqual]

{InfiniteLine[{{0, 0}, {1, 0}}], InfiniteLine[{{0, 1}, {1, 0}}]}

After version 11.1

lines={ InfiniteLine[{{0,0},{1,0}}], InfiniteLine[{{0,0},{2,0}}],
        InfiniteLine[{{0,1},{1,0}}], InfiniteLine[{{0,1},{4,-3}}] };

DeleteDuplicates[lines, RegionEqual]

After version 11.1

lines={ InfiniteLine[{{0,0},{1,0}}], InfiniteLine[{{0,0},{2,0}}],
        InfiniteLine[{{0,1},{1,0}}], InfiniteLine[{{0,1},{4,-3}}] };

DeleteDuplicates[lines, RegionEqual]

{InfiniteLine[{{0, 0}, {1, 0}}], InfiniteLine[{{0, 1}, {1, 0}}]}

deleted 9 characters in body

Source Link

edited Sep 26, 2017 at 2:53

matrix42

7.2k
3
26
67

After version 11.1

lines={ InfiniteLine[{{0,0},{1,0}}], InfiniteLine[{{0,0},{2,0}}],
        InfiniteLine[{{0,1},{1,0}}], InfiniteLine[{{0,1},{4,-3}}] };
  
DeleteDuplicates[lines, RegionEqual[#, #2] &]RegionEqual]

After version 11.1

lines={InfiniteLine[{{0,0},{1,0}}],InfiniteLine[{{0,0},{2,0}}],
       InfiniteLine[{{0,1},{1,0}}],InfiniteLine[{{0,1},{4,-3}}]};
 DeleteDuplicates[lines, RegionEqual[#, #2] &]

After version 11.1

lines={ InfiniteLine[{{0,0},{1,0}}], InfiniteLine[{{0,0},{2,0}}],
        InfiniteLine[{{0,1},{1,0}}], InfiniteLine[{{0,1},{4,-3}}] };
 
DeleteDuplicates[lines, RegionEqual]

Source Link

created Sep 26, 2017 at 2:41

matrix42

7.2k
3
26
67

After version 11.1

lines={InfiniteLine[{{0,0},{1,0}}],InfiniteLine[{{0,0},{2,0}}],
       InfiniteLine[{{0,1},{1,0}}],InfiniteLine[{{0,1},{4,-3}}]};
 DeleteDuplicates[lines, RegionEqual[#, #2] &]

Stack Exchange Network

Return to Answer