Retinal Prosthesis Dissertation - Student Home Pages

%Two for loops the first (outer loop) assigning the row number for every
%column of the image
%The second (inner) loop assigns column numbers for every row of the outer
%loop. Note that the row numbers are stored on plane 5 and cols on plane 4.
for r = rx: rowhigh
for c = cy: colhigh
%Assigning column numbers
f(r, c, 4) = c;
end
%Name of this file is "subim.m", which accepts input(s)
function [s] = subi (f, m, n, rx, cy);
%SUBIM Extracts a subimage, s, from a given image, f.
%The subimage is of size m-by-n and the coordinates of
%its top, left corner are (rx, cy).
%maxsize = imread ('D:\testimages\maxsize.bmp');
%for count = 1 :( m*n)
%fB = f (: 3);
%y = (255-fB);
%f (: 6) = y;
%count = count+1;
%end
%rowsofinputimage = 1000;
%columnsofinputimage = 1000;
%f = zeros (rowsofinputimage, columnsofinputimage,'double');
%f (: 1) =0;
%f (: 2) =0;
%f (: 3) =0;
%s = zeros (m, n,'uint8');
%s (: 1) =0;
%s (: 2) =0;
%s (: 3) =0;
%showzero = imresize(s, 10);
%figure, imshow (showzero)
rowhigh = rx + m -1;
colhigh = cy + n -1;
%xcount = 0;
%for r = rx: rowhigh
% xcount = xcount + 1;
% ycount = 0;
% for c = cy: colhigh
% ycount = ycount + 1;
% s (xcount, ycount, 1) = f(r, c, 1);
% s (xcount, ycount, 2) = f(r, c, 2);
% s (xcount, ycount, 3) = f(r, c, 3);
% end
%end
r = rx: rowhigh;
c = cy: colhigh;
s (: 1) = f(r, c, 1);
s (: 2) = f(r, c, 2);
138 of 200