Skip to content

Commit cb27029

Browse files
authored
Revert addition of new y variable before return
1 parent e6c7269 commit cb27029

File tree

1 file changed

+14
-21
lines changed

1 file changed

+14
-21
lines changed

src/sincosint.jl

Lines changed: 14 additions & 21 deletions
Original file line numberDiff line numberDiff line change
@@ -18,7 +18,7 @@ using Base.Math.@horner
1818
function sinint(x::Float64)
1919
t = x*x
2020
if t 36.0
21-
y = (x * @horner(t, 1.00000000000000000000E0,
21+
return x * @horner(t, 1.00000000000000000000E0,
2222
-0.44663998931312457298E-1,
2323
0.11209146443112369449E-2,
2424
-0.13276124407928422367E-4,
@@ -33,11 +33,10 @@ function sinint(x::Float64)
3333
0.54747121846510390750E-9,
3434
0.10378561511331814674E-11,
3535
0.13754880327250272679E-14,
36-
0.10223981202236205703E-17))
37-
return y
36+
0.10223981202236205703E-17)
3837
elseif t 144.0
3938
invt = inv(t)
40-
y = (copysign/2, x) - cos(x) *
39+
return copysign/2, x) - cos(x) *
4140
@horner(invt, 0.99999999962173909991E0,
4241
0.36451060338631902917E3,
4342
0.44218548041288440874E5,
@@ -71,11 +70,10 @@ function sinint(x::Float64)
7170
0.62273134702439012114E10,
7271
0.54570971054996441467E11,
7372
0.18241750166645704670E12,
74-
0.15407148148861454434E12))
75-
return y
73+
0.15407148148861454434E12)
7674
elseif t < Inf
7775
invt = inv(t)
78-
y = (copysign/2, x) - cos(x) / x * (1.0 -
76+
return copysign/2, x) - cos(x) / x * (1.0 -
7977
@horner(invt, 0.19999999999999978257E1,
8078
0.22206119380434958727E4,
8179
0.84749007623988236808E6,
@@ -109,8 +107,7 @@ function sinint(x::Float64)
109107
0.26028585666152144496E13,
110108
0.85134283716950697226E14,
111109
0.11304079361627952930E16,
112-
0.42519841479489798424E16)*invt))
113-
return y
110+
0.42519841479489798424E16)*invt)
114111
elseif isnan(x)
115112
return NaN
116113
else
@@ -125,7 +122,7 @@ function cosint(x::Float64)
125122
if x < 0.0
126123
throw(DomainErrorNoArgs)
127124
elseif x 3.0
128-
y = (log(x/r0) + ((x - r01) - r02) * (x + r0) *
125+
return log(x/r0) + ((x - r01) - r02) * (x + r0) *
129126
@horner(t, -0.24607411378767540707E0,
130127
0.72113492241301534559E-2,
131128
-0.11867127836204767056E-3,
@@ -137,10 +134,9 @@ function cosint(x::Float64)
137134
0.78168450570724148921E-4,
138135
0.29959200177005821677E-6,
139136
0.73191677761328838216E-9,
140-
0.94351174530907529061E-12))
141-
return y
137+
0.94351174530907529061E-12)
142138
elseif x 6.0
143-
y = (log(x/r1) + ((x - r11) - r12) * (x + r1) *
139+
return log(x/r1) + ((x - r11) - r12) * (x + r1) *
144140
@horner(t, -0.15684781827145408780E0,
145141
0.66253165609605468916E-2,
146142
-0.12822297297864512864E-3,
@@ -155,11 +151,10 @@ function cosint(x::Float64)
155151
0.13544922659627723233E-6,
156152
0.27715365686570002081E-9,
157153
0.37718676301688932926E-12,
158-
0.27706844497155995398E-15))
159-
return y
154+
0.27706844497155995398E-15)
160155
elseif x 12.0
161156
invt = inv(t)
162-
y = (sin(x) * @horner(invt, 0.99999999962173909991E0,
157+
return sin(x) * @horner(invt, 0.99999999962173909991E0,
163158
0.36451060338631902917E3,
164159
0.44218548041288440874E5,
165160
0.22467569405961151887E7,
@@ -192,11 +187,10 @@ function cosint(x::Float64)
192187
0.62273134702439012114E10,
193188
0.54570971054996441467E11,
194189
0.18241750166645704670E12,
195-
0.15407148148861454434E12))
196-
return y
190+
0.15407148148861454434E12)
197191
elseif x < Inf
198192
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,
200194
0.22206119380434958727E4,
201195
0.84749007623988236808E6,
202196
0.13959267954823943232E9,
@@ -229,8 +223,7 @@ function cosint(x::Float64)
229223
0.26028585666152144496E13,
230224
0.85134283716950697226E14,
231225
0.11304079361627952930E16,
232-
0.42519841479489798424E16)*invt))
233-
return y
226+
0.42519841479489798424E16)*invt)
234227
elseif isnan(x)
235228
return NaN
236229
else

0 commit comments

Comments
 (0)