function []=startcg()
% ======================================================================
% Startroutine fuer das CG-Verfahren mit einem
% einfachen Beispiel der Dimension 500.
% 
% Erstellt fuer die Veranstaltung
% Weiterbildenes Studium fuer Ingenieure WS 98/99
%
% Helge Baumann, 25.8.1998
% ----------------------------------------------------------------------

b = zeros(500,1); 
amalvname='Amalv'; 
% Als Startvektor verwenden wir einen Vektor, der lauter Einsen enthaelt.
x = ones(500,1); 

[lsg,k,nfc] = cg(x,amalvname,b);

disp('Komponenten des Loesungsvektors:')
disp(sprintf('%s%d','x(1) = ',lsg(1) ))
disp(sprintf('%s%d','x(100) = ',lsg(1) ))
disp(sprintf('%s%d','x(500) = ',lsg(1) ))
disp(sprintf('%s%d','Anzahl der Iterationen : ',k ))
disp(sprintf('%s%d','Anzahl der F-Auswertungen : ',nfc ))