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)