WICHTIG: Der Betrieb von goMatlab.de wird privat finanziert fortgesetzt. - Mehr Infos...

Mein MATLAB Forum - goMatlab.de

Mein MATLAB Forum

 
Gast > Registrieren       Autologin?   

Partner:




Forum
      Option
[Erweitert]
  • Diese Seite per Mail weiterempfehlen
     


Gehe zu:  
Neues Thema eröffnen Neue Antwort erstellen

QR-Zerlegung, lineares Gleichungssystem

 

DANpower

Gast


Beiträge: ---
Anmeldedatum: ---
Wohnort: ---
Version: ---
     Beitrag Verfasst am: 29.03.2010, 21:50     Titel: QR-Zerlegung, lineares Gleichungssystem
  Antworten mit Zitat      
Guten Abend, liebe Forum-Besucher!

Ich beschäftige mich momentan mit dieser Aufgabe (a), die diesem Post angehängt sein sollte.

Ich muss mein Code, den ich vor ca. einer Woche geschrieben habe, so abändern / erweitern, damit man (x^{(i)}, y^{(i)}) eingeben kann, und der Vektor a resultieren soll.

Mein Code sieht wie folgt aus:

Code:
clear all;
disp('Es wird eine QR-Zerlegung mit Householder berechnet.')
disp('====================================================')
disp('---------------------------')
disp('| H=I-ß*uu^T |')
disp('| u=x+sign(x1)*||x||_2*e1 |')
disp('| ß=2/(u^Tu) |')
disp('---------------------------')
disp(' ')
A0=input('Matrix A eingeben: ')
b=input('Vektor b eingeben: ');
disp(' ')
disp(' ')
n=length(A0);
m=length(A0');
A=A0;
min=min(m-1,n);
Q=eye(n);

% Ist b ein Spaltenvektor ?
[q,p] = size(b);
if q~=n
error('b hat die falsche Dimension!');
end


for k=1:min
fprintf('Durchgang %g n', k)
disp('================')

clear x;
clear u;
clear beta;
clear e1;

e1=zeros(m+1-k,1);
for i=k:min+1
x(i+1-k,1)=A(i,k);
end
x
x2=norm(x,2);
signx=sign(x(1,1))
e1(1,1)=1;
e1

u=x+signx.*x2.*e1
beta=2/(u'*u)

id=eye(n+1-k);
disp(' ')
H=id-beta.*(u*u')

Qk=eye(n);
for i=k:n
for j=k:n
Qk(i,j)=H(i+1-k,j+1-k);
end
end
Qk
Q=Qk*Q;
Ak=Qk*A
A=Ak;
disp(' ')
pause
end


R=A;
A=A0;
Q=Q';
disp(' ')
disp('Die QR-Zerlegung mit Householder')
disp('--------------------------------')
A
Q
R


%Berechnung einer LGS Lösung
disp(' ');
ans=input('Soll noch ein LGS gelöst werden? 0-nein, 1-ja: ');

if ans==0
break
else
b=input('Vektor b eingeben: ')

%Qy=b lösen. Q ist orthogonal Q^(-1)=Q'
y=Q'*b;

%Rx=y durch Rückwärtssubstitution lösen.
x(n,1)=y(n,1)/R(n,n);
sum=0;
for i=(n-1):-1:1
for j=i+1:n
sum=sum+R(i,j)*x(j,1);
end
x(i,1)=(y(i,1)-sum)/R(i,i);
sum=0;
end
x

%Kontrolle
xm=Ab

end
 


Ich bin seit vorgestern am studieren, was bzw. wie ich den Code abändern könnte, um das gewünschte zu erreichen - leider bisher erfolglos.
Daher würde es mich sehr freuen, wenn sich das jemand anschauen und mir evtl auch Vorschläge zeigen würde - natürlich kann auch ein ganz anderer Ausgangscode verwendet werden Smile

Ich bedanke mich bereits im Voraus und wüsche einen schönen Abend!

Unbenannt.jpg
 Beschreibung:

Download
 Dateiname:  Unbenannt.jpg
 Dateigröße:  112.07 KB
 Heruntergeladen:  1087 mal


Thomas84
Forum-Meister

Forum-Meister


Beiträge: 546
Anmeldedatum: 10.02.10
Wohnort: ---
Version: ---
     Beitrag Verfasst am: 30.03.2010, 06:19     Titel:
  Antworten mit Zitat      
auf Wikipedia steht da was dazu: http://de.wikipedia.org/wiki/QR-Zerlegung
Private Nachricht senden Benutzer-Profile anzeigen
 
Neues Thema eröffnen Neue Antwort erstellen



Einstellungen und Berechtigungen
Beiträge der letzten Zeit anzeigen:

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
.





 Impressum  | Nutzungsbedingungen  | Datenschutz | FAQ | goMatlab RSS Button RSS

Hosted by:


Copyright © 2007 - 2024 goMatlab.de | Dies ist keine offizielle Website der Firma The Mathworks

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.