1 | test_cos = ->
|
2 | run_test [
|
3 |
|
4 | "cos(x)",
|
5 | "cos(x)",
|
6 |
|
7 | "cos(-x)",
|
8 | "cos(x)",
|
9 |
|
10 | "cos(b-a)",
|
11 | "cos(a-b)",
|
12 |
|
13 | # check against the floating point math library
|
14 |
|
15 | "f(a,x)=1+cos(float(a/360*2*pi))-float(x)+cos(a/360*2*pi)-x",
|
16 | "",
|
17 |
|
18 | "f(0,1)", # 0
|
19 | "1.0",
|
20 |
|
21 | "f(90,0)", # 90
|
22 | "1.0",
|
23 |
|
24 | "f(180,-1)", # 180
|
25 | "1.0",
|
26 |
|
27 | "f(270,0)", # 270
|
28 | "1.0",
|
29 |
|
30 | "f(360,1)", # 360
|
31 | "1.0",
|
32 |
|
33 | "f(-90,0)", # -90
|
34 | "1.0",
|
35 |
|
36 | "f(-180,-1)", # -180
|
37 | "1.0",
|
38 |
|
39 | "f(-270,0)", # -270
|
40 | "1.0",
|
41 |
|
42 | "f(-360,1)", # -360
|
43 | "1.0",
|
44 |
|
45 | "f(45,sqrt(2)/2)", # 45
|
46 | "1.0",
|
47 |
|
48 | "f(135,-sqrt(2)/2)", # 135
|
49 | "1.0",
|
50 |
|
51 | "f(225,-sqrt(2)/2)", # 225
|
52 | "1.0",
|
53 |
|
54 | "f(315,sqrt(2)/2)", # 315
|
55 | "1.0",
|
56 |
|
57 | "f(-45,sqrt(2)/2)", # -45
|
58 | "1.0",
|
59 |
|
60 | "f(-135,-sqrt(2)/2)", # -135
|
61 | "1.0",
|
62 |
|
63 | "f(-225,-sqrt(2)/2)", # -225
|
64 | "1.0",
|
65 |
|
66 | "f(-315,sqrt(2)/2)", # -315
|
67 | "1.0",
|
68 |
|
69 | "f(30,sqrt(3)/2)", # 30
|
70 | "1.0",
|
71 |
|
72 | "f(150,-sqrt(3)/2)", # 150
|
73 | "1.0",
|
74 |
|
75 | "f(210,-sqrt(3)/2)", # 210
|
76 | "1.0",
|
77 |
|
78 | "f(330,sqrt(3)/2)", # 330
|
79 | "1.0",
|
80 |
|
81 | "f(-30,sqrt(3)/2)", # -30
|
82 | "1.0",
|
83 |
|
84 | "f(-150,-sqrt(3)/2)", # -150
|
85 | "1.0",
|
86 |
|
87 | "f(-210,-sqrt(3)/2)", # -210
|
88 | "1.0",
|
89 |
|
90 | "f(-330,sqrt(3)/2)", # -330
|
91 | "1.0",
|
92 |
|
93 | "f(60,1/2)", # 60
|
94 | "1.0",
|
95 |
|
96 | "f(120,-1/2)", # 120
|
97 | "1.0",
|
98 |
|
99 | "f(240,-1/2)", # 240
|
100 | "1.0",
|
101 |
|
102 | "f(300,1/2)", # 300
|
103 | "1.0",
|
104 |
|
105 | "f(-60,1/2)", # -60
|
106 | "1.0",
|
107 |
|
108 | "f(-120,-1/2)", # -120
|
109 | "1.0",
|
110 |
|
111 | "f(-240,-1/2)", # -240
|
112 | "1.0",
|
113 |
|
114 | "f(-300,1/2)", # -300
|
115 | "1.0",
|
116 |
|
117 | "f=quote(f)",
|
118 | "",
|
119 |
|
120 | "cos(arccos(x))",
|
121 | "x",
|
122 |
|
123 | # bug fix for version 119
|
124 |
|
125 | "cos(1/12*pi)",
|
126 | "cos(1/12*pi)",
|
127 |
|
128 | "cos(arctan(4/3))",
|
129 | "3/5",
|
130 |
|
131 | "cos(-arctan(4/3))",
|
132 | "3/5",
|
133 |
|
134 | # phase
|
135 |
|
136 | "cos(x-8/2*pi)",
|
137 | "cos(x)",
|
138 |
|
139 | "cos(x-7/2*pi)",
|
140 | "-sin(x)",
|
141 |
|
142 | "cos(x-6/2*pi)",
|
143 | "-cos(x)",
|
144 |
|
145 | "cos(x-5/2*pi)",
|
146 | "sin(x)",
|
147 |
|
148 | "cos(x-4/2*pi)",
|
149 | "cos(x)",
|
150 |
|
151 | "cos(x-3/2*pi)",
|
152 | "-sin(x)",
|
153 |
|
154 | "cos(x-2/2*pi)",
|
155 | "-cos(x)",
|
156 |
|
157 | "cos(x-1/2*pi)",
|
158 | "sin(x)",
|
159 |
|
160 | "cos(x+0/2*pi)",
|
161 | "cos(x)",
|
162 |
|
163 | "cos(x+1/2*pi)",
|
164 | "-sin(x)",
|
165 |
|
166 | "cos(x+2/2*pi)",
|
167 | "-cos(x)",
|
168 |
|
169 | "cos(x+3/2*pi)",
|
170 | "sin(x)",
|
171 |
|
172 | "cos(x+4/2*pi)",
|
173 | "cos(x)",
|
174 |
|
175 | "cos(x+5/2*pi)",
|
176 | "-sin(x)",
|
177 |
|
178 | "cos(x+6/2*pi)",
|
179 | "-cos(x)",
|
180 |
|
181 | "cos(x+7/2*pi)",
|
182 | "sin(x)",
|
183 |
|
184 | "cos(x+8/2*pi)",
|
185 | "cos(x)",
|
186 | ]
|