Aufgabe 1

clear all;
%Konstanten
c = 3e8
c = 300000000
alphaMaxDS = @(n,lambda,g) asind(n*lambda / g);
alphaMinDS = @(n,lambda,g) asind((2*n-1)*lambda/2 / g);
alphaMinES = @(n,lambda,b) asind(n*lambda / b);
alphaMaxES = @(n,lambda,b) asind((2*n+1)*lambda/2 / b);
%Gegeben
g = 20e-6
g = 2.0000e-05
a = 2.8
a = 2.8000
dx = 6e-2
dx = 0.0600

a)

lambda = g*dx / (1*a)
lambda = 4.2857e-07

b)

nMax = g / lambda
nMax = 46.6667
nMax = floor(nMax)
nMax = 46
n = 1;
alpha = [];
while true
alpha(end+1) = alphaMaxDS(n(end),lambda,g);
if ~isreal(alpha(end))
alpha = alpha(1:end-1);
n = n(1:end-1);
break;
end
%fprintf('n = %d: alpha = %f°\n',n,alpha);
n(end+1) = n(end)+1;
end
plot(n,alpha)
x = a*tand(alpha(end))
x = 16.3870

c)

nEs = 1
nEs = 1
nDs = 5
nDs = 5
b = nEs * g/ nDs
b = 4.0000e-06