Anisotrope Diffusion 1D

Post Reply
taingold
Posts: 3
Joined: 11.11.2010 10:46

Anisotrope Diffusion 1D

Post by taingold » 16.11.2012 08:25

Hallo Zusammen

Ich habe euch hier noch den Code zur Aufgabe der Anisotropen Diffusion im 1D-Fall. Der Code erzeugt in eurem Maple Arbeitsverzeichnis eine neue GIF-Datei, in welcher die einzelnen Bildschritte des Graphen gespeichert werden. Zudem zeigt Matlab diesen Verlauf auch wie gehabt in einem Fenster an!

Code: Select all

x = -10:0.1:10;
g = 50* exp (- x .^2/16)' + 0.1* rand ( length (x ) ,1);

figure(1)
filename = 'testnew51.gif';
for n = 1:1:10000
y = anisodiff1d (g', n , 10 , 0.5);
if n % 10 == 0
plot(x,y);
xlim([-10, 10])
ylim([0, 50])
drawnow
frame = getframe(1);
im = frame2im(frame);
[imind,cm] = rgb2ind(im,256);
if n == 1;
imwrite(imind,cm,filename,'gif', 'Loopcount',inf);
else
imwrite(imind,cm,filename,'gif','WriteMode','append');
end
end
end
Viel Spass damit ;-)

Post Reply