steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

picomath: simplify.

db4
John Benediktsson 2015-05-13 14:47:15 -07:00
parent ba3c232c65
commit 10dc967494
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/picomath/picomath.factor
View File

@ -22,7 +22,7 @@ PRIVATE>
:: erf ( x -- value )
x 0 >= 1 -1 ? :> sign
x abs :> x!
p x * 1 + 1 swap / :> t
p x * 1 + recip :> t
a5 t * a4 + t * a3 + t * a2 + t * a1 + t *
x x neg * e^ * 1 swap - :> y
sign y * ;
@ -34,7 +34,7 @@ PRIVATE>
:: phi ( x -- value )
x 0 >= 1 -1 ? :> sign
x abs 2 sqrt / :> x!
p x * 1 + 1 swap / :> t
p x * 1 + recip :> t
a5 t * a4 + t * a3 + t * a2 + t * a1 + t *
x x neg * e^ * 1 swap - :> y
sign y * 1 + 2 / ;