function []=startew(genau)
% ======================================================================
% Startroutine fuer das CG-Verfahren mit ewert.m
%	S.F.
% ----------------------------------------------------------------------
global A

% Eigenwerte:
D=diag([1 1.0001 1.1  100 100.1 9.999]);

% Orthogonale Matrix, damit A nicht Diagonalmatrix. 
Z=[2 1 0 0 0 0 ;1 2 1 0 0 0;0 1 2 1 0 0;0 0 1 2 1 0; 0 0 0 1 2 1;0 0 0 0 1 2];
z1=orth(Z);
%z1=rot(1,2,length(D),pi/4)*rot(3,4,length(D),pi/4)*rot(5,6,length(D),pi/4);
% Beide z1 sind moeglich. A hat dieselben EW. wie D.

A=z1'*D*z1;


b=zeros(6,1)  ;

amalvname='ewert2'; 
% Als Startvektor verwenden wir einen Vektor, der lauter Einsen enthaelt.
x = ones(6,1); 
if nargin <1, genau=1E-8;end;

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

lsg

disp(sprintf('%s%d','Anzahl der Iterationen : ',k ))
disp(sprintf('%s%d','Anzahl der F-Auswertungen : ',nfc ))
