c1 := 10*10^-6; r1 := 10000; L1 := 10*10^-3; r2 := 2; s = -100 + 6000*I; numeric::linsolve([ v2 = r1*i2, i3 = c1 * s * v3, v1 = L1*s*i1, v4 = r2 *i1, i1-i2-i3 = 0, v3 + v1 + v4 - 10 = 0, v3 - v2 =0], [v1,v2,v3,v4,i1,i2,i3])
