"Find the local maxima and minima in some noisy signal"

I have a data array which I want to determine the peaks in the measurements.
For this task I tried to translate the code found  from MatLab to Maple.
As you can see I get the values(peaks) on the x axis displaced.
By using GlobalSearch get the same peaks with the coordinates correctly.
As much as I seek and analyze command lines can not find the error or errors.

Hi
 How to translate the following lines of commands from Matlab to Maple?

n = 2^10;
M = zeros(n);

I = 1:n;
x = I-n/2;
y = n/2-I;
[X,Y] = meshgrid(x,y);
R = 10;
A = (X.^2 + Y.^2 <= R^2);
M(A) = 1;

imagesc(M)
colormap([0 0 0; 1 1 1])
axis image
title('{\bf Circular Aperture}')

Gracias

I have attempted making a translation the Wolfram Mathematic's document: Singular Value Decomposition.
I present Problems in showing the arches of angles. Besides result do not correspond .

Plot_singular_value_.mw

Gracias

How can I manipulate the scale of dominion?

As you can observe with the graphic can not be examined.

Gracias

How do I plot a Matrix's columns independently in a same display[plot].

A=Matrix(m,n)

plot(Column(A,1),Column(A,2),..,Column(A,n))

Gracias