Tag Info

New answers tagged

2

In Mathematica 9, (rm -rf)'s comment that fonts with the extension .otf (aka OpenType) can't be embedded still holds. In addition, I've also noticed that not all fonts with the extension .ttf can be embedded. When choosing a font for your PDF files, it might be best to always test the files in other environments where that font isn't installed.


4

To save a PNG of a plot or graphics expression, I avoid Export. I select the displayed output and click on the Save Selection As ... item on the File menu. This will save the selected output exactly as it appears on the display.


0

This is not exactly an answer, but do to the large chat under previous answer I would like to point out that ToMatlab, provides the page where you can find the package, however many struggles with not being able to download it. I had the same problem until I pressed down alt key and pressed the link at the bottom of the page. Might save a bit of time!


8

What is stored in variable x is different from rotated object you have in output cell. You rotated - so you changed the properties. Many ways to do this - so in addition to comments' methods... 1) In-Export rotation 2) Seeing options Export["test.png", Show[x, opts]]


2

Have you tried converting the eps to pdf first? The epstopdf package is nice for this. \documentclass{article} \usepackage{graphicx} \usepackage{epstopdf} \begin{document} \includegraphics{plot.eps} \end{document} I've run into the same sort of problem. I can't currently confirm for your set up because I'm not running a Linux box at the moment. I ...


4

Exporting .ico from Mathematica works fine in version 9.0.1. On Mac, the built-in function sips tells me that it only supports image sizes that are a power of 2. So you could try to create the desired file using this: Export["img.ico", img, ImageSize -> {256, 256}] where img is the image to be exported. However, in version 9.0.1 I'm able to export ...


7

Here is a more simple example showing the same effect: G1 = ListPlot[ Table[{i , Sin[i j Pi/50]}, {j, 3}, {i, 50}], PlotRange -> All, Joined -> True, AspectRatio -> 0.8, PlotStyle -> {{Purple, Thickness[0.012]}, {Blue, Thickness[0.014], Dashed}, {Red, Thickness[0.013], DotDashed}}] Export["test1.eps", ...


3

I put here a function built from @george2079's answer as it may be of interest to other people. Clear[FitsExport]; FitsExport[fname_, dats_, descriptions__] := Module[{g}, BinaryWrite[g = OpenWrite[fname, BinaryFormat -> True], ExportString[{"Data" -> dats[[1]], "Metadata" -> {"Field" -> descriptions[[1]], "NEXTEND" -> 1}}, ...


2

This reads your example: a crude start anyway, i'm not parsing the headers just showing them as strings. f = OpenRead["test.fits", BinaryFormat -> True]; First@Last@ Reap[ While[ (Sow[ StringJoin@BinaryRead[f, Table["Character8", {80}]]] != StringJoin["END", Table[" ", {77}]])] ] Print["lines read = ", nh = Length[%]] ...


2

Update I use Mr.Wizard dynamicPartition (code included below). dat1 = Range@5; dat2 = Range@6; metadata = { "MetaInfo" -> "MyData", "MyValue" -> ToString[Dimensions /@ {dat1, dat2}] }; Export["foo.fits", {"Data" -> Flatten@{dat1, dat2}, "Metadata" -> metadata}, "Rules"]; Example 1: data = Import["1Example.fits", "RawData"] (* ...



Top 50 recent answers are included