Can anyone figure this out? Just getting solutions may have been lost :/ 

 

Kabel FeAl35
restart;
r[FeAl] := .51;
x[FeAl] := I*.38;
c[FeAl] := 9.5*10^(-9);
l[12] := 14;

PEX 240 Al
r[PEX] := 0.8e-1;
x[PEX] := I*.32;
c[PEX] := 11.4*10^(-9);
l[23] := 5;

Beregner Admittanser
X[12] := x[FeAl]*l[12];
R[12] := r[FeAl]*l[12];
Z[12] := R[12]+X[12];
X[23] := x[PEX]*l[23];
R[23] := r[PEX]*l[23];
Z[23] := R[23]+X[23];
C[12] := c[FeAl]*l[12];
C[23] := c[PEX]*l[23];
X[C1] := -I/(50*Pi*C[12]);
X[C2] := -I/(50*Pi*C[23]);
YC1 := 1/X[C1];
YC2 := 1/X[C2];
Y12 := 1/Z[12];
Y23 := 1/Z[23];
Y11 := Y12+YC1;
Y22 := Y12+YC1+Y23+YC2;
Y33 := Y23+YC2;
Y13 := 0;
Y := Matrix([[Y11, -Y12, -Y13], [-Y12, Y22, -Y23], [-Y13, -Y23, Y33]]);
PL2 := 5000000;
PL3 := 3000000;
PG3 := 2300000;
PF := .98;
P2 := -PL2;
Q2 := P2*tan(arccos(PF));
P3 := PG3-PL3;
Q3 := P3*tan(arccos(PF));
V1 := 22000;
eq1 := conjugate(V2)*V2*V2 = ((P2-I*Q2)*V2-conjugate(V2)*V2*(V1*Y12+V3*Y23))/Y22;
eq2 := conjugate(V3)*V3*V3 = ((P3-I*Q3)*V3-conjugate(V3)*V3*(V1*Y13+V2*Y23))/Y33;
solve({eq1, eq2}, {V2, V3});