406 reputation
29
bio website
location
age
visits member for 2 years, 9 months
seen Sep 28 at 18:45

Jul
2
awarded  Curious
Jul
1
awarded  Popular Question
May
14
asked Assuming seems not working and “Solve::svars: Equations may not give solutions for all ”solve“ variables.” issue
Feb
5
awarded  Yearling
Jan
7
awarded  Custodian
Jan
7
reviewed Approve suggested edit on How to generate the following partitions
Jan
7
comment How to generate the following partitions
hi all, I've updated the example, as Daniel pointed out an mistake I made. Does this now make more sense?
Jan
7
comment How to generate the following partitions
Hi Daniel(my old friend!), you are definitely right! I missed that part initially. Also, I am not sure how to complete the larger example on my own, since it is quite complex. :(
Jan
7
revised How to generate the following partitions
edited body
Jan
7
comment How to generate the following partitions
I know it is difficult to give a rigorous definition. I am not sure how to describe. But I have a vague idea: try to partition the elements as evenly as possible, or maybe the sum of common elements between any two sets is minimized?
Jan
6
revised How to generate the following partitions
added 110 characters in body
Jan
6
asked How to generate the following partitions
Sep
15
accepted show density plot on US map
Sep
11
comment show density plot on US map
Even I did Reverse/@data, it still does not help. The map seems to be on a different scale than the lat/long.
Sep
11
comment show density plot on US map
@Anon, Please. I think I changed the non-essential part, in particular, the rotate is 0 degree. What do you mean by reverse the coordinates though? :)
Sep
10
comment show density plot on US map
hi Anon, I tried with the above code on US map, but it does not locate the cities correctly. Please help take a look. Thank you.
Sep
10
comment show density plot on US map
data={CityData[{"New York City", "USA"}, "Coordinates"],CityData[{"Boston", "Massachusetts", "USA"},"Coordinates"]} outline=ColorNegate@ Graphics[CountryData["UnitedStates", {"Shape", "Equirectangular"}]]; outline = Graphics[CountryData["UnitedStates", {"Shape", "Mercator"}]];density[data_, r_] := Blur[Graphics[Disk[#, 0.1] & /@ data], r];map[outline_, density_, col_] := ImageCrop@ImageMultiply[ ImageApply[(ColorData[col]@Mean[#] &@#) /.RGBColor[r_, g_, b_] :> {r, g, b} &, density], outline];map[outline, ImageRotate[density[data, 1], 0], "SunsetColors"] Please take a look.
Sep
10
comment show density plot on US map
I wonder why this does not work for US map. data = DeleteCases[ Reverse[CityData[#, "Coordinates"]] & /@ CityData[{All, "UnitedStates"}], Missing["NotAvailable"]]; Show[SmoothDensityHistogram[data, .3, ColorFunction -> "SunsetColors", PlotPoints -> 150, Mesh -> 20, MeshStyle -> Opacity[.1], PlotRange -> All], Graphics[{FaceForm[], EdgeForm[Directive[White, Opacity[.7]]], CountryData["UnitedStates", "Polygon"]}]]
Sep
9
awarded  Nice Question
Sep
9
asked show density plot on US map