blob: b01279b299d7cc8c13a43d5813f35ff19a45fce2 (
plain)
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
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
|
def vecf : float2 float3 float4 float8 float16
def veci : int2 int3 int4 int8 int16
def vec : $vecf $veci
def gentype : float $vecf
// gentype acos(gentype)
// REPL is defined in src/core/cpu/builtins.cpp
native float acos float : x:float
return std::acos(x);
end
native $type acos $vecf : x:$type
REPL($vecdim)
result[i] = std::acos(x[i]);
end
// gentype acosh(gentype)
native float acosh float : x:float
return boost::math::acosh(x);
end
native $type acosh $vecf : x:$type
REPL($vecdim)
result[i] = boost::math::acosh(x[i]);
end
// gentype acospi(gentype)
func float acospi float : x:float
return acos(x) / M_PI;
end
native $type acospi $vecf : x:$type
REPL($vecdim)
result[i] = std::acos(x[i]) / M_PI;
end
// gentype asin (gentype)
native float asin float : x:float
return std::asin(x);
end
native $type asin $vecf : x:$type
REPL($vecdim)
result[i] = std::asin(x[i]);
end
// gentype asinh (gentype)
native float asinh float : x:float
return boost::math::asinh(x);
end
native $type asinh $vecf : x:$type
REPL($vecdim)
result[i] = boost::math::asinh(x[i]);
end
// gentype asinpi (gentype x)
func float asinpi float : x:float
return asin(x) / M_PI;
end
native $type asinpi $vecf : x:$type
REPL($vecdim)
result[i] = std::asin(x[i]) / M_PI;
end
// gentype atan (gentype y_over_x)
native float atan float : y_over_x:float
return std::atan(y_over_x);
end
native $type atan $vecf : y_over_x:$type
REPL($vecdim)
result[i] = std::atan(y_over_x[i]);
end
// gentype atan2 (gentype y, gentype x)
func float atan2 float : x:float y:float
return atan(y / x);
end
native $type atan2 $vecf : x:$type y:$type
REPL($vecdim)
result[i] = std::atan(y[i] / x[i]);
end
// gentype atanh (gentype)
native float atanh float : x:float
return boost::math::atanh(x);
end
native $type atanh $vecf : x:$type
REPL($vecdim)
result[i] = boost::math::atanh(x[i]);
end
// gentype atanpi (gentype x)
func float atanpi float : x:float
return atan(x) / M_PI;
end
native $type atanpi $vecf : x:$type
REPL($vecdim)
result[i] = std::atan(x[i]) / M_PI;
end
// gentype atan2pi (gentype y, gentype x)
func float atan2pi float : x:float y:float
return atan2(y, x) / M_PI;
end
native $type atan2pi $vecf : x:$type y:$type
REPL($vecdim)
result[i] = std::atan(y[i] / x[i]) / M_PI;
end
// gentype cbrt (gentype)
native float cbrt float : x:float
return boost::math::cbrt(x);
end
native $type cbrt $vecf : x:$type
REPL($vecdim)
result[i] = boost::math::cbrt(x[i]);
end
// gentype ceil (gentype)
native float ceil float : x:float
return std::ceil(x);
end
native $type ceil $vecf : x:$type
REPL($vecdim)
result[i] = std::ceil(x[i]);
end
// gentype copysign (gentype x, gentype y)
func float copysign float : x:float y:float
if ((x < 0.0f && y > 0.0f) ||
(x > 0.0f && y < 0.0f))
return -x;
end
native $type copysign $vecf : x:$type y:$type
REPL($vecdim)
{
if ((x[i] < 0.0f && y[i] > 0.0f) ||
(x[i] > 0.0f && y[i] < 0.0f))
result[i] = -x[i];
else
result[i] = x[i];
}
end
//gentype cos (gentype)
native float cos float : x:float
return std::cos(x);
end
native $type cos $vecf : x:$type
REPL($vecdim)
result[i] = std::cos(x[i]);
end
// gentype cosh (gentype)
native float cosh float : x:float
return std::cosh(x);
end
native $type cosh $vecf : x:$type
REPL($vecdim)
result[i] = std::cosh(x[i]);
end
// gentype cospi (gentype x)
func $type cospi $gentype : x:$type
return cos(x * M_PI);
end
// TODO: gentype erfc (gentype)
// TODO: gentype erf (gentype)
func $type fmin $gentype : x:$type y:$type
return (x < y ? x : y);
end
|
