Tag Info

Hot answers tagged


There is now a built-in version of an algorithm in v10.1: WordCloud. I wonder whether any of your nice algorithms introduced here had any influence on the built-in function... Individual words can be styled, annotated, rotated, etc., so I must assume that there is a polygon-intersection checking algorithm running under the hood. Would be useful to know ...


As of Mathematica 10.1, creating a timeline is built-in with TimelinePlot[]. TimelinePlot[{ Labeled[Interval[{DateObject[{2010, 2, 1}], DateObject[{2013, 5, 4}]}], "label1"], Labeled[DateObject[{2012, 4, 6}], "label2"], Labeled[Interval[{DateObject[{2011, 3, 1}], DateObject[{2012, 12, 21}]}], "label3"] }] Lots of possibilities, looking ...


Here is a more formatted and styled legend: Legended[ grp, SwatchLegend[{Green, Blue, Red, Brown, Black, Orange}, {"A ", "B ", "C ", "D ", "E ", "F "}, LegendMarkerSize -> {{30, 30}}, LegendMarkers -> (Graphics[Text[Style[#, 20, Bold]], ImageSize -> 15] & /@ Range[6]), LegendFunction -> "Panel"]] it looks like this: instead of the ...


Easy as this... Legended[grp, Grid[{Range @ 6, {"this", "asd", "asdf", "blabla", "af", "asd"}} // Transpose]] grp is your Graphics, obviously. You may fiddle around with Grid at your will for formatting....hi,hi,hi


This is an incredibly annoying issue that led me to write my own package at one point. While we're dealing with a grid of images of equal sizes, this is easily solvable (see answers of Sjoerd C. de Vries and Alexei Boulbitch). Unfortunately, we (myself and the topic-starter, at least) often want GraphicsGrid to behave more like Grid. Compare, for example, ...


The trick is to give the GraphicsGrid the same aspect ratio as the tightly packed collection of graphics would have. GraphicsGrid[{{img, img}, {img, img}}, Spacings -> 0, AspectRatio -> 1/GoldenRatio ]


A mild refactoring of ubpdqn's code: f[n_, d_] := #*Map[{-Cos[#], -Sin[#]} &, #/d] & @ Sqrt @ Range @ n di[n_, d_, rad_] := Module[{fu, pt, grad, pg}, fu = f[n, d]; pt = MapIndexed[{Disk[#, rad], Sqrt[HoldForm @@ #2] ~Style~ Black ~Text~ #} &, fu]; grad = Reverse[{{0, 0}, ##} & @@@ Partition[fu, 2, 1]]; pg = ...

Only top voted, non community-wiki answers of a minimum length are eligible