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]);