Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- finit ; inicjalizacja stosu FPU
- fld qword [ebp+12] ; ladowanie argumentu do st(0) x
- fld1 ; zaladuj 1 1,x
- fld1 ; zaladuj 1 1,1,x
- faddp ; dodaj i zdejmij 2,x
- fld qword [ebp+12] ;x,2,x
- fld1 ;teraz na stosie x;2;x;1 1,x,2,x
- fmul st0, st3 ; st(0) = st(3) * st(0); x,x,2,x
- ;szereg w wyrazach postaci x^2n+1/(2n+1)! co można zapisać jako poprzedni_wyraz*x*x/2n/2n+1
- petla:
- fld1 ;teraz na stosie argument, dzielnik, wynik, wyraz szeregu, 1 ;1,x,x,2,x
- fadd st0, st3 ; 2,x,x,2,x
- fxch st3 ;zwiększ dzielnik o 1 i użyj starej wartości przy dzieleniu 2,x,x,2,x
- fdivp ;dzielenie następnego wyrazu szeregu dzielimy st(1) = st(1)/st(0) i zdejmujemy st(0) x/2,x,2,x
- fmul st0, st3 ;pomnóż przez argument st(0) = st(0) * st(3); x^2/2,x,2,x
- fld1 ;teraz na stosie argument, dzielnik, wynik, wyraz szeregu, 1 1,x^2/2,x,2,x
- fadd st0, st3 ; 2,x^2/2,x,2,x
- fxch st3 ;zwiększ dzielnik o 1 i użyj starej wartości przy dzieleniu 2,x^2/2,x,2,x
- fdivp ;dzielenie następnego wyrazu szeregu ; dzielimy st(1) = st(1) / st(0) i zdejmujemy x^2/4,x,2,x
- fmul st0, st3 ;pomnóż przez argument x^3/4,x,2,x
- fsub st1, st0 ;odejmij wartość do wyniku st(1) = st(1) - st(0); x - x^3/4
Add Comment
Please, Sign In to add comment