Circuit Theory/Extra Element/code

[[Media:]]

r1:=1:r2:=1;r3:=1;r4:=1;c:=1;
linsolve([
(vs-va)/r1 - va/(s*c) - (va-vb)/r2 = 0,
(va-vb)/r2 - vb/r4 + (vs-vb)/r3 = 0,
current = va/(s*c) + vb/r4],[current,
va, vb])

5*(1 + 3*s/5)/(3*(1 + 5*s/3))