Message Boards Message Boards

0
|
3396 Views
|
4 Replies
|
0 Total Likes
View groups...
Share
Share this post:

How can I output an image after I riffle the imagedata?

Hi there anyone can help me with this: - After I change the values of the list a to a small image data in black and white and keep doing the same thing as I did to first program I am not able to get an image...Anyone can help me?

a={{0., 1., 0.}, {1., 0., 1.}, {0., 1., 0.},{0., 1., 0.}, {1., 0., 1.}, {0., 1., 0.},{0., 1., 0.}, {1., 0., 1.}, {0., 1., 0.}}
c=Flatten[a]
b=c
d=Riffle[b,c]
e=Partition[d,6]
Image[e]
Image[a]

Second program should do the same as the above for the image data but it gets me a weird result:

a=ImageData[ ]
c=Flatten[a]
b=c
d=Riffle[b,c]
e=Partition[d,6]
Image[e]
Image[a]

the image I want to get the image data from is attached...
POSTED BY: Luis Felipe Massena Misiec
4 Replies
Sort By:

I wanted to increase the density of the pixels so when you magnify it it doesn't blow out the image,if for every step,in between every magnification you increase the pixels referred to the new amplified image i think you could get a better image...i noticed that you can riffle it self but can you do it to the sides as well? Or rotate the image and riffle it self and then add up the image data?
POSTED BY: Luis Felipe Massena Misiec
Rohit Namjoshi
Rohit Namjoshi
Posted 2 years ago

Try writing code in a more functional form

a = {{0., 1., 0.}, {1., 0., 1.}, {0., 1., 0.}, {0., 1., 0.}, {1., 0., 1.}, {0., 1., 0.}, {0., 1., 0.}, {1., 0., 1.}, {0., 1., 0.}};
a // Flatten // Riffle[#, #] & // Partition[#, 6] & // Image
(* Same result *)

For the attached image

image=Import["https://community.wolfram.com//c/portal/getImageAttachment?filename=9a53b9d4650f4f8742bee3ed0cc6f822diamondblackandwhite.jpg&userId=1147177"]

imageData = ImageData@image;
3*Times @@ ImageDimensions@image
(* 215940 *)

When it is riffled with itself it is twice that long. Partition by 6 will result in a tall skinny image.

newImage = imageData // Flatten // Riffle[#, #] & // Partition[#, 6] & // Image;

ImageDimensions@newImage
(* {6, 71980} *)

What exactly are you trying to accomplish?
POSTED BY: Rohit Namjoshi

this is the image i want to use the imagedata...my idea eventhough the zoom already works by a different matrix manipulation is to use riffle to modify the pixels before magnifying so the image when too much amplified is not broken...
POSTED BY: Luis Felipe Massena Misiec
Rohit Namjoshi
Rohit Namjoshi
Posted 2 years ago

Unable to reproduce
POSTED BY: Rohit Namjoshi
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Tag limit exceeded
Note: Only the first five people you tag will receive an email notification; the other tagged names will appear as links to their profiles.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract