Wolfram Mathematica

4:19 AM

I think I may have gone overboard with this answer, but I tried to cover everything.

and the kitchen sink ...

5:45 AM

\O/ 1000 questions on Gardening and Landscaping! Took us a while, but we got there. Looks like Mathematica will get there in less than a month though :)

Heike

9:21 AM

@yoda Congrats. Maybe, as a celebration, you can post a question on how to make confetti from petals :-)

Szabolcs

9:42 AM

Last night when sending my last message, I got "kicked out" (logged out) from chat and couldn't log back in until clearing all cookies today.

halirutan

@Szabolcs That's a feature! It's called the you-look-tired-Go-to-bed-for-christs-sake plugin.

2

Szabolcs

:D

yoda

10:26 AM

@Heike haha! lol

@Szabolcs There are some changes coming to chat... so must have been a routine thing. Also, since you said you're using dev chrome, you should note that it's not officially supported

Szabolcs

@yoda I don't use dev chrome. It's just the version of Chrome I have. I use Firefox. Beta browsers have bitten be before

yoda

10:46 AM

@Szabolcs Well, it's supposedly fixed

Szabolcs

12:10 PM

Has anyone developed a robust method to rasterize all of a 2D graphic except the axes / text / frame / labels, etc. ?

I can do it, but if someone has already done it and worked about the detail, worked around the problems, that'd be great!

pages.uoregon.edu/noeckel/computernotes/Mathematica/…

9

Q: How to decrease file size of exported plots while keeping labels sharp

When exporting rather complicated plots (especially ListDensityPlot) as a PDF or EPS (for publication, for example), the resulting file size can be quite large. For example: data = Flatten[Table[{f0, f, Exp[-(f - f0)^2/25^2]}, {f0, 500, 700, 5}, {f, 300, 900}], 1]; plot=ListDensityPlot[data,Pl...

mathematica

Stack Exchange

12:36 PM

0

Q: Tag for questions regarding Mathematica's design

I think that questions of this genre should have their own tag. What should it be? Example: DiracDelta attributes

discussion tags

Szabolcs

1:35 PM

rasterizeBackground[g_, res_: 300] :=
 Show[Rasterize[
    Show[g,
     PlotRangePadding -> 0, ImagePadding -> 0, ImageMargins -> 0,
     LabelStyle -> Opacity[0], FrameTicksStyle -> Opacity[0],
     FrameStyle -> Opacity[0], AxesStyle -> Opacity[0],
     TicksStyle -> Opacity[0], PlotRangeClipping -> False],
    ImageResolution -> res] /.
   Raster[data_, rect_, rest__] :>
    Raster[data,
     Transpose@OptionValue[AbsoluteOptions[g, PlotRange], PlotRange],
     rest], Sequence @@ Options[g], Sequence @@ Options[g, PlotRange]]

2

Heike

1:46 PM

@Szabolcs I've moved my answer about turning the camera off.

Szabolcs

@Heike Thanks, I edited it a little bit!

It's not possible to mark a question community wiki.

Eli Lansey

2:04 PM

@Szabolcs I'll have to give this a shot. It was always shocking and horrifying to see 70mb files....

Szabolcs

@EliLansey It is not perfect, for example if the graphic to rasterize is Graphics[Circle[], the edges of the circle might be cut off (due to the finite line width). I didn't bother to fix this. Everything from the plot range padding region is just cut off. But it works well enough for my ListDensityPlot-like function.

I updated my connector line ordering post with this note:

"Given two lists, l1 and l2, containing the same elements in different orders, the permutation that re-orders l1 to l2 is Part[Ordering[l1], Ordering@Ordering[l2]]. This may be useful for reordering points."

Is there a simpler way to do the reordering, in the general case?

Mr.Wizard

@Szabolcs have you tried my current answer code? Regarding ordering, that looks familiar so it's probably what I've used before.

Szabolcs

@MrWizard looks good

Mr.Wizard

@Szabolcs I cannot view whatever is at that link, but if you say it looks good I shall initiate comments-cleanup.

Szabolcs

@MrWizard Why can't you?

@MrWizard If something's wrong with ge.tt, I need to know, so I won't use it to send files any more.

Mr.Wizard

2:31 PM

@Szabolcs sorry I was poking around with connector lines. I think you've used that site before but maybe not for PDF. One way or another I wasn't seeing anything, but clicking the Download link loaded the file off-line.

@Szabolcs which of these looks better to you?

Szabolcs

I'd say no. 2 if lines (3) and (12) didn't touch in a point

If I could swap 9<->6 and 7<->1 in no. 1, I'd definitely say no. 1.

Mr.Wizard

These were produced with the same tour but different rotations. The first is what my algorithm picks now. I think perhaps a hybrid approach that checks number of intersections is needed. Would you please try this data with the other answers and tell me which looks best?

{{0.228562, 0.675022}, {0.376503, 0.343297}, {0.0902031,
  0.0551051}, {0.959674, 0.0905196}, {0.855165, 0.747163}, {0.14913,
  0.949981}, {0.131851, 0.660994}, {0.472054, 0.0377793}, {0.157586,
  0.822339}, {0.818154, 0.163548}, {0.67575, 0.374831}, {0.131394,
  0.00340415}}

Szabolcs

Sorry, I do not have time to do that now, but of course I'll check them later---I need to to pick one

Mr.Wizard

Understood. I think mine in its present form should do a fairly good job of getting things in the right place; if it was followed by an algorithm that checked if switching pairs around the perimeter improved the layout I think it would be near-optimal, and still very fast.

Heike

2:50 PM

@MrWizard This is the picture I get with my code for those points:

Szabolcs

I think I like Heike's results best so far, but it might be that her solution was just "lucky" to get easy point sets by random when I tried it. I'll mail you the actual figure I made, just for fun :-)

Szabolcs

3:09 PM

@Heike This is what your method gives on the subplot example (but collinear points are admittedly special):

but wait, the reordering is wrong

Heike

3:25 PM

@Szabolcs This is what I get with starting points start = Transpose[{-1/24 + Range[12]/12, ConstantArray[.5, 12]}];

Szabolcs

@Heike I'm sorry, I made a mistake.

Heike

@Szabolcs Looks nice

Transcript for