halla leute ich habe folgendes program geschrieben, was aber wegen vorwärst einsetzen falsche ergebnisse liefert und weiss ich nicht mehr was dran falsch ist.
%-----------------------------------------------------------------
% Benutzungs Anweisung Der Programm % - Eingabe Einer Matrix A sovie vektor b % dann in der command windows "gausCholesky(A,b)" eigeben
%
% Beispiel: A=[1 3;2 1;4 0] % b=[1;2;1]
%
%-----------------------------------------------------------------
B=A'*A; %Gauß'sche Normalengleichung um
%nxn Matrix zu Erzegen
c=A'*b; %Vektor
[n,n] = size(B); %Dimension von Matrix
L=0; %Initialization von L
L(1,1)=sqrt(B(1,1));
for k=1:n-1 %Schleife
for i=1:k
sum=0;
for j=1:i-1 %Schleife Für Berechnung Der Summe
sum=sum+L(i,j)*L(k+1,j);
end
L(k+1,i)=1/L(i,i)*(B(k+1,i) - sum); %Nicht Diagonale Elemente von L
end sum=0; %Intialisierung Der Variable Summe "0"
for j=1:k %Schleife Für Berechnung Der Summe
sum=sum+L(k+1,j)^2;
end
L(k+1,k+1)=sqrt(B(k+1,k+1) - sum); %Diagonale Elemente von L
end
%--------------------------------------------------------------
% Ab Hier Schleife zum Berechnen von X-Werte
%--------------------------------------------------------------
for i=1:n
temp=0;
for j=1:i-1
temp = temp + x(j)*L(i,j);
end
x(i,1)=(c(i)-temp)/L(i,i);
end
%--------------------------------------------------------------
% Ab Hier Ausgabe Daten und Probe
%--------------------------------------------------------------
disp('Ausgabe Der Eigentliche Matrix A')
A
disp('Ausgabe Der Transponierter Eigentliche Matrix A^T')
AT=A'
disp('Ausgabe B=A^T*A Matrix(nxn)')
B
disp('Ausgabe von C Vektor')
c
disp('Ausgabe von Obere Dreiecks Matrix L (nxn)')
L
disp('Ausgabe von Untere Dreiecks Matrix L^T (nxn)')
LT=L'
disp('Ausgabe von x - Werte')
x
so endlich geschaft, es hätte auch nicht klappen können, weil ich kein rückwärst einsetzen programiert habe.
so nun sieht dass ganze so aus.
Zitat:
function gausCholesky(A,b);
%-----------------------------------------------------------------
% Benutzungs Anweisung Der Programm
% - Eingabe Einer Matrix A sovie vektor b
% dann in der command windows "gausCholesky(A,b)" eigeben
%
% Beispiel: A=[1 3;2 1;4 0]
% b=[1;2;1]
%-----------------------------------------------------------------
B=A'*A; %Gauß'sche Normalengleichung um nxn Matrix zu Erzegen
c=A'*b; %Unsere Neue Vektor
[n,n] = size(B); %Dimension von Matrix
L=0; %Initialization von L
L(1,1)=sqrt(B(1,1));
for k=1:n-1 %Schleife
for i=1:k
sum=0;
for j=1:i-1 %Schleife Für Berechnung Der Summe
sum=sum+L(i,j)*L(k+1,j);
end
L(k+1,i)=1/L(i,i)*(B(k+1,i) - sum); %Nicht Diagonale Elemente von L
end
sum=0; %Intialisierung Der Variable Summe "0"
for j=1:k %Schleife Für Berechnung Der Summe
sum=sum+L(k+1,j)^2;
end
L(k+1,k+1)=sqrt(B(k+1,k+1) - sum); %Diagonale Elemente von L
end
disp('Cholesky Matrix')
L % Ausgabe Von Cholesky Matrix
disp('Transponierter Cholesky Matrix')
LT=L' % Ausgabe Von Transponierter Cholesky Matrix
%--------------------------------------------------------------
% Ab Hier Schleife zum Berechnen von X-Werte
%--------------------------------------------------------------
%Ab Hier Vorwärst Einsetzen
for i=1:n
temp=0;
for j=1:i-1
temp = temp + y(j)*L(i,j);
end
y(i,1)=(c(i)-temp)/L(i,i);
end
%Ab Hier Rückwärst Einsetzen
x(n,1)=y(n)/LT(n,n);
for i=n-1:-1:1
x(i,1)=(y(i)-LT(i,i+1:n)*x(i+1:n))/LT(i,i);
end
disp('Ausgabe Von X Werte')
x
Einstellungen und Berechtigungen
Du kannst Beiträge in dieses Forum schreiben. Du kannst auf Beiträge in diesem Forum antworten. Du kannst deine Beiträge in diesem Forum nicht bearbeiten. Du kannst deine Beiträge in diesem Forum nicht löschen. Du kannst an Umfragen in diesem Forum nicht mitmachen. Du kannst Dateien in diesem Forum posten Du kannst Dateien in diesem Forum herunterladen
MATLAB, Simulink, Stateflow, Handle Graphics, Real-Time Workshop, SimBiology, SimHydraulics, SimEvents, and xPC TargetBox are registered trademarks and The MathWorks, the L-shaped membrane logo, and Embedded MATLAB are trademarks of The MathWorks, Inc.
RSS