求助 计算超出递归深度 (Recursion depth of 1024 exceed

算一个包含积分的方程组 解不出来
显示 $RecursionLimit::reclim: Recursion depth of 1024 exceeded.
General::stop: "Further output of \!\(\*StyleBox[RowBox[{\"$RecursionLimit\", \"::\", \"reclim\"}], \"MessageName\"]\) will be suppressed during this calculation. "
有没有什么解决办法吗 增加递归次数就行吗？ 还是说函数没有解？
在此拜谢各位大大
要是能解决的话 我会好好付钱的 = =
代码如下
********************************
Clear["`*"]
t;
z;
cA = 1;
n0 = 1.78;
nR = 1.47;
aInci = 65 ;
wlFab = 405;
wlMea = 638;
nP = 1.78;
nM = 0.135 + 3.985;
nMax = 1.51;
nR = nMax;
nDelt = 0.04;
convDeg = 1 - Exp[-cA*t*Exp[-bta*z]];
bta = 2*Pi*Sqrt[(nP*Sin[aInci Degree])^2 - nR^2]/wlFab;
Plot3D[convDeg, {t, 0, 10}, {z, 0, 1000}, PlotRange -> All]
k = 2*Pi*Abs[Sqrt[nR^4/(nM^2 + nEffSPR^2)]]/6 wlMea;
nEffSPR =
Integrate[(nMax - nDelt*convDeg)*Exp[-2*k*z], {z, 0, Infinity}];
Plot[nEffSPR, {t, 0, 10}, PlotRange -> All]