@@ -18,7 +18,7 @@ using Base.Math.@horner
18
18
function sinint (x:: Float64 )
19
19
t = x* x
20
20
if t ≤ 36.0
21
- y = ( x * @horner (t, 1.00000000000000000000E0 ,
21
+ return x * @horner (t, 1.00000000000000000000E0 ,
22
22
- 0.44663998931312457298E-1 ,
23
23
0.11209146443112369449E-2 ,
24
24
- 0.13276124407928422367E-4 ,
@@ -33,11 +33,10 @@ function sinint(x::Float64)
33
33
0.54747121846510390750E-9 ,
34
34
0.10378561511331814674E-11 ,
35
35
0.13754880327250272679E-14 ,
36
- 0.10223981202236205703E-17 ))
37
- return y
36
+ 0.10223981202236205703E-17 )
38
37
elseif t ≤ 144.0
39
38
invt = inv (t)
40
- y = ( copysign (π/ 2 , x) - cos (x) *
39
+ return copysign (π/ 2 , x) - cos (x) *
41
40
@horner (invt, 0.99999999962173909991E0 ,
42
41
0.36451060338631902917E3 ,
43
42
0.44218548041288440874E5 ,
@@ -71,11 +70,10 @@ function sinint(x::Float64)
71
70
0.62273134702439012114E10 ,
72
71
0.54570971054996441467E11 ,
73
72
0.18241750166645704670E12 ,
74
- 0.15407148148861454434E12 ))
75
- return y
73
+ 0.15407148148861454434E12 )
76
74
elseif t < Inf
77
75
invt = inv (t)
78
- y = ( copysign (π/ 2 , x) - cos (x) / x * (1.0 -
76
+ return copysign (π/ 2 , x) - cos (x) / x * (1.0 -
79
77
@horner (invt, 0.19999999999999978257E1 ,
80
78
0.22206119380434958727E4 ,
81
79
0.84749007623988236808E6 ,
@@ -109,8 +107,7 @@ function sinint(x::Float64)
109
107
0.26028585666152144496E13 ,
110
108
0.85134283716950697226E14 ,
111
109
0.11304079361627952930E16 ,
112
- 0.42519841479489798424E16 )* invt))
113
- return y
110
+ 0.42519841479489798424E16 )* invt)
114
111
elseif isnan (x)
115
112
return NaN
116
113
else
@@ -125,7 +122,7 @@ function cosint(x::Float64)
125
122
if x < 0.0
126
123
throw (DomainErrorNoArgs)
127
124
elseif x ≤ 3.0
128
- y = ( log (x/ r0) + ((x - r01) - r02) * (x + r0) *
125
+ return log (x/ r0) + ((x - r01) - r02) * (x + r0) *
129
126
@horner (t, - 0.24607411378767540707E0 ,
130
127
0.72113492241301534559E-2 ,
131
128
- 0.11867127836204767056E-3 ,
@@ -137,10 +134,9 @@ function cosint(x::Float64)
137
134
0.78168450570724148921E-4 ,
138
135
0.29959200177005821677E-6 ,
139
136
0.73191677761328838216E-9 ,
140
- 0.94351174530907529061E-12 ))
141
- return y
137
+ 0.94351174530907529061E-12 )
142
138
elseif x ≤ 6.0
143
- y = ( log (x/ r1) + ((x - r11) - r12) * (x + r1) *
139
+ return log (x/ r1) + ((x - r11) - r12) * (x + r1) *
144
140
@horner (t, - 0.15684781827145408780E0 ,
145
141
0.66253165609605468916E-2 ,
146
142
- 0.12822297297864512864E-3 ,
@@ -155,11 +151,10 @@ function cosint(x::Float64)
155
151
0.13544922659627723233E-6 ,
156
152
0.27715365686570002081E-9 ,
157
153
0.37718676301688932926E-12 ,
158
- 0.27706844497155995398E-15 ))
159
- return y
154
+ 0.27706844497155995398E-15 )
160
155
elseif x ≤ 12.0
161
156
invt = inv (t)
162
- y = ( sin (x) * @horner (invt, 0.99999999962173909991E0 ,
157
+ return sin (x) * @horner (invt, 0.99999999962173909991E0 ,
163
158
0.36451060338631902917E3 ,
164
159
0.44218548041288440874E5 ,
165
160
0.22467569405961151887E7 ,
@@ -192,11 +187,10 @@ function cosint(x::Float64)
192
187
0.62273134702439012114E10 ,
193
188
0.54570971054996441467E11 ,
194
189
0.18241750166645704670E12 ,
195
- 0.15407148148861454434E12 ))
196
- return y
190
+ 0.15407148148861454434E12 )
197
191
elseif x < Inf
198
192
invt = inv (t)
199
- y = ( sin (x)/ x * (1.0 - @horner (invt, 0.19999999999999978257E1 ,
193
+ return sin (x)/ x * (1.0 - @horner (invt, 0.19999999999999978257E1 ,
200
194
0.22206119380434958727E4 ,
201
195
0.84749007623988236808E6 ,
202
196
0.13959267954823943232E9 ,
@@ -229,8 +223,7 @@ function cosint(x::Float64)
229
223
0.26028585666152144496E13 ,
230
224
0.85134283716950697226E14 ,
231
225
0.11304079361627952930E16 ,
232
- 0.42519841479489798424E16 )* invt))
233
- return y
226
+ 0.42519841479489798424E16 )* invt)
234
227
elseif isnan (x)
235
228
return NaN
236
229
else
0 commit comments