%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Elidon Dhamo                                                          %
%                                                                       %
%        Loesungen zu den Uebungen des Matlab-Kurses / WS02/03          %
%                                                                       %
% Aufgaben 10 - 16                                            04.11.02  %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


% Aufgabe 10
% s. M-Skript: "aufg10.m"
r = 1;
aufg10
r = 0.5;
aufg10
r = 0.25;
aufg10

% Aufgabe 11
% Fibonacci - Zahlen
% s. M-Skript: "aufg11.m"
aufg11


% Aufgabe 12
% a) 
x = 33; % z.B.
aufg12 % M-Skript "aufg12.m"
% b)
x = input('Geben Sie bitte eine reelle Zahl ein: ');
aufg12
% c)
x = input('Geben Sie bitte eine reelle Zahl ein: ');
while ~isempty(x)
    aufg12
    x = input('Geben Sie bitte eine reelle Zahl ein: ');
end


% Aufgabe 13
% PI
% s. M-Skript: "aufg13.m"
aufg13


% Aufgabe 14
% Pascalisches Dreieck
% s. Funktionsfile: "pascal.m"
pascal(10)


% Aufgabe 15
% p-q-Formel
% s. Funktionsfile: "pqFormel.m"
% Beispielaufruf:
[x1, x2] = pqFormel(1,2,-3)


% Aufgabe 16
% Legendre - Polynome
% s. Funktionsfile: "legendre.m"
n = 6;
L = legendre(n)
x = -1:0.01:1;
figure
for k = 1:size(L,1)
    y = zeros(size(x));
    for j = size(L,2):-1:1
        y = y + (L(k,j)*(x.^(size(L,2)-j)));
    end
    plot(x,y)
    hold on
end
