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;
没有相关教程
|