我已经看到了基于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搜索了一个小时但没有用!谢谢你的帮助
答案 0 :(得分:2)
MinE只是扩展值的包装器。如本例所示:
function ps_MinE(a, b : extended) : extended; extdecl;
begin
result := min(a,b);
end;