In[5]:= f = Compile[{{x, _Real}}, Sin[x]]
Out[5]= CompiledFunction[{11, 12.2, 5468}, {
Blank[Real]}, {{3, 0, 0}, {3, 0, 1}}, {}, {0, 0, 2, 0, 0}, {{40, 1, 3,
0, 0, 3, 0, 1}, {1}},
Function[{x},
Sin[x]], Evaluate]
In[9]:= FindMaximum[f[x], {x, 1.7}]
\:6B63\:5728\:8BA1\:7B97In[9]:= CompiledFunction::cfsa: 位置 1 处的变量 x 应该是一个 machine-size real number.
Out[9]= {1., {x -> 1.5708}}
如上例，编译后的函数求极大值虽然能给出正确答案但却报错了。怎样避免这种情况？

说实话我没看出来为啥会这样
Off[CompiledFunction::cfsa]
使用上述命令可以将错误信息关闭，这样就不会出现错误提示了（不建议）
或者不编译函数，直接使用函数
f[x_] = Sin[x]
FindMaximum[{f[x]}, {x, 1.7}]
也不错出现错误信息

你上次关于FindRoot问过类似的问题，原理是一样的。
https://gitee.com/rnotlnglgq/wlcnfaq/blob/master/FAQ/NestedNumericalComputation.md

In[890]:= f=Compile[{{x,_Real}},Sin[x],RuntimeOptions->"EvaluateSymbolically"->True];
FindMaximum[f[x],{x,1.7}]
\:6B63\:5728\:8BA1\:7B97In[890]:= CompiledFunction::cfsa: 位置 1 处的变量 x 应该是一个 machine-size real number.
Out[891]= {1.,{x->1.5708}}
怎么还是报错了？

In[80]:=
m = Table[RandomReal[{1, 100}], {i, 10}];
n = Table[RandomReal[{1, 100}], {i, 10}];
f = Compile[{{x, _Real}},
Module[{sol},
sol = Sin[x0 y0 x];
Total[Table[(sol /. {x0 -> m[[j]], y0 -> n[[j]]})^2, {j, 10}]]
], RuntimeOptions -> "EvaluateSymbolically" -> False
];
f[1]
\:6B63\:5728\:8BA1\:7B97In[80]:= CompiledFunction::cfse: 被编译表达式 x0 应该是一个 machine-size real number.
\:6B63\:5728\:8BA1\:7B97In[80]:= CompiledFunction::cfex: 在说明 1 中不能完成外部计算；继续未编译的计算.
Out[83]= 6.39718
为什么这个也报错了？

In[96]:=
m = Table[RandomReal[{1, 100}], {i, 10}];
n = Table[RandomReal[{1, 100}], {i, 10}];
f = Compile[{{x, _Real}},
Module[{sol},
sol = Sin[x0 y0 x];
Total[Table[(sol /. {x0 -> m[[j]], y0 -> n[[j]]})^2, {j, 10}]]
], {{x0, _Real}, {y0, _Real}},
RuntimeOptions -> "EvaluateSymbolically" -> False
];
f[1]
\:6B63\:5728\:8BA1\:7B97In[96]:= CompiledFunction::cfse: 被编译表达式 x0 应该是一个 machine-size real number.
\:6B63\:5728\:8BA1\:7B97In[96]:= CompiledFunction::cfex: 在说明 1 中不能完成外部计算；继续未编译的计算.
Out[99]= 3.39222
变成这个形式同样报错！

In[4]:= f[x_?NumericQ] := x^2 - 2
In[5]:= {res, data} =
Reap[FindRoot[f[x], {x, 1}, EvaluationMonitor :> Sow[x - Sqrt[2]]]]
Out[5]= {{x -> 1.41421}, {{-0.414214, 0.0857864, 0.0024531,
2.1239*10^-6, 1.59472*10^-12, 0.}}}
上面EvaluationMonitor 可以监视迭代步数，怎样才能给出函数f[x]的调用次数呢？

In[9]:= Block[{c = 0}, {FindRoot[f[x], {x, 1},
EvaluationMonitor :> c++], c}]
Out[9]= {{x -> 1.41421}, 6}
帮助文档上说的“数目计算”，这个数目指的是啥的数目

f[x_?NumericQ] := x^3 + x - 2
In[35]:= FindRoot[f[x] == 0, {x, 0.}] // Trace[#, f[___]] &
Out[35]= {}