mathematica的manipulate画不出图像

背景

第一次使用mathematica，希望通过manipulate模拟参数共振问题，寻找特定的参数条件使得方程中的α为实数且大于0，此时e^αt在t变大时会发散

问题相关代码

Manipulate[
 Module[{s1},
  s1 = Solve[(2*(b/n + \[CurlyEpsilon])*\[Alpha])^2 == (2*b^2*
         h - ((b/n + \[CurlyEpsilon])^2 - b^2))*(2*b^2*
         h + ((b/n + \[CurlyEpsilon])^2 - b^2)), \[Alpha]];
  Plot[x = e^(\[Alpha]t), {t, 0, 500}]], {{b, 2.5, 
   "\!\(\*SubscriptBox[\(\[Omega]\), \(0\)]\)"}, 0, 5, 
  0.1}, {{\[CurlyEpsilon], 0.0001, "\[CurlyEpsilon]"}, 0, 0.0002, 
  0.0000001}, {{h, 0.005, "h"}, 0, 0.01, 0.0001}, {{n, 1, "n"}, 1, 
  100, 1}]

运行结果及报错内容

没有报错，但是动态交互界面只有坐标轴没有图像（如截图所示）

我的解答思路和尝试过的方法

已百度，怀疑是解方程部分的问题，但因为没有报错感到无从下手

我想要达到的结果

画出图像，且能从图像找到符合条件的α