Circuit Theory/Phasors/Examples/example14/phasor solution/code-mupad

r1 := 1000; c1 := 0.0001; r3 := 2000; c2 := 0.0002;
L2 := 0.001; L1 := 0.001; r2 := 500;
w := 1000; v1 := 5*(sqrt(3) + I); i1 := (1-I)/(2*sqrt(2));
numeric::linsolve([ v2 = i2*r1,
i3 = c1*w*I*v3,
v9 = i6*r3,
v6 = L1*w*I*i2,
i4 = c2*w*I*v4,
v5 = L2*w*I*i5,
v7 = r2*i1,
v2+v3+v9+v6-v1 = 0,
v4 + v5 - v9 = 0,
v7 + v3 + v4 - v8 = 0,
i2 + i1 -i3 = 0,
i3 - i4 - i6 = 0,
i4 - i1 - i5 =0],
[i2,i3,i4,i5,i6,v2,v3,v4,v5,v6,v7,v8,v9])