电路理论/联立方程/示例 2/ex2MuPad

v_1 := Symbol::subScript(v,1);
I_1 := Symbol::subScript(I,1);
R_1 := Symbol::subScript(R,1);
R_2 := Symbol::subScript(R,2);
i_R1 := Symbol::subScript(i, R . 1);
i_R2 := Symbol::subScript(i, R . 2);
linsolve ([I_1-i_R1-i_R2=0,v_1=i_R1*R_1,v_1=i_R2*R_2],[v_1,i_R1,i_R2]);
I_1:=1;R_1:=100;R_2:=50;
linsolve ([I_1-i_R1-i_R2=0,v_1=i_R1*R_1,v_1=i_R2*R_2],[v_1,i_R1,i_R2]);
numeric::linsolve ([I_1-i_R1-i_R2=0,v_1=i_R1*R_1,v_1=i_R2*R_2],[v_1,i_R1,i_R2]);