B
Ingenieurmathematik Prüfung 2
12.Mai2009
Zeit 90 Minuten, Reihenfolge beliebig, 8 Punkte pro Hauptaufgabe,
40 Pt. = N.6.
zsqr = exp(j*3*pi/4)
tstsq = zsqr^2
dum = input('BL1a) weiter?');
M = [0 6 3; 0 0 3];
MM= [M M]; % Anfangspunkt muss nochmal vorkommen
plot(MM(1,:),MM(2,:)); axis equal
dum = input('BL1b) weiter?');
Oexa = [0 1 0; 1 0 0; 0 0 1]
Otst = Oexa'*Oexa
dum = input('BL1c) weiter?');
disp('Weil der Algorithmus abbricht, wenn ein 0-Pivot')
disp('auftaucht, durch das man nicht dividieren kann')
dum = input('BL1d) weiter?');
w = 0:pi/40:8*2*pi; r = 2
h = 4/8 , y = w*h/(2*pi);
z = r*cos(w) ; % z = r*cos(w) ;
x = r*sin(w) ; % x = r*sin(w) ;
figure(1); clf
plot3(x,y,z); axis equal
dum = input('BL2) weiter?');
figure(1); clf
wnro = 0:8; wo = 2*pi*wnro/8 + 3*pi/2; zo = exp(j*wo);
wnrh = 0:16; wh = 2*pi*wnrh/16 + 3*pi/2; zh = exp(j*wh);
plot(zo,'k') ; hold on ;
plot(zh, 'r');axis equal; hold off
dum = input('BL3) weiter?');
figure(1); clf
A = [ 0 0 0]'; B = [ 6 0 0]'; C = [ 6 4 0]'; D = [ 0 4 0]';
E = [ 0 0 5]'; F = [ 6 0 5]'; G = [ 6 4 5]'; H = [ 0 4 5]';
Mab = (A+B)/2; Mcd = (C+D)/2;
Nf = cross(D-Mab,H-Mab), enf = Nf/norm(Nf)
dkrf = enf'*Mab, dtD = enf'*D-dkrf, dtH = enf'*H-dkrf
eng = enf % Parallele Ebenen
dkrg = eng'*B, dtMcd = eng'*Mcd-dkrg, dtF = eng'*F-dkrg
% en'*(Vg + lam*rg) - dkrit - 0
% lam = (dkrit - en'*Vg)/(en'*rg)
laf = dkrf / (enf'*(G-A)) , DPtf = 0 + laf * G
lag = dkrg / (enf'*(G-A)) , DPtg = 0 + lag * G
dum = input('BL4) weiter?');
% function Spt = symmcop(M)
M = rand(5)
[nzei,nspa] = size(M); Spt = M;
for spa = 2:nzei
for zei = 1:spa-1
Spt(zei,spa) = Spt(spa,zei);
end
end
Spt, Tsym = Spt'-Spt
dum = input('BL5) weiter?');
figure(1); clf
Dori = [ 0 10 5 0; 0 0 5*sqrt(3) 0; 1 1 1 1]
w = atand(sqrt(3)/3)
Rot1 = [ cosd(-w) -sind(-w) 0; sind(-w) cosd(w) 0; 0 0 1]
Mx = [1 0 0; 0 -1 0 ; 0 0 1]
Rot2 = [ cosd(w) -sind(w) 0; sind(w) cosd(w) 0; 0 0 1]
Ttot = Rot2*Mx*Rot1
Dtr = Ttot*Dori
plot(Dori(1,:)+0.1, Dori(2,:)+0.1)
hold on
axis([-12 12 -12 12]); axis square
plot([0 0 ],[-12 12],'k') ; plot([-12 12 ],[0 0],'k')
plot([-5 15],[-5*sqrt(3)/3 15*sqrt(3)/3],'k')
plot(Dtr(1,:), Dtr(2,:),'r')
hold off
dum = input('BL6) weiter?');