bico.for

来自「Numerical Recipes一书中例子的源码所用到的函数集,William」· FOR 代码 · 共 9 行

      FUNCTION bico(n,k)
      INTEGER k,n
      REAL bico
CU    USES factln
      REAL factln
      bico=nint(exp(factln(n)-factln(k)-factln(n-k)))
      return
      END