Circuit Theory/Phasors/Examples/Example 8/mfile8b

a=1697.0562748477140585620264690516;
b=2.0943951023931954923084289221863;
q=639.79021561758820007788397883247;
r=a*cos(b) + i*a*sin(b) -q*sin(b) + i*q*cos(b);
abs(r)
angle(r)