电路理论/联立方程/示例 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]);