B4

Contents

A13

clear all
fprintf('\nA13\n')
X=[-30 -3 3 30];
for y = X
    x =y;
    n=1;
    while abs(x) > 0.5
        n=n*2;
        x=x/2.;
    end
    My_exp = 1;
    div = 1;
    for i=1:15
        div = div*i;
        My_exp = My_exp + 1/div*x^i;
    end
    My_exp=My_exp^n;
    fprintf('MyExp(%3.f) = %10.10e, exp(%3.f) = %10.10e, Differenz = %10.10e\n',...
                     y,      My_exp,      y,       exp(y),            My_exp-exp(y));
end

A13
MyExp(-30) = 9.3576229688e-14, exp(-30) = 9.3576229688e-14, Differenz = 7.5730646901e-29
MyExp( -3) = 4.9787068368e-02, exp( -3) = 4.9787068368e-02, Differenz = -4.8572257327e-17
MyExp(  3) = 2.0085536923e+01, exp(  3) = 2.0085536923e+01, Differenz = 1.4210854715e-14
MyExp( 30) = 1.0686474582e+13, exp( 30) = 1.0686474582e+13, Differenz = -7.8125000000e-03

A14

clear all
fprintf('\nA14\n')
n=66;
while n~=1
    if mod(n,2)
        n = 3*n+1;
    else
        n=n/2;
    end
    fprintf(' %i',n)
end

fprintf('\n')

A14
 33 100 50 25 76 38 19 58 29 88 44 22 11 34 17 52 26 13 40 20 10 5 16 8 4 2 1

A15

clear all
fprintf('\nA15\n')
x=rand(1,100);
y=x;
schalter = true;
anz = 0;
tic;
while schalter
    anz = anz +1;
    schalter = false;
    for i=1:length(x)-1
        if(x(i)>x(i+1))
           tmp=x(i);
           x(i)=x(i+1);
           x(i+1)=tmp;
           schalter = true;
        end
    end
end
LoopTime = toc;
tic;
sort(y);
SortTime = toc;
    fprintf('#Loops = %4i, Zeit für Schleife = %6.6e, Zeit für sort = %6.6e\n',...
                      anz,                    LoopTime ,                 SortTime);

A15
#Loops =   95, Zeit für Schleife = 2.242241e-02, Zeit für sort = 5.377500e-05

A16

clear all
fprintf('\nA16\n')
q=1;
y=1;
while y>0
    q=q+1;
    y=2^(-q);
end
p=1;
x=0;
while x~=inf
    p=p+1;
    x=2^p;
end
    fprintf('q = %4i, p = %4i \n',...
                  q,       p        );

A16
q = 1075, p = 1024 

Published with MATLAB® R2014a