Delphi에서 일반적으로 사용되는 수학 연산 함수

델파이 수학 연산 함수

저자:lyboy99

이메일:[email protected]

URL: http://hnh.126.com

다음은 귀하를 위한 몇 가지 일반적인 기능입니다. 귀하에게 도움이 되기를 바랍니다.

다음 기능을 이용하면 강력한 과학계산기를 쉽게 설계할 수 있습니다.

함수 rnd(arg1:double):double;

시작하다

결과 := Random * int(arg1);

끝;

함수 arcsinh(arg1:double):double;

시작하다

결과:=Ln(arg1+sqrt(1+power(arg1,2)));

끝;

함수 arccosh(arg1:double):double;

시작하다

결과 :=Ln(arg1+sqrt(power(arg1,2)-1));

끝;

함수 arctanh(arg1:double):double;

시작하다

결과 :=Ln((1+arg1)/(1-arg1))/2;

끝;

함수 arcsech(arg1:double):double;

시작하다

결과 :=Ln((1/arg1)+sqrt(power((1/arg1),2)-1));

끝;

함수 arccosech(arg1:double):double;

시작하다

결과 :=Ln((1/arg1)+sqrt(1+power((1/arg1),2)));

끝;

함수 arccoth(arg1:double):double;

시작하다

결과 :=Ln((1+(1/arg1))/(1-(1/arg1)))/2;

끝;

함수 degarcsin(arg1:double):double;

시작하다

결과 :=arcsin(DegToRad(arg1));

끝;

함수 arcsec(arg1:double):double;

시작하다

결과 := arccos(1/arg1);

끝;

함수 degarcsec(arg1:double):double;

시작하다

결과 := RadToDeg(arccos(1/arg1));

끝;

함수 arccosec(arg1:double):double;

시작하다

결과 := arcsin(1/arg1);

끝;

함수 degarccosec(arg1:double):double;

시작하다

결과 := RadToDeg(arcsin(1/arg1));

끝;

함수 degarccos(arg1:double):double;

시작하다

결과 :=arccos(DegToRad(arg1));

끝;

함수 arccot(arg1:double):double;

시작하다

결과 := arctan(1/arg1);

끝;

함수 degarccot(arg1:double):double;

시작하다

결과 := RadToDeg(arctan(1/arg1));

끝;

함수 cosech(arg1:double):double;

시작하다

결과 := 2/(exp(arg1)-exp(-arg1));

끝;

함수 sech(arg1:double):double;

시작하다

결과 := 2/(exp(arg1)+exp(-arg1));

끝;

함수 tanh(arg1:double):double;

시작하다

결과 := (exp(arg1)-exp(arg1))/(exp(arg1)+exp(-arg1));

끝;

함수 coth(arg1:double):double;

시작하다

결과 := (exp(arg1)+exp(arg1))/(exp(arg1)-exp(-arg1));

끝;

함수 degarctan(arg1:double):double;

시작하다

결과:= RadToDeg(arctan(arg1));

끝;

함수 인수(arg1,arg2:double):double;

시작하다

arg1 < 0이면

결과 := arctan(arg2/arg1)+Pi

또 다른

arg1>0이면

결과 := arctan(arg2/arg1)

또 다른

arg2 > 0이면

결과 := 0.5 * Pi

또 다른

결과 := -0.5 * Pi;

끝;

함수 sinh(arg1:double):double;

시작하다

결과 := (exp(arg1)-exp(-arg1))*0.5;

끝;

함수 cosh(arg1:double):double;

시작하다

결과 := (exp(arg1)+exp(-arg1))*0.5;

끝;

함수 cot(arg1:double):double;

시작하다

if Abs(arg1)>0.000000001 then result := cotan(arg1) else result :=100000;

끝;

함수 cotrad(arg1:double):double;

시작하다

결과 := cotan(DegToRad(arg1));

끝;

함수 sec(arg1:double):double;

시작하다

결과 := 1/cos(arg1);

끝;

함수 cosec(arg1:double):double;

시작하다

Abs(arg1)>0.000000001이면 결과:= 1/sin(arg1)이면 결과:=1000000;

끝;

함수 tanrad(arg1:double):double;

시작하다

결과 := tan(DegToRad(arg1));

끝;

함수 sinrad(arg1:double):double;

시작하다

결과 := sin(DegToRad(arg1));

끝;

함수 cosrad(arg1:double):double;

시작하다

결과 := cos(DegToRad(arg1));

끝;

함수 cosecrad(arg1:double):double;

시작하다

결과 := 1/sin(DegToRad(arg1));

끝;

함수 secrad(arg1:double):double;

시작하다

결과:= 1/cos(DegToRad(arg1));

끝;

함수 블랑(arg1:double):double;

바르

온도,재해:확장;

개수:정수;

시작하다

시작하다

해상도:=0;

개수 := 0 ~ 49 do

시작하다

arg1:=arg1-int(arg1-(Ord(arg1<0)));

if (arg1)<0.5 then temp:=(arg1) else temp:=(1-arg1);

res:=res+ temp/(power(2,count));

인수1:=2*arg1;

끝;

끝;

결과:=res;

끝;

함수 min(arg1,arg2:double):double;

시작하다

arg1 < arg2이면

결과 := 인수1

또 다른

결과 := arg2;

끝;

함수 max(arg1,arg2:double):double;

시작하다

arg1 < arg2이면

결과 := arg2

또 다른

결과 := arg1;

끝;

함수 헤비사이드(arg1:double):double;

시작하다

arg1 < 0이면

결과 := 0

또 다른

결과 := 1;

끝;

함수 기호(arg1:double):double;

시작하다

arg1 < 0이면

결과 := -1

또 다른

arg1 > 0이면

결과 := 1.0

또 다른

결과 := 0.0;

끝;

함수 0(arg1:double):double;

시작하다

arg1 = 0.0이면

결과 := 0.0

또 다른

결과:= 1.0;

끝;

함수 ceil(arg1:double):double;

시작하다

frac(arg1) > 0이면

결과:= int(arg1 + 1)

또 다른

결과:= int(arg1);

끝;

함수 Floor(arg1:double):double;

시작하다

frac(arg1) < 0이면

결과:= int(arg1 - 1)

또 다른

결과:= int(arg1);

끝;

함수 반경(arg1,arg2:double):double;

시작하다

결과:= sqrt(sqr(arg1)+sqr(arg2));

끝;