|
Last change
on this file since 94 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 | |
|---|
| 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.
