Circuit Theory/Phasors/Examples/example11/code

v_S := Symbol::subScript(v,S); v_1 := Symbol::subScript(v,1); v_2 := Symbol::subScript(v,2); v_3 := Symbol::subScript(v,3); v_4 := Symbol::subScript(v,4); i_1 := Symbol::subScript(I,1); i_2 := Symbol::subScript(I,2); i_3 := Symbol::subScript(I,3); R_1 := Symbol::subScript(R,1); R_2 := Symbol::subScript(R,2); linsolve ([v_1 + v_s - v_3 = 0, v_2+v_4-v_3 = 0, v_4 = L*w*I*i_2, i_2 = I*w*C*v_2, v_1/R_1 + I*w*C*v_2 + v_3/R_2 = 0], [v_1,v_2,v_3,v_4,i_2]); w:=1;L:=1;C:=2;R_1:=1;R_2:=2;v_s:=1; linsolve ([v_1 + v_s - v_3 = 0, v_2+v_4-v_3 = 0, v_4 = L*w*I*i_2, i_2 = I*w*C*v_2, v_1/R_1 + I*w*C*v_2 + v_3/R_2 = 0], [v_1,v_2,v_3,v_4,i_2]);