头大，帮忙看看呗。
$RecursionLimit::reclim2: 在 Subscript[\[Rho], min] 计算过程中超过 1024 的递归深度.
begin
M=1000;
pts:={};
Subscript[\[Rho], step]=(Subscript[\[Rho], max]-Subscript[\[Rho], min])/M;
for i:=0 to M
\[Rho]:=Subscript[\[Rho], min]+i*Subscript[\[Rho], step];
c(q)=-1;
J(\[Rho],s):=\!\(
\*SubsuperscriptBox[\(\[Integral]\), \(0\), \(\[Rho]\)]\(
\*FractionBox[\(1\),
SqrtBox[\(F \((\[Rho])\) - F \((t)\)\)]] \[DifferentialD]t\)\)+\!\(
\*SubsuperscriptBox[\(\[Integral]\), \(s\), \(\[Rho]\)]\(
\*FractionBox[\(1\),
SqrtBox[\(F \((\[Rho])\) - F \((t)\)\)]] \[DifferentialD]t\)\)-(c(q)*s)/Sqrt[[F(\[Rho])-F(s)]]
q=FindRoot[J(\[Rho],s),{s，0}];
F(\[Rho])=\!\(
\*SubsuperscriptBox[\(\[Integral]\), \(0\), \(\[Rho]\)]\(Exp[u] \[DifferentialD]u\)\)；
F(q)=\!\(
\*SubsuperscriptBox[\(\[Integral]\), \(0\), \(q\)]\(Exp[u] \[DifferentialD]u\)\)；
\[Lambda]=(c(q)*q)^2/(2 [F(\[Rho])-F(q)]);
pts:=AppendTo[pts,{\[Lambda],\[Rho]}]
end
ListPlot[pts]
end

我算了一下，没问题啊

原帖子有些符号显示不出来，这是源程序

从头学过吧，mathematica里可没有什么begin end ，函数也应该用中括号。
http://www.wolfram.com/language/fast-introduction-for-programmers/zh/
https://reference.wolfram.com/language/guide/HowToTopics.html

begin和end的着色跟变量一样也太明显了吧

begin end for to
少年你是不是学过pascal以为就能走天下了啊？