\ 4tH library - "Q" function - Copyright 2012,2013 J.L. Bezemer
\ You can redistribute this file and/or modify it under
\ the terms of the GNU General Public License

[UNDEFINED] fq   [IF]
[UNDEFINED] ferf [IF] include lib/ferf.4th [THEN]
: fQ 665857 s>f 470832 s>f f/ f/ ferf 1 s>f fswap f- f2/ ;
: phi.cdf fnegate fQ ;
[THEN]




