6581544258

mgr inż. Artur Bernat, KMP, WM., PKos., wykład wstępny V (środowisko Matlab), strona: 6

%Artur Bernat all rlghts reserved

%15 April 2006, fern-s fractal with stochastlc transforms.

(AMD randomized starting x0,y0 point of calculations %[M,im_flnal]=fern_rand_jet(szx,szy,magnlf, iter,nop,Niter);

%szy,szx <=dioensions of 2D mapioutput size doubled in x)

%magnif <=magnification coeff. for the figurę %iter <=number of iteraton,

%nop <=number of intervais in getting of frames %Niter <=number of superior cali iteration(just info)

%[M, img]=fern_rand_;jet <150, 300,30,95000, 30,1); % default cali params. function [M, im_final]=fern_rand_jet(szx,szy.magnif, iter,nop,Niter);

A=[0.0 0.85 0.2 -0.15]; %linear transforms. coeffs.

B=[0.0 0.04 -0.26 0.28];

C=[0.0 -0.04 0.23 0.26];

D=[0.16 0.85 0.22 0.24];

E= [0.0 0.0 0.0 0.0];

F=(0.0 1.6 1.6 0.44]; step=iter/nop;

MAX_TRANSF=4;

mapsA=zeros(szy,szx); mapsB=zeros (szy, szx); x=23.*rand(l,1);irandomized starting x0 y=17.*rand(l,1);%randomized starting yO nrp = celi(MAX_transf.*rand(1, iter));

[min (nrp (:)) max<nrpc))]

% baclcground; 1-8 ; 9nth control colour

%palcsA=[0.1 0.25 0.30; 0 1 0;0.2 1 0; 0.5 1 0; l 1 0;...

%    1 0 0; 1 0 0; 1 0.2 0 ; 1 0.5 0 ; 1 1 0];

paltsA=JET; %64-graded je* predefined palette; paltsAll,: )=0; % first from jet palette is equal to zero palscepY=szy/31;

M=movlei n(nop+2); axis manuał;

j=0;%control counter for catcbing of frames for 1=1: iter,

kolor=uint8(nrp(i));

xl=A (kolor) .*x+B (kolor). 'y+E (kolor);

y=c(kolor).*x+D(kolor).*y+F(kolor) ;

x=xl;

Y=l+szy/16+magnif.*y; x=l+szx/2+magnif.*x;

mapsA(uintl6(l+Y.*sign(Y)),uintl6(l+x.*sign(X)))=uint8(l +mod( ( (l+Y.’sign(Y)) /palscepY ),31)); mapsB(uintl6(l+Y.*sign(Y)),uintl6(l+x.*signpc)))=uint8(32+mod( ( (l+Y.*sign(Y)) /palstepY ),31)); if modli,step)=0

imshowl[flipudlmapsA(1:szy,l:szx)) mapsB(1:szy,I:szx)],paltSA);hołd on; title(['Global iter: ' int2str(Niter) ', local Inter no. • int2str(j)]); axis([0 szx+szx 0 szy]); axis manuał; ]=jtl; [i j]

M(:, j)=getframe;

im_final=uint8(ind2rgb([flipud(mapsA(l:szy,1:szx)> mapsBll:szy,1:szx)],paltsA)); RandName=100+899*rand(l, 1);

movie2avi(M,['fernxn_rand_jet' int2str(RandName) '.avi'],•compression','Cinepak','FPS',3); disp(['Number of superior calling Iteration: ' int2str(Niter)]);

Rys6B Przykładowy kodpoddrzędnych wywołań ferns_rand_jet. m, generacji liścia paproci

Podsumowując, tą część bieżącego wykładu (wykład V), można powiedzieć, że nie istnieje prosty przepis na przejście od praktyki programistycznej w języku C/C++, na sposób programowania, obsługi zmiennych i całość specyfiki pracy w środowisku Matlab.

Również pierwsze, wstępne przeświadczenie o przydatności tej i czy innej funkcji w wytyczonym zadaniu, z reguły wymaga weryfikacji. Również w tym przypadku, to jest tworzenia specyficznej mieszaniny barw danych uzyskanych z dwóch różnych funkcji generowania tego samego obiektu fraktalnego, lecz z różniącymi się paletami barw, z pozoru wystarczyłoby wywołanie funkcji imadd, a treści dwóch obrazów zostałyby zsumowane. Praktyka jednak, czasami każe wkraczać samemu w realizację drobnych zadań pomocniczych względem zadania głównego.

Nawiązując do treści wykładów IVA/B, postanowiono przedstawić poniżej skrypt demonstrujący postępującą degradację zbioru informacji oryginalnego obrazu intensywności luminancji, jako funkcję zawężanego zbioru współczynników prostej transformaty kosinusowej. Zazwyczaj, to czy inne demo w formie interaktywnej może posłużyć w celach dydaktycznych. Tym razem jednak, poniżej przedstawiona treść skryptu dctmovie, tworzy dwie animacje zapisywane na dysku twardym. Jedna obrazuje zmienną jakość obrazu po