Wolfram mathematica 如何在mathematica 9中为特殊情况绘制根轨迹

我的闭环传递函数是：

H(s)=2exp(-q)/(1+exp(-2q)) 

q=sqrt((a+k sqrt(s)+s)*s) ,  s=sigma+jw

对于不同的k值，如何绘制H（s）的根轨迹作为“a”的变化？

---

我需要一个mathematica 9的代码，我已经检查了一些代码，但它们不起作用。

它只是用于分析传递函数！！所以它不适合我的传递函数。我建议mathematica.stackexchange.com。请使用mathematica语法，以便需要帮助的人可以剪切粘贴您的代码。