Circuit Theory/Simultaneous Equations/Example 1/ex1MuPad

V_1 := Symbol::subScript(V,1); i_1 := Symbol::subScript(i,1); R_1 := Symbol::subScript(R,1); R_2 := Symbol::subScript(R,2); v_R1 := Symbol::subScript(v, R . 1); v_R2 := Symbol::subScript(v, R . 2); linsolve ([v_R1+v_R2-V_1=0,v_R1=i_1*R_1,v_R2=i_1*R_2],[i_1,v_R1,v_R2]); V_1:=1;R_1:=100;R_2:=100; linsolve ([v_R1+v_R2-V_1=0,v_R1=i_1*R_1,v_R2=i_1*R_2],[i_1,v_R1,v_R2]); numeric::linsolve ([v_R1+v_R2-V_1=0,v_R1=i_1*R_1,v_R2=i_1*R_2],[i_1,v_R1,v_R2]);