function x1=verschiebungize3test2(la,lb,lc,Ia,Ib,Ic,RC)
d  = zeros (7,1);
d=[la,lb,lc,Ia,Ib,Ic,RC]
varx=polytest2(d(1),d(2),d(3),d(4),d(5),d(6),d(7))
varx=roots(varx)
x0=dominant2(varx)
#x0=dominant2(roots(polytest2(d(1),d(2),d(3),d(4),d(5),d(6),d(7))));
x2=minimize6test2(x0+1*10.^9);
if abs(dominant2(roots(polytest2(x2(1),x2(2),x2(3),x2(4),x2(5),x2(6),x2(7))))-(x0+1.*10.^9))<10.^8
x1=x2;
#x1=x0+1*10.^8;
else x3=minimize6test2(real(x0)+0.70711*10.^9+(imag(x0)+0.70711.*10.^9).*i)
if abs(dominant2(roots(polytest2(x3(1),x3(2),x3(3),x3(4),x3(5),x3(6),x3(7))))-(real(x0)+0.70711*10.^9+(imag(x0)+0.70711.*10.^9).*i))<10.^8
x1=x3;
#x1=real(x0)+((1/2).*sqrt(2))*10.^8+(imag(x0)+(1/2).*sqrt(2)*10.^8).*i;
else x4=minimize6test2(x0+i.*10.^9);
if abs(dominant2(roots(polytest2(x4(1),x4(2),x4(3),x4(4),x4(5),x4(6),x4(7))))-(x0+i.*10.^9))<10.^8
x1=x4;
#x1=x0+i*10.^8
else x5=minimize6test2(real(x0)-0.70711.*10.^9+(imag(x0)+0.70711*10.^9).*i);
if abs(dominant2(roots(polytest2(x5(1),x5(2),x5(3),x5(4),x5(5),x5(6),x5(7))))-(real(x0)-0.70711.*10.^9+(imag(x0)+0.70711*10.^9).*i))<10.^8
x1=x5;
#x1=real(x0)-((1/2).*sqrt(2))*10.^8+(imag(x0)+(1/2).*sqrt(2)*10.^8).*i;
else x6=minimize6test2(x0-1.*10.^9);
if abs(dominant2(roots(polytest2(x6(1),x6(2),x6(3),x6(4),x6(5),x6(6),x6(7))))-(x0-1.*10.^9))<10.^8
x1=x6;
#x1=x0-1*10.^8
else x7=minimize6test2(real(x0)-0.70711.*10.^9+(imag(x0)-0.70711*10.^9).*i);
if abs(dominant2(roots(polytest2(x7(1),x7(2),x7(3),x7(4),x7(5),x7(6),x7(7))))-(real(x0)-0.70711*10.^9+(imag(x0)-0.70711*10.^9).*i))<10.^8
x1=x7;
#x1=real(x0)-((1/2).*sqrt(2))*10.^8+(imag(x0)-(1/2).*sqrt(2)*10.^8).*i;
else x8=minimize6test2(x0-i.*10.^9);
if abs(dominant2(roots(polytest2(x8(1),x8(2),x8(3),x8(4),x8(5),x8(6),x8(7))))-(x0-i.*10.^9))<10.^8
x1=x8;
#x1=x0-i*10.^8
else x9=minimize6test2(real(x0)+0.70711.*10.^9+(imag(x0)-0.70711.*10.^9).*i);
if abs(dominant2(roots(polytest2(x9(1),x9(2),x9(3),x9(4),x9(5),x9(6),x9(7))))-(real(x0)+0.70711.*10.^9+(imag(x0)-0.70711.*10.^9).*i))<10.^8
x1=x9;
#x1=real(x0)+(1/2).*sqrt(2)*10.^8+(imag(x0)-(1/2).*sqrt(2)*10.^8).*i;
else x1=[la,lb,lc,Ia,Ib,Ic,RC]
#x1=x0
endif
endif
endif
endif
endif
endif
endif
endif
endfunction
