% Lösungen der Klausurbeispiele Teil 2

% Bsp 1
t = 0:.01:2*pi;x=cos(t).^2;y=sin(t);subplot(1,1,1),plot(x,y)

x=0:pi/100:pi; [X,Y]=meshgrid(x);subplot(2,1,2),z=sin(Y.^2+X)-cos(Y-X.^2); mesh(x,x,z)


% Bsp 2

function f_int = trapez(integrand,a,b,n);
%
h = (b-a)/n;
x = a:h:b;
f = feval(integrand,x);
f_int = (sum(f) -.5*(f(1)+f(end)))*h;

return


function y = integrand(x);
%
% Beispiel für trapezregel

y = 1./(1+x);
return

function anz =zufall
% select a random x number until .56 >0 x >0 .85 ocurs for the first time

anz = 0;
x= inf;
while x < .65 | x > .85
    anz = anz+1;
    x = rand
end
disp(['Es wurden ',num2str(anz), ' Züge benötigt'])

return