simba - Simba SRL6 - minE 函数

Question

我已经看到了这个基于 Delphi 的 SRL6 Simba 脚本语言的代码

    dist:= hypot(xs - xe, ys - ye);
    wind:= minE(wind, dist);
    if (dist < 1) then
      dist := 1;
    PDist := (dist/TDist);

和

    if (getSystemTime() > t) then
      break;

    dist:= hypot(xs - xe, ys - ye);
    wind:= minE(wind, dist);

真的，我们关注的是最后一个片段的底线 - minE(..)。这个函数可能意味着什么？我知道这是数学问题，是的，我已经用 Google 搜索了一个小时，但无济于事！谢谢您的帮助

Answer 1

MinE 只是扩展值的包装器。如本例所示：

function ps_MinE(a, b : extended) : extended; extdecl;
begin
  result := min(a,b);
end;