Circuit Theory/Simultaneous Equations/Example 5/ex5MuPad

R_1 := Symbol::subScript(R,1): R_2 := Symbol::subScript(R,2): R_3 := Symbol::subScript(R,3): R_4 := Symbol::subScript(R,4): R_5 := Symbol::subScript(R,5): I_1 := Symbol::subScript(I,1): I_2 := Symbol::subScript(I,2): V_1 := Symbol::subScript(V,1): i_R1 := Symbol::subScript(i,R1): i_R2 := Symbol::subScript(i,R2): i_R3 := Symbol::subScript(i,R3): i_R4 := Symbol::subScript(i,R4): v_R1 := Symbol::subScript(v,R1): v_R2 := Symbol::subScript(v,R2): v_R3 := Symbol::subScript(v,R3): v_R4 := Symbol::subScript(v,R4): v_R5 := Symbol::subScript(v,R5): v_I1 := Symbol::subScript(v,I1): v_I2 := Symbol::subScript(v,I2):

linsolve([ v_R1 = i_R1 * R_1, v_R2 = i_R2 * R_2, v_R3 = i_R3 * R_3, v_R4 = i_R4 * R_4, v_R5 = -I_2 * R_5, v_R2 + v_R1 - V_1 = 0, v_R3 + v_R4 + v_I1 - v_R2 = 0, v_R5 + v_I2 - v_R4 = 0, i_R1 - i_R2 - i_R3 = 0, i_R3 + I_2 - i_R4 = 0, i_R4 - I_2 - I_1 =0 ],[ i_R1, i_R2, i_R3, i_R4, v_R1, v_R2, v_R3, v_R4, v_R5, v_I1, v_I2]);