Circuit Theory/Complex Frequency Examples/example15/code

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