%PERIODIC Skript m-File zur einfachen Demonstration der Periodizitaet
% Vektoren x,y, sowie Periodendauer T muessen vorher definiert werden
v = input('Bitte Vergleichs-x-Wert eingeben: ');
[ml,vl] = min(abs(x-v));
[mr,vr] = min(abs(x-v-T));
plot(x,y,'k');
hold on
plot([x(vl) x(vr)], [y(vl) y(vl)], '-or')
[mx,vx] = min(abs(x-v-2*T));
if mx < 0.1*T
plot([x(vr) x(vx)], [y(vr) y(vx)], ':or')
end
hold off
