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 软件开发网 www.mscto.com
源代码网推荐 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;