1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
| .586
.MODEL FLAT, C
.DATA
buffer dq 0
.CODE
calc proc C qq,x:qword
finit
fld x ; ST(0) = x
fld x ; ST(0) = x, ST(1) = x
fmul ST(0), ST(1) ; ST(0) = x^2, ST(1) = x
fmul ST(0), ST(1) ; ST(0) = x^3, ST(1) = x
fmul ST(0), ST(1) ; ST(0) = x^4, ST(1) = x
fld1 ; ST(0) = 1, ST(1) = x^4, ST(2) = x
fsub ST(1), ST(0) ; ST(0) = 1, ST(1) = x^4 - 1, ST(2) = x
fxch ST(1) ; ST(0) = x^4 - 1, ST(1) = 1, ST(2) = x
fabs ; ST(0) = abs(x^4 - 1), ST(1) = 1, ST(2) = x
fyl2x ; ST(0) = log_2(abs(x^4 - 1)), ST(1) = x
fld1; ST(0) = 1, ST(1) = log_2(abs(x^4 - 1)), ST(2) = x
fld1; ST(0) = 1, ST(1) = 1, ST(2) = log_2(abs(x^4 - 1)), ST(3) = x
fadd ST(1), ST(0); ST(0) = 1, ST(1) = 2, ST(2) = log_2(abs(x^4 - 1)), ST(3) =x
fld x; ST(0) = x, ST(1) = 1, ST(2) = 2, ST(3) = log_2(abs(x^4 - 1)), ST(4) =x
fsin ; ST(0) = sin(x), ST(1) = 1, ST(2) = 2, ST(3) = log_2(abs(x^4 - 1)), ST(4) =x
fmul ST(0), ST(2); ST(0) = 2sin(x), ST(1) = 1, ST(2) = 2, ST(3) = log_2(abs(x^4 - 1)), ST(4) =
fmul ST(0), ST(3); ST(0) = 2sin(x)*log_2(abs(x^4 - 1)), ST(1) = 1, ST(2) = 2, ST(3) = log_2(abs(x^4 - 1)), ST(4) =x
fadd ST(0), ST(1); ST(0) = 2sin(x)*log_2(abs(x^4 - 1))+1, ST(1) = 1, ST(2) = 2, ST(3) = log_2(abs(x^4 - 1)), ST(4) =x
;Вычисляем знаменатель
fldpi ; ST(0) = PI, ST(1) = 2sin(x)*log_2(abs(x^4 - 1))+1, ST(2) = 1, ST(3) = 2, ST(4) = log_2(abs(x^4 - 1)), ST(5) =x
fmul ST(0), ST(3); ST(0) = 2PI, ST(1) = 2sin(x)*log_2(abs(x^4 - 1))+1, ST(2) = 1, ST(3) = 2, ST(4) = log_2(abs(x^4 - 1)), ST(5) =x
fxch ST(5); ST(0) = x, ST(1) = 2sin(x)*log_2(abs(x^4 - 1))+1, ST(2) = 1, ST(3) = 2, ST(4) = log_2(abs(x^4 - 1)), ST(5) =2PI
fmul ST(0), ST(3); ST(0) = 2x, ST(1) = 2sin(x)*log_2(abs(x^4 - 1))+1, ST(2) = 1, ST(3) = 2, ST(4) = log_2(abs(x^4 - 1)), ST(5) =2PI
fsin; ST(0) = sin(2x), ST(1) = 2sin(x)*log_2(abs(x^4 - 1))+1, ST(2) = 1, ST(3) = 2, ST(4) = log_2(abs(x^4 - 1)), ST(5) =2PI
fxch ST(3);ST(0) = 2, ST(1) = 2sin(x)*log_2(abs(x^4 - 1))+1, ST(2) = 1, ST(3) = sin(2x), ST(4) = log_2(abs(x^4 - 1)), ST(5) =2PI
fadd ST(0), ST(2);ST(0) = sin(2x), ST(1) = 2sin(x)*log_2(abs(x^4 - 1))+1, ST(2) = 1, ST(3) = 3, ST(4) = log_2(abs(x^4 - 1)), ST(5) =2PI
fadd ST(0), ST(2);ST(0) = sin(2x), ST(1) = 2sin(x)*log_2(abs(x^4 - 1))+1, ST(2) = 1, ST(3) = 4, ST(4) = log_2(abs(x^4 - 1)), ST(5) =2PI
fadd ST(0), ST(2);ST(0) = sin(2x), ST(1) = 2sin(x)*log_2(abs(x^4 - 1))+1, ST(2) = 1, ST(3) = 5, ST(4) = log_2(abs(x^4 - 1)), ST(5) =2PI
fadd ST(0), ST(2);ST(0) = sin(2x), ST(1) = 2sin(x)*log_2(abs(x^4 - 1))+1, ST(2) = 1, ST(3) = 6, ST(4) = log_2(abs(x^4 - 1)), ST(5) =2PI
fxch ST(3);
fldpi; ST(0) = PI, ST(1) = sin(2x), ST(2) = 2sin(x)*log_2(abs(x^4 - 1))+1, ST(3) = 1, ST(4) = 6, ST(5) = log_2(abs(x^4 - 1)), ST(6) =2PI
fdiv ST(0), ST(4); ST(0) = PI/6, ST(1) = sin(2x), ST(2) = 2sin(x)*log_2(abs(x^4 - 1))+1, ST(3) = 1, ST(4) = 6, ST(5) = log_2(abs(x^4 - 1)), ST(6) =2PI
fadd ST(0), ST(1); ST(0) = PI/6 + sin(2x), ST(1) = sin(2x), ST(2) = 2sin(x)*log_2(abs(x^4 - 1))+1, ST(3) = 1, ST(4) = 6, ST(5) = log_2(abs(x^4 - 1)), ST(6) =2PI
fdiv ST(6), ST(0); ST(0) = PI/6 + sin(2x), ST(1) = sin(2x), ST(2) = 2sin(x)*log_2(abs(x^4 - 1))+1, ST(3) = 1, ST(4) = 6, ST(5) = log_2(abs(x^4 - 1)), ST(6) =2PI/(PI/6 + sin(2x))
fxch ST(2)
fdiv ST(0), ST(6); ST(0) = PI/6 + sin(2x), ST(1) = sin(2x), ST(2) = (2sin(x)*log_2(abs(x^4 - 1))+1)/2PI/(PI/6 + sin(2x)), ST(3) = 1, ST(4) = 6, ST(5) = log_2(abs(x^4 - 1)), ST(6) =2PI/(PI/6 + sin(2x))
fxch ST(2)
fxch ST(2); ST(0) = (2sin(x)*log_2(abs(x^4 - 1))+1)/2PI/(PI/6 + sin(2x)), ST(1) = sin(2x), ST(2) = PI/6 + sin(2x), ST(3) = 1, ST(4) = 6, ST(5) = log_2(abs(x^4 - 1)), ST(6) =2PI/(PI/6 + sin(2x))
fxch ST(6); ST(0) = 2PI/(PI/6 + sin(2x)), ST(1) = sin(2x), ST(2) = PI/6 + sin(2x), ST(3) = 1, ST(4) = 6, ST(5) = log_2(abs(x^4 - 1)), ST(6) =(2sin(x)*log_2(abs(x^4 - 1))+1)/(2PI/(PI/6 + sin(2x)))
fstp buffer; ST(0) = sin(2x), ST(1) = PI/6 + sin(2x), ST(2) = 1, ST(3) = 6, ST(4) = log_2(abs(x^4 - 1)), ST(5) =(2sin(x)*log_2(abs(x^4 - 1))+1)/(2PI/(PI/6 + sin(2x)))
fstp buffer; ST(0) = PI/6 + sin(2x), ST(1) = 1, ST(2) = 6, ST(3) = log_2(abs(x^4 - 1)), ST(4) =(2sin(x)*log_2(abs(x^4 - 1))+1)/(2PI/(PI/6 + sin(2x)))
fstp buffer; ST(0) = 1, ST(1) = 6, ST(2) = log_2(abs(x^4 - 1)), ST(3) =(2sin(x)*log_2(abs(x^4 - 1))+1)/(2PI/(PI/6 + sin(2x)))
fstp buffer;ST(0) = 6, ST(1) = log_2(abs(x^4 - 1)), ST(2) =(2sin(x)*log_2(abs(x^4 - 1))+1)/(2PI/(PI/6 + sin(2x)))
fstp buffer;ST(0) = log_2(abs(x^4 - 1)), ST(1) =(2sin(x)*log_2(abs(x^4 - 1))+1)/(2PI/(PI/6 + sin(2x)))
fld1; ST(0) = 1, ST(1) = log_2(abs(x^4 - 1)), ST(2) =(2sin(x)*log_2(abs(x^4 - 1))+1)/(2PI/(PI/6 + sin(2x)))
fdivr ST(1), ST(0); ST(0) = 1, ST(1) = 1/(log_2(abs(x^4 - 1))), ST(2) =(2sin(x)*log_2(abs(x^4 - 1))+1)/(2PI/(PI/6 + sin(2x)))
fxch ST(1); ST(0) = 1/(log_2(abs(x^4 - 1))), ST(1) = 1, ST(2) =(2sin(x)*log_2(abs(x^4 - 1))+1)/(2PI/(PI/6 + sin(2x)))
fpatan; ST(0) = 1/(log_2(abs(x^4 - 1))), ST(1) = arctg(log_2(abs(x^4 - 1))) ST(2) =(2sin(x)*log_2(abs(x^4 - 1))+1)/(2PI/(PI/6 + sin(2x)))
fstp buffer; ST(0) = arctg(log_2(abs(x^4 - 1))) ST(1) =(2sin(x)*log_2(abs(x^4 - 1))+1)/(2PI/(PI/6 + sin(2x)))
fld1;ST(0) = 1, ST(1) = arctg(log_2(abs(x^4 - 1))) ST(2) =(2sin(x)*log_2(abs(x^4 - 1))+1)/(2PI/(PI/6 + sin(2x)))
fmul ST(0), ST(1); ST(0) = arctg(log_2(abs(x^4 - 1))), ST(1) = arctg(log_2(abs(x^4 - 1))) ST(2) =(2sin(x)*log_2(abs(x^4 - 1))+1)/(2PI/(PI/6 + sin(2x)))
fmul ST(1), ST(0);ST(0) = arctg(log_2(abs(x^4 - 1))), ST(1) = (arctg(log_2(abs(x^4 - 1))))^2, ST(2) =(2sin(x)*log_2(abs(x^4 - 1))+1)/(2PI/(PI/6 + sin(2x)))
fxch ST(2)
fsub ST(0), ST(1);ST(0) = arctg(log_2(abs(x^4 - 1))), ST(1) = (arctg(log_2(abs(x^4 - 1))))^2, ST(2) =(2sin(x)*log_2(abs(x^4 - 1))+1)/(2PI/(PI/6 + sin(2x))) - (arctg(log_2(abs(x^4 - 1))))^2
fxch ST(2)
fstp buffer;ST(0) = (arctg(log_2(abs(x^4 - 1))))^2, ST(1) =(2sin(x)*log_2(abs(x^4 - 1))+1)/(2PI/(PI/6 + sin(2x))) - (arctg(log_2(abs(x^4 - 1))))^2
fstp buffer;ST(0) =(2sin(x)*log_2(abs(x^4 - 1))+1)/(2PI/(PI/6 + sin(2x))) - (arctg(log_2(abs(x^4 - 1))))^2
;fstp qq;
ret
calc ENDP
END |