source: liacs/la/opdr3/vullijst.m@ 144

Last change on this file since 144 was 2, checked in by Rick van der Zwet, 15 years ago

Initial import of data of old repository ('data') worth keeping (e.g. tracking
means of URL access statistics)

File size: 489 bytes
Line 
1function lijst=vullijst(A)
2 % bij aanroep van deze funcie wordt een beeld matrix A
3 % geplaatst in het midden van een 2 maal zo breed en hoog beeld
4 % omringd met nullen
5 %
6 % bepaal dementie
7 [m,n] = size(A);
8 % maak nieuwe lijst
9 lijst = zeros(2*m,2*n);
10 %bepaal translatie
11 xmove = .5 * m;
12 ymove = .5 * n;
13 for i=1:m
14 for j=1:n
15 lijst(xmove + i, ymove + j) = A(i,j);
16 end
17 end
18 colormap(gray(256));
19 image(lijst);
20
Note: See TracBrowser for help on using the repository browser.