Circuit Theory/Phasors/Examples/Example 10/mfilev

current := Symbol::accentHat(K);
voltage := Symbol::accentHat(V);
linsolve([current = voltage/R + voltage/(I*w*L)],[voltage]);
Re(voltage);
Im(voltage);
abs(voltage);
angle(voltage);
current := 120*sqrt(2)*(cos(2*pi/3) + I*sin(2*pi/3));