New answers tagged

6

This would reproduce the picture you show in the question: With[{off = 30}, Do[ CreateDocument[{Plot[Sin[i x], {x, 0, Pi}]}, WindowSize -> {300, 200}, WindowOpacity -> .7, WindowMargins -> {{100 + off i, Automatic}, {Automatic, 10 + off i}}], {i, 1, 10}]] I added opacity as per the comment.


9

Finally there's an answer for this interesting question~ the result generated is like this: or Code As usual, code first, explanation second~ Clear["`*"] wd1 = "MIT"; wd2 = "I love"; bgsize = 1000; txsize = {300, 200, 100, 50, 30}; proc[word_, size_] := ImageData@ Binarize@Rasterize[Style[word, Bold], ImageSize -> size, RasterSize -&...


3

This seems pretty fast (it takes roughly 0.08s on your set of images): images = Normal@Databin["dsNFr2og"]; Total[#, 2] & /@ ImageData /@ Binarize /@ images; % / (Times @@ ImageDimensions[images[[1]]]) // N; Extract[images, Position[%, p_ /; p < 0.5]] Adjust the 0.5 threshold to your liking to retain more or fewer images. (Thanks nikie for the ...


6

The most straightforward approach is ImageCorrelate. I'll show you an example. nikie wrote an excellent answer explaining this method here. large = ExampleData[{"TestImage", "Boat"}] smaller = ColorConvert[Import["http://i.stack.imgur.com/NAHqc.png"], "Grayscale"] corr = ImageCorrelate[large, smaller, EuclideanDistance]; ImageAdjust[corr] The ...


0

Because the solutions provided didn't work in my case, I tried something different. I extracted coordinates using different software which uses Slices, Rows and Columns as coordinates system (Msrc). I wanted to import this data in mathematica and import my Image3D object as well. When i imported the two, i realised that the coordinates didn't match.The ...



Top 50 recent answers are included