Tag Info

Hot answers tagged

6

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 ...


4

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 ...


4

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 ...


2

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


2

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, ...


2

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 ]


1

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