ฟังก์ชันการดำเนินการทางคณิตศาสตร์ที่ใช้กันทั่วไปภายใต้ Delphi

ฟังก์ชันการดำเนินการทางคณิตศาสตร์ของเดลฟี

ผู้แต่ง:lyboy99

อีเมล์:[email protected]

URL: http://hnh.126.com

ต่อไปนี้เป็นฟังก์ชันทั่วไปบางส่วนสำหรับคุณ ฉันหวังว่าจะเป็นประโยชน์กับคุณ

คุณสามารถออกแบบเครื่องคำนวณทางวิทยาศาสตร์ที่ทรงพลังได้อย่างง่ายดายโดยใช้ฟังก์ชันต่อไปนี้

ฟังก์ชั่น rnd(arg1:double):double;

เริ่ม

ผลลัพธ์ := Random * int(arg1);

จบ;

ฟังก์ชั่น arcsinh (arg1: double): double;

เริ่ม

ผลลัพธ์:=Ln(arg1+sqrt(1+กำลัง(arg1,2)));

จบ;

ฟังก์ชั่น arccosh(arg1:double):double;

เริ่ม

ผลลัพธ์ :=Ln(arg1+sqrt(กำลัง(arg1,2)-1));

จบ;

ฟังก์ชั่น arctanh(arg1:double):double;

เริ่ม

ผลลัพธ์ :=Ln((1+arg1)/(1-arg1))/2;

จบ;

ฟังก์ชั่น arcsech(arg1:double):double;

เริ่ม

ผลลัพธ์ :=Ln((1/arg1)+sqrt(กำลัง((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;

เริ่ม

ผลลัพธ์ := อาร์คซิน (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/(ประสบการณ์(arg1)-ประสบการณ์(-arg1));

จบ;

ฟังก์ชั่น sech (arg1: double): double;

เริ่ม

ผลลัพธ์ := 2/(ประสบการณ์(arg1)+ประสบการณ์(-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;

เริ่ม

ผลลัพธ์ := (ประสบการณ์(arg1)-ประสบการณ์(-arg1))*0.5;

จบ;

ฟังก์ชั่น cosh(arg1:double):double;

เริ่ม

ผลลัพธ์ := (ประสบการณ์(arg1)+ประสบการณ์(-arg1))*0.5;

จบ;

ฟังก์ชั่น เปล(arg1:double):double;

เริ่ม

ถ้า Abs(arg1)>0.000000001 ดังนั้นผลลัพธ์ := cotan(arg1) ผลลัพธ์อื่น :=100000;

จบ;

ฟังก์ชั่น cotrad(arg1:double):double;

เริ่ม

ผลลัพธ์ := cotan(DegToRad(arg1));

จบ;

ฟังก์ชั่นวินาที (arg1: double): double;

เริ่ม

ผลลัพธ์ := 1/cos(arg1);

จบ;

ฟังก์ชั่น cosec(arg1:double):double;

เริ่ม

ถ้า Abs(arg1)>0.000000001 แล้วผลลัพธ์:= 1/sin(arg1) else ผลลัพธ์:=1000000;

จบ;

ฟังก์ชั่น tanrad(arg1:double):double;

เริ่ม

ผลลัพธ์ := ผิวสีแทน(DegToRad(arg1));

จบ;

ฟังก์ชั่น sinrad(arg1:double):double;

เริ่ม

ผลลัพธ์ := บาป (DegToRad (arg1));

จบ;

ฟังก์ชั่น cosrad(arg1:double):double;

เริ่ม

ผลลัพธ์ := cos(DegToRad(arg1));

จบ;

ฟังก์ชั่น cosecrad(arg1:double):double;

เริ่ม

ผลลัพธ์ := 1/บาป(DegToRad(arg1));

จบ;

ฟังก์ชั่น secrad(arg1:double):double;

เริ่ม

ผลลัพธ์:= 1/cos(DegToRad(arg1));

จบ;

ฟังก์ชั่น blanc(arg1:double):double;

วาร์

อุณหภูมิ, ความละเอียด: ขยาย;

นับ:จำนวนเต็ม;

เริ่ม

เริ่ม

ความละเอียด:=0;

สำหรับการนับ := 0 ถึง 49 do

เริ่ม

arg1:=arg1-int(arg1-(ลำดับ(arg1<0)));

ถ้า (arg1)<0.5 ดังนั้น temp:=(arg1) else temp:=(1-arg1);

res:=res+ temp/(กำลัง(2,นับ));

หาเรื่อง1:=2*arg1;

จบ;

จบ;

ผลลัพธ์:=res;

จบ;

ฟังก์ชั่น min(arg1,arg2:double):double;

เริ่ม

ถ้า arg1 < arg2 แล้ว

ผลลัพธ์ := arg1

อื่น

ผลลัพธ์ := arg2;

จบ;

ฟังก์ชั่นสูงสุด (arg1, arg2: double): double;

เริ่ม

ถ้า arg1 < arg2 แล้ว

ผลลัพธ์ := arg2

อื่น

ผลลัพธ์ := arg1;

จบ;

ฟังก์ชั่น heaviside (arg1: double): double;

เริ่ม

ถ้า arg1 < 0 แล้ว

ผลลัพธ์ := 0

อื่น

ผลลัพธ์ := 1;

จบ;

เครื่องหมายฟังก์ชั่น (arg1: double): double;

เริ่ม

ถ้า arg1 < 0 แล้ว

ผลลัพธ์ := -1

อื่น

ถ้า arg1 > 0 แล้ว

ผลลัพธ์ := 1.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);

จบ;

ฟังก์ชั่นชั้น (arg1: double): double;

เริ่ม

ถ้า frac(arg1) < 0 แล้ว

ผลลัพธ์:= int(arg1 - 1)

อื่น

ผลลัพธ์:= int(arg1);

จบ;

รัศมีฟังก์ชัน (arg1, arg2: double): double;

เริ่ม

ผลลัพธ์:= sqrt(sqr(arg1)+sqr(arg2));

จบ;