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