clear
close all
format long 

% realmax 



% finde die größte Potenz von 2
for n = 1:100000
  
  if 2^n == inf, break;end
  
end

x = 2^(n-1)

% now x = 8.988465674311580e+307


% finde die größte Zahl
while x + 2^(n-2) < inf && x < x + 2^(n-2) 
  
  n = n-1;
  x = x + 2^(n-1);
  
end

x

% now x= 1.797693134862316e+308


