Hot answers tagged

7

The final internal System`Convert`CommonGraphicsDump`exportImageListToGIF does not have Options and outer System`Convert`CommonGraphicsDump`exportImageListToRasterFormat has but handles other raster formats so it is not desirable to affect them. What can be done is to re-register gif export. That needs to be done once per session, e.g. in init.m: Begin["...


6

There are several ways to do this. (BTW you should share minimal complete code of your example for other's to be able to help you efficiently). 1. Publish in Wolfram Cloud Method bottomline: very simple and fast, does not need any software, works in a web browser even on mobile, but requires internet Interactivity you have in Wolfram notebooks, from 3D ...


5

If you specify the FrameTicks as follows it works fine: ft[low_, high_] := Table[{i, i, {.01, 0}, Directive[Black, Thickness[.002]]}, {i, low,high}]; plot1 = DensityPlot[Sin[x y], {x, -2, 2}, {y, 0, 4}, PlotPoints -> 80 , FrameTicks -> { {ft[0, 4], None}, {ft[-2, 2], None}}]; Export["/tmp/plotq1.png", plot1, ImageResolution -> 500]; ...


5

Yep. You can do this no problem. I suggest looking at the documentation on the workflow in NotebookEvaluate[]. For example, create another notebook with the following contents. Table[ NotebookEvaluate["/path/to/previous/notebook.nb"], {k, k_min, k_max}] I'd suggest that maybe a simpler way would be to confine operations to a single note book with ...


4

Same issue in $Version "11.3.0 for Microsoft Windows (64-bit) (March 7, 2018)" plt1a = DensityPlot[Sin[x y], {x, -2, 2}, {y, 0, 4}, PlotPoints -> 80] Export["plot1A.png", plt1a, ImageResolution -> 500] If you specify a lower image resolution the issue does not arise: Export["plot1A100.png", plt1a, ImageResolution -> ...


4

The OP seems maybe to want X as a function of x, but the OP gives up an equation that defines X as a function of t. No good clue about how to incorporate x into the solution X[t] as defined by the given equation. Here's one way to go about finding X[t] numerically. The equation has a 3-parameter family of solutions, so we seek an order-3 differential ...


3

This works for me in v12.1.1 on Windows 10: ah = Graphics[{EdgeForm[Thickness[0]], Triangle[{{-1, .4}, {0, 0}, {-1, -.4}}]}]; testfig2 = Graphics[{Blue, Arrowheads[{{.03, 1, {ah, 1}}}], Dashing[0.03], Thickness[0.01], Arrow[{{0, 0}, {0, 1}}]}] Export["testfig.pdf", testfig2] PDF: I don't understand why just EdgeForm[] doesn't work.


3

In V12.0, I get graphics to be broken across pages if I set their ImageSize to be wider than the page width, even though PageBreakWithin is set to False. For instance, it happens with ImageSize -> 1000 for me, which setting is the same as in the OP. Try ImageSize -> Full if you want the graphics as wide as the page. [In V12.1/12.2, the graphics are ...


3

Mathematica cannot solve your equation for X . Instead try to solve it for t sol=Solve[X (X - a) + b Exp[-2 X t] == B, t ][[1]] /. C[1] -> 0(*forces real solution*) (*{t -> Log[b/(B + a X - X^2)]/(2 X)}*) Now you know t as a function of X. For examplary parameters you can plot the result ParametricPlot[{t, X} /. sol /. {a -> 1/5, b -> 1, B ->...


2

While it is possible to use NotebookEvaluate for such purposes, I think it will be worth to learn the more recommended ways to automate your tasks: you can write scripts in text-only files which can end in either .m or .wl and run these either from the command line or by simply doing Get["/path/to/script"]. Even better is to learn how to write ...


1

You may first generate the rasterized image in Mma with specific RasterSize and ImageSize, and then export the alteady generated image as PNG or whatever. When you do this, the RasterSize controls the image quality, while the ImageSize fixes its geometrical size. For example, let us vary the RasterSize by keeping the ImageSize constant: Column@Table[ ...


1

It is manipulating the transform between points and pixels. Nothing more, nothing less. It might be more illustrative if you mess around with Rasterize specifying both ImageSize and RasterSize and using Information[img, "ImageResolution"] on the result. Export does have some legacy behaviors that can confuse matters. For instance Rasterize[...


1

I see an already accepted answer, which I agree with. I am writing this answer as really an extended comment, which I think too long for the usual comment. I frequently use NotebookEvaluate[] for the purpose described. To place this in context, I offer an example of a data analysis routine. The routine is written as a notebook. It loads several images which ...


1

We have two questions: 1) How to make a PDF from a grid of graphics (output of Plot), and 2) How to make a PDF for a whole notebook. For the second question... Here's a way to make a PDF of a whole notebook including inputs and outputs. NotebookPrint saves a print-ready form of a notebook to a file in the format indicated by a file extension. First, open a ...


1

On an Apple, simply printing to a file works. Why not print to a file, and then see what your print settings are set at? Can you print to a printer? UPDATE (see comments below) Please try updating to Mathematica Version 12.1 or 12.2.


1

If you want to be most exact, store the original function values at the gridpoints (t-values) NDSolve generates. Generating data0, data1,... with Table, you get intepolated values less exact. With "Coordinates" and "ValuesOnGrid" you get the original grid points. Do (TableForm is only for better layout) TableForm@(data = Transpose@ ...


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