%EVENODD Skript m-File zur Demonstration gerader und ungerader Funktionen
% die Vektoren x,y  muessen vorher definiert werden
v = input('Bitte Vergleichs-x-Wert eingeben: ');
[mr,vr] = min(abs(x-v)); [ml,vl] = min(abs(x+v));
mg = min(abs(y(vl)-y(vr))); mu = min(abs(y(vl)+y(vr)));
plot(x,y,'k'); hold on;  axis equal
if mu < mg
  plot([x(vl) 0  x(vr)],  [-y(vr) 0 y(vr)], '-or')
else
  plot([x(vl) 0  x(vr)],  [y(vr)  y(vr) y(vr)], '-og')
end
hold off
