% pythtriples.m  Suche von Pythagoraeischen Zahlentripeln
fhd = fopen('zahlentripel.txt','w');
syms x y ;
del = sym('1');
x = sym('0'); y = x;
for k=1:100
  x = x + del;
  y = x;
% y muss immer groesser sein als x
  for l=k+1:100
    y = y + del;
    c = sqrt(x^2+y^2);
    rest = simple(fix(c) - c);
    if rest == sym('0')
%     vermeiden von Vielfachen
      if gcd(x,y) == sym('1')
         x,y,c
         fprintf(fhd,' %4.0d ^2 +  %4.0d ^2 = %4.0d ^2 \n',...
	      double(x),double(y),double(c));
      end
    end
  end
end
