1

I have two huge tables with 7241 and 1469620 rows (700KB, 141MB)

listData = 
  Import["https://www.dropbox.com/s/s2p7sozkjt67tii/listdata.csv?dl=1", "CSV"];

whitepositions = 
  Import["https://www.dropbox.com/s/03qkfszuvq0qbut/whitepositions.csv?dl=1", "CSV"];

I have a Do loop and it takes a long time for running.

dl = DelaunayMesh[listData];
cells = MeshCells[dl, 2];
cellcoord = Map[MeshCoordinates[dl][[#]] &, cells, {2}];

Do[{mf[i] = RegionMember[cellcoord[[i]]];
tf[i] = mf[i][whitepositions];
tf[i] = Length[Cases[tf[i], True]]}, {i, 1, Length[cellcoord]}]

listData is a data stream of many seed points to generate a Delaunay mesh.

whitepositions is the white pixel coordinates from a binary image.

Is there any way to boost the efficiency?

Thank you!

Community
  • 1
Shuoqi Li
  • 185
  • 5
  • It would be easier for us to help if you described what it is that you're trying to achieve with the code. It seems like you're trying to count how many white pixels are in each cell, is that right? – yohbs May 19 '17 at 13:25
  • Yes, I want to count how many white pixels in every single Delaunay triangle. – Shuoqi Li May 20 '17 at 05:04
  • 1
    Quick and dirty method: Find the triangle with the closest center using Nearest and test only that one. If the test point is inside, you can skip testing all the other triangles. If it's not inside (hopefully rare), test all of them. – Niki Estner May 20 '17 at 09:26
  • As it is now, it takes two seconds per iteration, for 14455 steps that is more than 8 hours. @nikie can you provide an efficient implementation for your idea? – rhermans May 22 '17 at 10:19
  • 1
    @rhermans: To be honest, I won't bother for a question that has almost no value for anyone but the OP. This isn't a free coding service ;-) – Niki Estner May 22 '17 at 17:39
  • Closely related: https://mathematica.stackexchange.com/q/58395/367 – yohbs May 23 '17 at 00:28

0 Answers0