% zu Aufgabe 2.2:
% Statistische Untersuchung zur Gueltigkeit des Assoziativgesetzes
% fuer Maschinenzahlen

N = 1000;
a = randn(N,1);
b = randn(N,1);
c = randn(N,1);

v = (a + b) + c;
w = a + (b + c);

anzahl = 0;
for i = 1:N
  if v(i) ~= w(i)
    anzahl = anzahl + 1;
  end
end    % kuerzer: anzahl = sum(v ~= w);
disp('Assoziativgesetz verletzt:')
disp(anzahl)

%
% Zusatzaufgabe: Gueltigkeit des Distributivgesetzes
v = a .* (b + c);
w = a .* b + a .* c;

anzahl = 0;
for i = 1:N
  if v(i) ~= w(i)
    anzahl = anzahl + 1;
  end
end    % kuerzer: anzahl = sum(v ~= w);
disp('Distributivgesetz verletzt:')
disp(anzahl)