function [y] = Amalv(v);
% ======================================================================
% Unterroutine zum CG-Verfahren fuer quadratische Funktionen. 
% Die zu minimierende Funktion lautet:
%  f(x) = (x1)^2 + 2(x1)(x100) + 2(x100)^2 + 2(x500)
% Diese Routine berechnet das Produkt aus Matrix A und dem uebergebenen
% Vektor v. Beachte: A ist symmetrisch und positiv definit.
%
% Erstellt fuer die Veranstaltung
% Weiterbildenes Studium fuer Ingenieure WS 98/99
%
% Helge Baumann, 29.6.1998
% ----------------------------------------------------------------------
global nfc
nfc = nfc+1;

y = zeros(500,1);
y(1,:) = 2*v(1,:) + 2*v(100,:);
y(100,:) = 2*v(1,:) + 4 * v(100,:);
y(500,:) = 2 * v(500,:);

