Advertisement
Guest User

Untitled

a guest
Jun 23rd, 2017
67
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
C 0.47 KB | None | 0 0
  1. double ss(double x, double eps){            //там знак перепутан, ряд сходится к -x/2
  2.     _asm{
  3.         FLD1
  4.         FLD eps
  5.         FDIVP st(1), st(0)
  6.         FLDZ
  7.         FLDZ
  8.         FLD x
  9.         FLDPI
  10.         FADDP st(1), st(0)
  11.  
  12. cycle1: FLD1
  13.         FADD st(2), st(0)
  14.         FMUL st(0), st(1)
  15.         FMUL st(0), st(2)
  16.         FSIN
  17.         FDIV st(0), st(2)
  18.         FADDP st(3), st(0)
  19.         FLDZ
  20.         FADD st(0), st(2)
  21.         FUCOMP st(4)
  22.         FSTSW ax
  23.         SAHF
  24.         JA outproc
  25.         JMP cycle1
  26.  
  27. outproc:    FLDZ
  28.         FADD st(0), st(3)
  29.     }
  30. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement