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: Alles auswählen
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