Fonctions d'opérations mathématiques couramment utilisées sous Delphi

Fonction d'opération mathématique Delphi

Auteur:lyboy99

Courriel : [email protected]

URL : http://hnh.126.com

Voici quelques fonctions courantes pour vous, j'espère qu'elles pourront vous être utiles.

Vous pouvez facilement concevoir une puissante machine de calcul scientifique en utilisant les fonctions suivantes.

fonction rnd(arg1:double):double;

Commencer

résultat := Aléatoire * int(arg1);

fin;

fonction arcsinh(arg1:double):double;

commencer

résultat:=Ln(arg1+sqrt(1+puissance(arg1,2)));

fin;

fonction arccosh(arg1:double):double;

commencer

résultat :=Ln(arg1+sqrt(puissance(arg1,2)-1));

fin;

fonction arctanh(arg1:double):double;

commencer

résultat :=Ln((1+arg1)/(1-arg1))/2;

fin;

fonction arcsech(arg1:double):double;

commencer

résultat :=Ln((1/arg1)+sqrt(power((1/arg1),2)-1));

fin;

fonction arccosech(arg1:double):double;

commencer

résultat :=Ln((1/arg1)+sqrt(1+puissance((1/arg1),2)));

fin;

fonction arccoth(arg1:double):double;

commencer

résultat :=Ln((1+(1/arg1))/(1-(1/arg1)))/2;

fin;

fonction degarcsin(arg1:double):double;

commencer

résultat :=arcsin(DegToRad(arg1));

fin;

fonction arcsec(arg1:double):double;

commencer

résultat := arccos(1/arg1);

fin;

fonction degarcsec(arg1:double):double;

commencer

résultat := RadToDeg(arccos(1/arg1));

fin;

fonction arccosec(arg1:double):double;

commencer

résultat := arcsin(1/arg1);

fin;

fonction degarccosec(arg1:double):double;

commencer

résultat := RadToDeg(arcsin(1/arg1));

fin;

fonction degarccos(arg1:double):double;

commencer

résultat :=arccos(DegToRad(arg1));

fin;

fonction arccot(arg1:double):double;

commencer

résultat := arctan(1/arg1);

fin;

fonction degarccot(arg1:double):double;

commencer

résultat := RadToDeg(arctan(1/arg1));

fin;

fonction cosech(arg1:double):double;

commencer

résultat := 2/(exp(arg1)-exp(-arg1));

fin;

fonction sech(arg1:double):double;

commencer

résultat := 2/(exp(arg1)+exp(-arg1));

fin;

fonction tanh(arg1:double):double;

commencer

résultat := (exp(arg1)-exp(arg1))/(exp(arg1)+exp(-arg1));

fin;

fonction coth(arg1:double):double;

commencer

résultat := (exp(arg1)+exp(arg1))/(exp(arg1)-exp(-arg1));

fin;

fonction degarctan(arg1:double):double;

commencer

résultat := RadToDeg(arctan(arg1));

fin;

fonction arg(arg1,arg2:double):double;

commencer

si arg1 < 0 alors

résultat := arctan(arg2/arg1)+Pi

autre

si arg1>0 alors

résultat := arctan(arg2/arg1)

autre

si arg2 > 0 alors

résultat := 0,5 * Pi

autre

résultat := -0,5 * Pi ;

fin;

fonction sinh(arg1:double):double;

commencer

résultat := (exp(arg1)-exp(-arg1))*0.5;

fin;

fonction cosh(arg1:double):double;

commencer

résultat := (exp(arg1)+exp(-arg1))*0.5;

fin;

fonction lit bébé(arg1:double):double;

commencer

si Abs(arg1)>0,000000001 alors résultat := cotan(arg1) sinon résultat :=100000;

fin;

fonction cotrad(arg1:double):double;

commencer

résultat := cotan(DegToRad(arg1));

fin;

fonction sec(arg1:double):double;

commencer

résultat := 1/cos(arg1);

fin;

fonction cosec(arg1:double):double;

commencer

si Abs(arg1)>0,000000001 alors résultat := 1/sin(arg1) sinon résultat :=1000000 ;

fin;

fonction tanrad(arg1:double):double;

commencer

résultat := tan(DegToRad(arg1));

fin;

fonction sinrad(arg1:double):double;

commencer

résultat := sin(DegToRad(arg1));

fin;

fonction cosrad(arg1:double):double;

commencer

résultat := cos(DegToRad(arg1));

fin;

fonction cosecrad(arg1:double):double;

commencer

résultat := 1/sin(DegToRad(arg1));

fin;

fonction secrad(arg1:double):double;

commencer

résultat := 1/cos(DegToRad(arg1));

fin;

fonction blanc(arg1:double):double;

Var

temp, res: étendu ;

nombre : entier ;

commencer

Commencer

res:=0;

pour compter := 0 à 49 faire

commencer

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

si (arg1)<0,5 alors temp:=(arg1) else temp:=(1-arg1);

res:=res+ temp/(puissance(2,compte));

arg1 :=2*arg1 ;

fin;

fin;

résultat :=res ;

fin;

fonction min(arg1,arg2:double):double;

commencer

si arg1 < arg2 alors

résultat := arg1

autre

résultat := arg2;

fin;

fonction max(arg1,arg2:double):double;

commencer

si arg1 < arg2 alors

résultat := arg2

autre

résultat := arg1;

fin;

fonction heaviside(arg1:double):double;

commencer

si arg1 < 0 alors

résultat := 0

autre

résultat := 1;

fin;

signe de fonction (arg1:double):double;

commencer

si arg1 < 0 alors

résultat := -1

autre

si arg1 > 0 alors

résultat := 1.0

autre

résultat := 0,0 ;

fin;

fonction zéro(arg1:double):double;

commencer

si arg1 = 0,0 alors

résultat := 0.0

autre

résultat := 1,0 ;

fin;

fonction ceil(arg1:double):double;

commencer

si frac(arg1) > 0 alors

résultat := int(arg1 + 1)

autre

résultat := int(arg1);

fin;

fonction étage(arg1:double):double;

commencer

si frac(arg1) < 0 alors

résultat := int(arg1 - 1)

autre

résultat := int(arg1);

fin;

fonction rayon(arg1,arg2:double):double;

commencer

résultat := sqrt(sqr(arg1)+sqr(arg2));

fin;