Aptarimas:Matematika/Sinuso Integralas: Skirtumas tarp puslapio versijų
Ištrintas turinys Pridėtas turinys
793 eilutė:
End.
:duoda rezultatą <math>3.76998768536565\cdot 10^{237}</math> po 47 sekundžių su 2.6 GHz procesorium. Tokiu atveju jei skaičiuoti, kad padaroma 14 daugybų per 1 iteraciją, tada padaroma 47*2.6/14=8.73 taktų vienai daugybai. O jei skaičiuoti, kad padaromos 28 daugybos, tada padaromi 47*2.6/28=4 taktai per vieną daugybą. Jei skaičiuoti, kad dar padaroma 14 sudeties operacijų, tada iš viso su daugybomis padaromi 47*2.6/42=2.9 ciklai vienai operacijai. Jei skaičiuoti, kad padaroma 14*3=42 daugybos ir 14 sudėties operacijų, tada iš viso padaromos 56 operacijos, o vienai operacijai tenka 47*2.6/56=2.18 procesoriaus ciklo.
:Skaičiuojant sinusą be iteracijų užtektų ''a'' pakelti kvadratu tik vieną kartą, todėl testuojamas toks ''Free Pascal'' kodas:
var a:longint; c:real;
begin
for a:=0 to 1000000000 do
c:=c+a*(1+
sqr(a*1.0)*(-0.16666666666666667+
a*(0.0083333333333333333+
a*(-0.00019841269841269841+
a*(0.0000027557319223985891+
a*(-0.000000025052108385441718775+
a*(0.000000000160590438368216146+
a*(-0.00000000000076471637318198164759+
a*(0.000000000000002811457254345520763+
a*(-0.000000000000000008220635246624329717+
a*(0.00000000000000000001957294106339126123+
a*(-0.000000000000000000000038681701706306840377+
a*(0.00000000000000000000000006446950284384473396+
a*(-0.000000000000000000000000000091836898637955461484+
a*0.0000000000000000000000000000001130996288644771693))))))))))))));
writeln(c);
Readln;
End.
:kuris duoda rezultatą <math>3.76998768536565\cdot 10^{237}</math> po 47 sekundžių su 2.6 GHz procesorium.
| |||