User:1sfoerster/sandbox1/code4

v1 := Symbol::subScript(V,1); v2 := Symbol::subScript(V,2); vc := Symbol::subScript(V,c); vL := Symbol::subScript(V,L); vS := Symbol::subScript(V,S);

i1 := Symbol::subScript(i,1); i2 := Symbol::subScript(i,2); ic := Symbol::subScript(i,c); iL := Symbol::subScript(i,L); iS := Symbol::subScript(i,S);

r1 := Symbol::subScript(R,1); r2 := Symbol::subScript(R,2);

r1 :=1; r2 :=2; C :=1; L :=1; w :=1; vS :=s/(s^2 + 1); iS := -(2*((3^(1/2)*s)/2 - 1/2))/(s^2 + 1); linsolve ([ v1 = r1 * i1, v2 = r2 * i2, ic = C * s * vc, vL = L * s * iL, i1 + iS - i2 - ic=0, ic - iS - iL=0, v1 + v2 - vS=0, vc + vL - v2 =0], [v1, v2, vc, vL, i1, i2, ic, iL])