将复数化为三角表达式与指数表达式，用Mathematica怎么

第一问如果是版本10你可以看看AbsArg。版9的话：
{Abs@#, Arg@#} &[1 - Sqrt[3] I]
#1 Exp@#2 & @@ %
# Cos@HoldForm@#2 + I # Sin@HoldForm@#2 & @@ %%
比较麻烦的其实是第二问，怎么利用化简函数把ArcTan@Tan@θ化掉一时想不出来，唉呀算了就这样吧反正约等于已经出来了：
Simplify[ComplexExpand[{Abs@#, Arg@#} &[1 + I Tan@θ],
TargetFunctions -> {Re, Im}], Pi < θ < 3 Pi/2]
#1 Exp@#2 & @@ %
# Cos@HoldForm@#2 + I # Sin@HoldForm@#2 & @@ %%