Tag Info

New answers tagged

1

It is a bug. although adding one non-polygon to the list makes everything work: GeoRegionValuePlot[ Join[{Entity["City", {"LosAngeles", "California", "UnitedStates"}] -> Quantity[577.6458106034206`, ("People")/("Miles")^2]}, Thread[nmpgons -> nmpopdensity]], ColorFunction -> ColorData["Rainbow"]]


5

How about something Image3D-based? grid = First@ ParametricPlot3D[{Cos[u] Cos[v], Sin[u] Cos[v], Sin[v]}, {u, 0, 2 Pi}, {v, -Pi/2, Pi/2}, PlotStyle -> None]; Graphics3D[ {grid, {Red, Thick, Line[1.2 {{-1, 0, 0}, {1, 0, 0}}]}, {Blue, Thick, Line[1.2 {{0, -1, 0}, {0, 1, 0}}]}, {Green, Thick, Line[1.2 {{0, 0, -1}, {0, 0, 1}}]}, ...


5

You just need to change the parameters before and after your Sphere[] like this: {Graphics3D[{Opacity[0.6], GrayLevel[1], Sphere[], GrayLevel[0], Opacity[1.0], globeGrid[6, figure]}]} Opacity[0.6] is about right to partly hide the lines around the back. GrayLevel[1] because you want the sphere to be coloured white/light. GrayLevel[0] because you want ...


12

I have to admit, that I only copied your code and tried it without actually reading what you have done, but I guess I can help to fix at least the second image. What you are after is the "DepthPeelingLayers" settings that you can access with the option inspector: When you raise this number to e.g. 32, the output looks like this This can also be done ...


8

There exists a simple trick for your purpose, here is my implementation: f[a][b][c][d] //. g_[x_][y__] :> g[x, y] /; (Print[g[x][y] -> g[x, y]]; True) Log[Sqrt[a (b c^d)^e]] //. {Log[x_ y_] :> Log[x] + Log[y] /; (Print[Log[x y] -> Log[x] + Log[y]]; True), Log[x_^k_] :> k Log[x] /; (Print[Log[x^k] -> k Log[x]]; True)} Not as ...



Top 50 recent answers are included