Circuit Theory/Simultaneous Equations/Example 4/ex4MuPad

i_1 := Symbol::subScript(i,1):i_2 := Symbol::subScript(i,2): i_3 := Symbol::subScript(i,3):i_4 := Symbol::subScript(i,4): i_5 := Symbol::subScript(i,5):v_1 := Symbol::subScript(v,1): v_2 := Symbol::subScript(v,2):v_3 := Symbol::subScript(v,3): v_4 := Symbol::subScript(v,4):v_5 := Symbol::subScript(v,5): v_6 := Symbol::subScript(v,6):v_s := Symbol::subScript(V,s):

linsolve ([ v_1 = i_1 * R, v_2 = i_2 * 2 * R, v_3 = i_3 * R, v_4 = i_4 * 2 * R, v_5 = i_5 * R, v_6 = i_5 * 2 * R, v_1 + v_2 - v_s = 0, v_3 + v_4 - v_2 = 0, v_5 + v_6 - v_4 = 0, i_1 - i_2 - i_3 = 0, i_3 - i_4 - i_5 =0 ],[ i_1,i_2,i_3,i_4,i_5,v_1,v_2,v_3,v_4,v_5,v_6]);

R :=100:v_s :=1: linsolve ([ v_1 = i_1 * R, v_2 = i_2 * 2 * R, v_3 = i_3 * R, v_4 = i_4 * 2 * R, v_5 = i_5 * R, v_6 = i_5 * 2 * R, v_1 + v_2 - v_s = 0, v_3 + v_4 - v_2 = 0, v_5 + v_6 - v_4 = 0, i_1 - i_2 - i_3 = 0, i_3 - i_4 - i_5 =0 ],[ i_1,i_2,i_3,i_4,i_5,v_1,v_2,v_3,v_4,v_5,v_6]);

numeric::linsolve ([ v_1 = i_1 * R, v_2 = i_2 * 2 * R, v_3 = i_3 * R, v_4 = i_4 * 2 * R, v_5 = i_5 * R, v_6 = i_5 * 2 * R, v_1 + v_2 - v_s = 0, v_3 + v_4 - v_2 = 0, v_5 + v_6 - v_4 = 0, i_1 - i_2 - i_3 = 0, i_3 - i_4 - i_5 =0 ],[ i_1,i_2,i_3,i_4,i_5,v_1,v_2,v_3,v_4,v_5,v_6]);