Hi Community,

I am trying to create an artificial wavefront by using RandomReal and MovingAverage. Here is the code:

rframe = RandomReal[{rmin, rmax}, {rsize, rsize}];
mframe = MovingAverage[Transpose[MovingAverage[rframe, aveblks] ], aveblks];

where:

rmin=0; 
rmax=562*10^(-9);
aveblks=10;
dsize=256;
rsize=dsize+aveblks-1;

When I plot mframe with :

ArrayPlot[mframe, PlotRange -> {0.0, 4*10^(-7)}]

I see the attached image. It looks to me that there are 1 pixel wide longer streaks both vertically and horizontally. I expected a smoother image where these streaks are averaged out by MovingAverage. I really do not want to do interpolation here. Any good tip how to make it happen?

Thanks ahead, János

Attachments: