You may contact me at: BelisariusForSO@gmail.com
But please don't email me with requests about Q&A. Post them in the site instead.
theData = RandomReal[NormalDistribution[], {10000, 2}]; i = Image@ ListPlot[theData, PlotStyle -> {Black, Opacity[.3]}, Axes -> False] Lighter@Lighter@i
Export["Group" <> ToString[#[[1, 2]]] <> ".txt", #[[All, {1, 3}]], "TSV"] & /@ groups
ClearAll
sol[]
InterpolatingFunctionAnatomy