Mesh analysis

[rstofer]

One last pass for Mesh Analysis (what a PITA) for wxMaxima:

Code: [Select]

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:

Code: [Select]

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