One last pass for Mesh Analysis (what a PITA) for wxMaxima:
eq1 : 0 = -V1 + Z1*I1 + Z4*(I1-I2) ;
eq2 : 0 = Z4*(I2-I1) + Z2*(I2-I4) + Z5*(I2-I3) ;
eq3 : 0 = Z5*(I3-I2) + Z3*I3 + V2 ;
eq4 : 0 = Z2*(I4-I2) + V3 ;
eq5 : VA = V1 - I1*Z1 ;
eq6 : VB = VA - V3 ;
eq7 : Z1 = 2 ;
eq8 : Z2 = -5*%i ;
eq9 : Z3 = 4 ;
eq10 : Z4 = -5*%i ;
eq11 : Z5 = 4*%i ;
eq12 : V1 = 120 ;
eq13 : V2 = 120*%i ;
eq14 : V3 = 14.14*%i + 14.14 ;
res : solve([eq1,eq2,eq3,eq4,eq5,eq6,eq7,eq8,eq9,eq10,eq11,eq12,eq13,eq14]);
expand(float(res));
We get:
VA=86.37610619469027 + 45.75840707964602*%i
VB=72.23610619469027 + 31.61840707964602*%i
I1=16.81194690265487 - 22.87920353982301*%i
I2=25.96362831858407 - 40.15442477876106*%i
I3=18.05902654867257 - 22.0953982300885*%i
I3=18.05902654867257 - 22.0953982300885*%i
I4=28.79162831858407 - 42.98242477876106*%i