Last change
on this file since 14 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
|
Rev | Line | |
---|
[2] | 1 | function 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.