Guest User

Untitled

a guest
May 21st, 2018
139
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.31 KB | None | 0 0
  1. finit ; inicjalizacja stosu FPU
  2. fld qword [ebp+12] ; ladowanie argumentu do st(0) x
  3. fld1 ; zaladuj 1 1,x
  4. fld1 ; zaladuj 1 1,1,x
  5. faddp ; dodaj i zdejmij 2,x
  6. fld qword [ebp+12] ;x,2,x
  7. fld1 ;teraz na stosie x;2;x;1 1,x,2,x
  8. fmul st0, st3 ; st(0) = st(3) * st(0); x,x,2,x
  9. ;szereg w wyrazach postaci x^2n+1/(2n+1)! co można zapisać jako poprzedni_wyraz*x*x/2n/2n+1
  10. petla:
  11. fld1 ;teraz na stosie argument, dzielnik, wynik, wyraz szeregu, 1 ;1,x,x,2,x
  12. fadd st0, st3 ; 2,x,x,2,x
  13. fxch st3 ;zwiększ dzielnik o 1 i użyj starej wartości przy dzieleniu 2,x,x,2,x
  14. fdivp ;dzielenie następnego wyrazu szeregu dzielimy st(1) = st(1)/st(0) i zdejmujemy st(0) x/2,x,2,x
  15. fmul st0, st3 ;pomnóż przez argument st(0) = st(0) * st(3); x^2/2,x,2,x
  16. fld1 ;teraz na stosie argument, dzielnik, wynik, wyraz szeregu, 1 1,x^2/2,x,2,x
  17. fadd st0, st3 ; 2,x^2/2,x,2,x
  18. fxch st3 ;zwiększ dzielnik o 1 i użyj starej wartości przy dzieleniu 2,x^2/2,x,2,x
  19. fdivp ;dzielenie następnego wyrazu szeregu ; dzielimy st(1) = st(1) / st(0) i zdejmujemy x^2/4,x,2,x
  20. fmul st0, st3 ;pomnóż przez argument x^3/4,x,2,x
  21. 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