Tag Info

Hot answers tagged

17

This is far from perfect, but can be easily improved. The method is simple: building up the disk line-by-line by finding enough words of appropriate sizes to fill up each line. There is plenty of room to optimize spacing, but since it already gives a densely packed circle, I leave it as it is for the moment. Updated code: now it runs much faster as only a ...


13

The best thing to do is to test whether you can make the connection manually: Start Mathematica on your local machine. On the toolbar, navigate to Evaluation ► Kernel Configuration Options. Add a new kernel and configure it. In the dialog, click on Add ... and a Kernel Configuration dialog appears. Enter an appropriate name for your remote kernel. Under ...


12

This solution is based on Heike's method for the word cloud question, but I've avoided the newer image processing functions so it should work in version 6. The packing computation is done with a 2D binary "mask", with the colour image being updated in parallel. (* create some example data *) ...


9

Yes, older kernels are compatible with newer front ends. I think this is why the Version5`Graphics`, Version6`Graphics` and Version7`Graphics` packages exist. (Simply to ensure compatibility of graphics. From a short look at .tr files once I got the impression these get loaded when older kernels are used.) Regarding managing to create a connection, the ...


8

I don't know if this is worth it as its own answer, because it only really changes one thing from István Zachar's answer, but there's a much faster way to use Rasterize to find the widths of all the text. Rasterize is slow, but it's really not much slower to create a big image than it is to create a small one. Thus, if we can get all the widths out of a ...


7

Just use SetOptions[Graphics, BaseStyle -> {...}]. For example SetOptions[Graphics, BaseStyle -> {Large, Red, FontFamily -> "Times", Italic}]; Graphics[{Circle[], Text["test"]}] Note that the Text inherits its BaseStyle from the surrounding Graphics. The Text function also takes a BaseStyle option, but for some reason it doesn't seem to do ...


7

I'm answering mainly to show solidarity with the idea, although my own efforts at finding a systematic upgrade path with graceful degradation to older versions have ultimately been overtaken by the amount of new and different functionality introduced starting with version 6. Particularly version 6 was a real nuisance because it was so different from both: ...


6

While this is an old thread and I have already posted one answer, this new method is entirely different, much faster and needs less tweaking: why not use the built-in text-justification ability of Mathematica? The result is surprisingly simple and is almost a one-liner: w = StringSplit@StringTake[ExampleData[{"Text", "OriginOfSpecies"}], 1000]; r = 10; (* ...


6

For example: (* some data *) pts = Range[10]^4; f1 = Interpolation[pts, InterpolationOrder -> 1]; f2 = Interpolation[pts, InterpolationOrder -> 3]; t1 = Join[{{"x", "f1[]"}}, Table[{x, f1@x}, {x, 1.5, 4.5, 1}]]; t2 = Join[{{"x", "f2[]"}}, Table[{x, f2@x}, {x, 1.5, 4.5, 1}]]; data = Join @@@ Transpose@{t1, t2}; (* Transformation from Excel "A1" ...


4

ArgMax was introduced in version 7, but version 6 has Maximize so you can define ArgMax as: Clear@ArgMax; Attributes[ArgMax] = {HoldAll}; ArgMax[expr_, vars_, domain___] := vars /. Last@Maximize[expr, vars, domain] Taken from documentation which says: ArgMax[...,vars,...] is effectively equivalent to vars/.Last[Maximize[...,vars,...].


2

While your code gives the same result on Mathematica 9.0.1, a similar expression using Graph (versions 8 and above only): Graph[{1 -> 2, 2 -> 3, 3 -> 1}, EdgeShapeFunction -> ((Print["e ", ##]; {Red, Arrow[#]}) &), VertexShapeFunction -> ((Print["v ", ##]; {Green, Disk[#1, .025]}) &)] gives these results: e ...


2

The documentation on incompatible ccareful days, "careful design from the outset has allowed nearly total compatibility to be maintained between all versions. As a result, almost any program written, say, for Mathematica Version 1 in 1988 should be able to run without change in Mathematica Version 7—though it will often run considerably faster." Do you ...


1

In case you want Mathematica to suppress on the fly simplification and having slots (#) involved, you might consider using Defer: Defer@Integrate[x^# Exp[-x], {x, 0, 1}]&/@Range[2]



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