Tag Info

New answers tagged

4

The arguments for ColorFunction in ParametricPlot3D are (from the docs): ParametricPlot3D x, y, z, u or x, y, z, u, v so you need #4, which is t. As for the ColorFunctionScaling, I suggest you to read the docs and experiment a little. But just as a hint, you may eliminate both the ColorFunction -> False option AND the Rescale thing in your ...


12

shape = CountryData["Ethiopia", "Shape"]; mask = ColorNegate@Binarize[shape, .99]; data = EntityValue[CountryData[], {"Name", "Population"}]; wc = WordCloud[data, mask, WordOrientation -> "Random", Frame -> False]; shapeRange = PlotRange /. AbsoluteOptions[shape, PlotRange]; cloudRange = PlotRange /. AbsoluteOptions[wc, PlotRange]; tr = ...


0

With the solution above suggested by David G. Stork, I made this complete (?) working solution. I'm now wondering if it could be improved in some way. Currently, it's a bit slow. SeedRandom[]; f := {RandomReal[{0, 10}, 2], RandomReal[{0.5, 3}]} l = {f}; While[Length@l < 10, While[k = f; Not[And @@ ((# + k)[[2]] < EuclideanDistance[#[[1]], ...


11

The trick is to place some random non-overlapping Disks in your square area, then use the DistanceTransform to find a point in your square area that is the farthest from its nearest disk. (Such a point will be equidistant from at least two disks--generally three or more disks.) Place a new disk centered at this point, with its radius equal to the distance ...



Top 50 recent answers are included