Mathematica graphics in a sage notebook
Is there an easy way to get Mathematica graphics into a sage notebook?
I have a notebook where I want to compare the Mathematica way of doing things and the related graphics to the sage way and its graphics. The naive ways of doing it do not work:
%mathematica
Plot[Sin[x],{x,-4,4}]
just produces
-Graphics-
While
mathematica('Plot[Sin[x],{x,-4,4}]')
returns the InputForm
of the graphics, i.e.,
Graphics[{{{}, {}, {Hue[0.67, 0.6, 0.6], Line[{<<long list of points>>}],
<<some graphics options>>]
There's three work-arounds I can currently think of.
Export the graphics from Mathematica using:
Export["file.png", graphics]
and import it back into sage - but I couldn't find an image import function in sage...Use the JavaGraphics Mathematica package: So
but this puts the graphics object in a separate window (not in the sage notebook).
Extract the graphics data and feed it into a sage plotting function, e.g.
list_plot(mathematica('Plot[Sin[x], {x, -4, 4}][[1, 1, 3, 2, 1]]').sage(), plotjoined = true)
which does what I want, but is a little cumbersome - especially for more complicated graphics.