Tag Info

New answers tagged


I'm on 10.0 for Mac OS X x86 (64-bit) (June 29, 2014) and and have the following observed: highlighting the Output-Cell and using the Command "Save Selection As" leads to the following result; highlighting the Output and using the Command "Save Selection As" leads to the observed result; Wile CellPrint[ExpressionCell[CharacterRange["a", ...


With V10 on OS X, I get Might be a platform issue.


The quotes appear because the InputForm does not show them, while the OutputForm does. Programmatically, you can explicitly call OutputForm to avoid this: Export["quotes.png", OutputForm[CharacterRange["a", "z"]]] You can also go into Format > Option inspector… and look for ShowStringCharacters and using Save selection as…:


The problem is with your ImageSize->Full option. Try leaving it out or specify your ImageSize to a certain size (e.g. 500) instead of Full. otherOptions = {MaxPlotPoints -> 1000, ColorFunction -> "ThermometerColors", PlotLabel -> Style["Array Plot of Raw Data", 11, Bold, Black], PlotRangePadding -> 0., ImageSize -> Full, ...


image = Import["http://i.stack.imgur.com/UNXEV.jpg"]; n = TotalVariationFilter[image, 0.05] b = LocalAdaptiveBinarize[n, 50] s = DeleteSmallComponents[ColorNegate[DeleteSmallComponents[b, 20^2]], 20^2] (d = DistanceTransform[s]) // ImageAdjust m = MaxDetect[d, 10] (w = WatershedComponents[ColorNegate[d], m]) // Colorize c = ComponentMeasurements[w, ...


It seems that the described method does work in v.10.0.0 if the image is represented as Graphics object. To convert Image to Graphics one can use Show. The reason why Graphics works is that the soft crop explicitly sets new PlotRange what can be seen by applying Options to the cropped image. But in the case of Image the PlotRange option exists only inside ...


I think this is a bug rather than a feature. One way to accomplish this that will work in some scenarios without making a copy of the image is to use the crop tool, save the image and then undo the cropping thus restoring the original image.


Column[Framed@Graphics[Raster[{Range@#/#}, ColorFunction -> (Blend[{{0, White}, {1, Black}}, #] &)], AspectRatio -> 0.2, ImageSize -> 400] & /@ {3^2, 3^3, 3^4, 3^5}]


Its not true that a human can not see banding in 256 colors. Whether or not you do depends quite much on what the transfer curve of the monitor is and if its a low quality LCD with diminished color spectrum, like in many phones. Also human eyes are really well adapted to sensing just this kind of thing so while 256 colors in general is fine its not so good ...


To get an easily distinguishable scale of grays, you could do ArrayPlot[{Table[x, {x, 0, .9, .1}]}, AspectRatio -> .3] To get 256 shades of gray ArrayPlot[{Table[x, {x, 1/256, 1, 1/256}]}, AspectRatio -> .3] To get 1024 shades of gray ArrayPlot[{Table[x, {x, 1/1024, 1, 1/1024}]}, AspectRatio -> .3] I exported this as a tiff (usual ...

Top 50 recent answers are included