File: MakeRadiusMat.m

package info (click to toggle)
psychtoolbox-3 3.0.19.14.dfsg1-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 86,796 kB
  • sloc: ansic: 176,245; cpp: 20,103; objc: 5,393; sh: 2,753; python: 1,397; php: 384; makefile: 193; java: 113
file content (32 lines) | stat: -rw-r--r-- 883 bytes parent folder | download | duplicates (7)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
function radius = MakeRadiusMat(nx,ny,centerx,centery)
% radius = MakeRadiusMat(nx,ny,centerx,[centery])
%
% Return an n by n matrix whose entries are the
% radial distance in pixels from the center pixel.
%
% This matrix is a useful thing to pre-compute for
% performing certain 2D image processing operations.
%
% The no-loop algorithm is due to Stan Klein.
%
% 7/11/94		dhb		Slick version.

% Argument re-write for backward compatibility
if (nargin == 3)
	centery = centerx;
end

% Create an ny by nx matrix.  Each row is identical and
% contains the square of its x coordinate relative to 
% the center.
x = (1:nx) - centerx;
Mx = ones(ny,1)*(x.^2);

% Create an ny by nx matrix.  Each column is identical and
% contains the square of its y coordinate relative to
% the center.
y = (1:ny)' - centery;
My = (y.^2)*ones(1,nx);

% Form the desired matrix as
radius = sqrt(Mx + My);