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