请问这是哪种语言

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

FUNCTION imhofbd(lambda:realarray; mult:posintarray; delta:realarray; noterms:units; epsl,eps2:real; VAR ifault:nonnegint):real; (Algorithm AS 256.1 Appl. Statist. (1990) Vol.39, No.2} tPascal translation of Koerts and Abrahamse's procedure for evaluating Imhof's upper bound) CONST pi=3.14159265;
VAR i:units;
         count,hold,range,suml,sum2:real;
BEGIN
IF (noterms < 1) OR (epsl <= 0.0) OR (eps2 <= 0.0) THEN
BEGIN ifault := 2; imhofbd := -2.0 END
ELSE
BEGIN
count 0.0;
suml 0.0; sum2 := 0.0;
FOR i 1 TO noterms DO BEGIN hold := abs(lambda[i]);
IF hold > eps2 THEN
BEGIN
count:= count+mult[i];
suml:= suml+mult[i]*ln(hold);
END;
sum2 := sum2+delta[i]
END;
IF count < 0.9 THEN
BEGIN
ifault := 4;
imhofbd := -4.0
END

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：Translation Evaluating Abrahamse Algorithm Procedure 求帮助