Tag Info

New answers tagged

4

Use ImageRotate instead of Rotate. Rotate works on Graphics primitives and objects and returns a Graphics primitive or objects with head Rotate. (* with ImageRotate increased angle for illustrative purposes *) image = Import["http://i.stack.imgur.com/R6UgC.jpg"]; Imrot = ImageRotate[image, 20 Degree]; ImageTrim[Imrot, {{560, 400}, {900, 900}}] See the ...


1

This might help but it doesn't filter the images explicitly. First get the links from Google to the sites where these images are located, linksFromGoogle=Import["https://www.google.com/search?site=&tbm=isch&source=hp&biw=1280&bih=778&q=spikey&oq=spikey&gs_l=img", "Hyperlinks"] Then filter these links so you get links that ...


0

First I'll import your image: img = Import["http://i.stack.imgur.com/JU26d.png"] As I mentioned in my comment, the image is too dark to detect the central circle. There is only a one-bit difference between the inside and the outside, and amount of noise is too large. Colorize[ImageData[img, Automatic]] (In the future I'd suggest marking three ...


0

Click and drop your figure or name it myFig. Then ImageTake[myFig, {120, 500}, {130, 530}]


4

A simple approach: i = Import["http://i.stack.imgur.com/Jzimv.png"]; i = ImageResize[i, 200]; Image3D[Table[i, {200}]] If it's just for display, there is no need to create multiple copies of the image - just make a 3D image one pixel deep and use BoxRatios to stretch it vertically: Image3D[{i}, BoxRatios -> {1, 1, 1}]


0

You can also use Show with the option ImageSize: image = Show[ExampleData[{"TestImage", "Lena"}], ImageSize -> 40]; f = 5 + Sin[#] + Sin[Sqrt[2] #] &; Animate[Plot[{f[z]}, {z, 0, 50}, PlotRange -> {{0, 50}, {0, 10}}, Epilog -> Inset[image, {x, f[x]}]], {x, 0, 50}]


1

You can also use Epilog: img=ExampleData[{"TestImage", "Mandrill"}]; pnts={1, 10, 20, 30, 40, 50}; NumberLinePlot[pnts, ImageSize->600, Epilog -> (Inset[Show@Thumbnail[img, 50], #]&/@ Thread[{pnts, 1}])] Or post-process Point primitives into Insets: NumberLinePlot[pnts, ImageSize->600]/. Point[x_]:>(Inset[Show@Thumbnail[img,50], ...


2

im = Import["ExampleData/lena.tif"]; Show[ NumberLinePlot[{1, 10, 20, 30, 40, 50}], Graphics[ {Inset[im, {1, 1}], Inset[im, {20, 1}], Inset[im, {40, 1}] } ] ] You'd have to adjust the sizes and scale things to make it look ok



Top 50 recent answers are included