% function v = Regelgesetz(x)
init
Optimierungsergebnis
syms v
x = [-0.0392    0.0085   -0.0358    0.0167    0.2226]';
V = [v^5,v^4,v^3,v^2,v];
D = diag(V);

R=D\R1/D;
xRx = x'*R*x;

ks = D\adachstern-a0;
hs = D\adachs-a0;
hr = D\adachr-a;

es = hs'/R*hs;
er = hr'/R*hr;

hsx = sqrt(sum((hs'*x).^2));

v0 = 1;
[v,fval] = fsolve(@YY,v0)