Delphi下常用数学运算函数

核心提示：Delphi数学运算函数作者:lyboy99 e-mail:lyboy99@sina.com url: http://hnh.126.com给大家提供几个常用函数,希望可以对你有帮助.用下面的函数可以轻松,设计个强大的科学计算机器.function rnd(arg1:double):double;Begin resu

Delphi数学运算函数
作者:lyboy99
e-mail:lyboy99@sina.com　
url: http://hnh.126.com
给大家提供几个常用函数,希望可以对你有帮助.
用下面的函数可以轻松,设计个强大的科学计算机器.

function rnd(arg1:double):double;
Begin
　  result := Random * int(arg1);
end;

function arcsinh(arg1:double):double;
begin
　　　 result:=Ln(arg1+sqrt(1+power(arg1,2)));
end;

function arccosh(arg1:double):double;
begin
　　　 result :=Ln(arg1+sqrt(power(arg1,2)-1));
end;

function arctanh(arg1:double):double;
begin
　　　 result :=Ln((1+arg1)/(1-arg1))/2;
end;

function arcsech(arg1:double):double;
begin
　　　 result :=Ln((1/arg1)+sqrt(power((1/arg1),2)-1));
end;

function arccosech(arg1:double):double;
begin
　　　 result :=Ln((1/arg1)+sqrt(1+power((1/arg1),2)));
end;

function arccoth(arg1:double):double;
begin
　　　 result :=Ln((1+(1/arg1))/(1-(1/arg1)))/2;
end;

function degarcsin(arg1:double):double;
begin
　　　 result :=arcsin(DegToRad(arg1));
end;

function arcsec(arg1:double):double;
begin
　  result  := arccos(1/arg1);
end;

function degarcsec(arg1:double):double;
begin
　  result := RadToDeg(arccos(1/arg1));
end;

function arccosec(arg1:double):double;
begin
　  result  := arcsin(1/arg1);
end;

function degarccosec(arg1:double):double;
begin
　  result  := RadToDeg(arcsin(1/arg1));
end;

function degarccos(arg1:double):double;
begin
　　　 result :=arccos(DegToRad(arg1));
end;

function arccot(arg1:double):double;
begin
　  result  := arctan(1/arg1);
end;

function degarccot(arg1:double):double;
begin
　  result  := RadToDeg(arctan(1/arg1));
end;

function cosech(arg1:double):double;
begin
　  result  := 2/(exp(arg1)-exp(-arg1));
end;

function sech(arg1:double):double;
begin
　  result  := 2/(exp(arg1)+exp(-arg1));
end;

function tanh(arg1:double):double;
begin
　  result  := (exp(arg1)-exp(arg1))/(exp(arg1)+exp(-arg1));
end;

function coth(arg1:double):double;
begin
　  result := (exp(arg1)+exp(arg1))/(exp(arg1)-exp(-arg1));
end;

function degarctan(arg1:double):double;
begin
　  result:= RadToDeg(arctan(arg1));
end;

function arg(arg1,arg2:double):double;
begin
　  if arg1 < 0 then
　　  result := arctan(arg2/arg1)+Pi
　  else
　　  if arg1>0 then
　　　  result  := arctan(arg2/arg1)
　　  else
　　　  if arg2 > 0 then
　　　　  result  := 0.5 * Pi
　　　  else
　　　　  result := -0.5 * Pi;
end;

function sinh(arg1:double):double;
begin
　  result := (exp(arg1)-exp(-arg1))*0.5;
end;

function cosh(arg1:double):double;
begin
　  result  := (exp(arg1)+exp(-arg1))*0.5;
end;

function cot(arg1:double):double;
begin
　　  if Abs(arg1)>0.000000001 then result  := cotan(arg1) else result :=100000;
end;

function cotrad(arg1:double):double;
begin
　  result := cotan(DegToRad(arg1));
end;

function sec(arg1:double):double;
begin
　  result := 1/cos(arg1);
end;

function cosec(arg1:double):double;
begin
　 if Abs(arg1)>0.000000001 then result:= 1/sin(arg1) else result:=1000000;
end;

function tanrad(arg1:double):double;
begin
　  result  := tan(DegToRad(arg1));
end;

function sinrad(arg1:double):double;
begin
　  result  := sin(DegToRad(arg1));
end;

function cosrad(arg1:double):double;
begin
　  result := cos(DegToRad(arg1));
end;

function cosecrad(arg1:double):double;
begin
　  result  := 1/sin(DegToRad(arg1));
end;

function secrad(arg1:double):double;
begin
　  result:= 1/cos(DegToRad(arg1));
end;

function blanc(arg1:double):double;
Var
　 temp,res:extended;
　 count:integer;
begin
  Begin
  res:=0;
　 for count := 0 to 49 do
　 begin
　　 arg1:=arg1-int(arg1-(Ord(arg1<0)));
　　 if (arg1)<0.5 then temp:=(arg1) else temp:=(1-arg1);
　　 res:=res+ temp/(power(2,count));
　　 arg1:=2*arg1;
　 end;
  end;
  result:=res;
end;

function min(arg1,arg2:double):double;
begin
　  if arg1 < arg2 then
　　  result  := arg1
　  else
　　  result := arg2;
end;

function max(arg1,arg2:double):double;
begin
　  if arg1 < arg2 then
　　  result  := arg2
　  else
　　  result  := arg1;
end;

function heaviside(arg1:double):double;
begin
　  if arg1 < 0 then
　　  result := 0
　  else
　　  result  := 1;
end;

function sign(arg1:double):double;
begin
　  if arg1 < 0 then
　　  result := -1
　  else
　　  if arg1 > 0 then
　　　  result := 1.0
　　  else
　　　  result := 0.0;
end;

function zero(arg1:double):double;
begin
　  if arg1 = 0.0 then
　　  result := 0.0
　  else
　　  result:= 1.0;
end;

function ceil(arg1:double):double;
begin
　  if frac(arg1) > 0 then
　　  result:= int(arg1 + 1)
　  else
　　  result:= int(arg1);
end;

function floor(arg1:double):double;
begin
　  if frac(arg1) < 0 then
　　  result:= int(arg1 - 1)
　  else
　　  result:= int(arg1);
end;

function radius(arg1,arg2:double):double;
begin
　  result:= sqrt(sqr(arg1)+sqr(arg2));
end;