Aptarimas:Matematika/Sinuso Integralas: Skirtumas tarp puslapio versijų
Ištrintas turinys Pridėtas turinys
→Free Pascal funkcijos frac() benchmark'as: naujas skyrius |
|||
571 eilutė:
End.
:duoda atsakymą 0,421294486750096 po 47 sekundžių su 2,6 GHz procesorium. Vadinasi, iš tiesų ''Free pascal'' funkciją ''frac()'' skaičiuoja tik vieną kartą ir greičiausiai iki <math>\pi/4,</math> kad Teiloro eilutė būtų kuo trumpesnė suderindamas minuso ženklus ir panašiai (gal dar kvadratu pakeltas reikšmes panaudoja vėl, o ne skaičiuoja iš naujo), nes 71/4,7=15,1 karto greičiau.
== ''Free Pascal'' funkcijos ''frac()'' benchmark'as ==
Uses math;
var a:longint; c:real;
begin
for a:=0 to 1000000000 do
c:=c+frac(a*0.15915494309189533576888); // 1/(2*3.14)=0.159
writeln(c);
Readln;
End.
:duoda rezultatą 499999986.434272 po 25 sekundžių su 2.6 GHz procesorium.
| |||