1. Forum
  2. Usenet
  3. COMP.SOFT-SYS.MATH.MAPLE

  • Hypergeom -- simplify versus evalf

    From Peter Luschny@21:1/5 to All on Tue Jan 10 05:51:59 2017
    a := (n,k) -> -(-1)^k*hypergeom([1-k,n/2+1/2,n/2],[1/2,1],1):

    for n from 1 to 6 do seq(simplify(a(n,k)),k=1..n) od;
    for n from 1 to 6 do seq(round(evalf(a(n,k))),k=1..n) od;

    1
    1, 2
    1, 1, 4
    1, 4, 16, 8
    1, 2, 41, 44, 16
    1, 6, 85, 146, 112, 32

    1
    1, 2
    1, 5, 4
    1, 9, 16, 8
    1, 14, 41, 44, 16
    1, 20, 85, 146, 112, 32

    ?

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From G. A. Edgar@21:1/5 to Peter Luschny on Tue Jan 10 07:03:34 2017
    In article <dbf67327-673a-4ae4-b931-b6388e87925c@googlegroups.com>,
    Peter Luschny <peter.luschny@gmail.com> wrote:

    a := (n,k) -> -(-1)^k*hypergeom([1-k,n/2+1/2,n/2],[1/2,1],1):

    for n from 1 to 6 do seq(simplify(a(n,k)),k=1..n) od;
    for n from 1 to 6 do seq(round(evalf(a(n,k))),k=1..n) od;

    1
    1, 2
    1, 1, 4
    1, 4, 16, 8
    1, 2, 41, 44, 16
    1, 6, 85, 146, 112, 32

    1
    1, 2
    1, 5, 4
    1, 9, 16, 8
    1, 14, 41, 44, 16
    1, 20, 85, 146, 112, 32

    ?

    a := (n,k) -> -(-1)^k*hypergeom([1-k,n/2+1/2,n/2],[1/2,1],1):

    for n from 1 to 6 do seq(simplify(a(n,k)),k=1..n) od;
    for n from 1 to 6 do seq(round(evalf(a(n,k))),k=1..n) od;
    1
    1, 2
    1, 5, 4
    1, 9, 16, 8
    1, 14, 41, 44, 16
    1, 20, 85, 146, 112, 32
    1
    1, 2
    1, 5, 4
    1, 9, 16, 8
    1, 14, 41, 44, 16
    1, 20, 85, 146, 112, 32
    version();
    User Interface: 1097895
    Kernel: 1097895
    Library: 1097895
    1097895

    --
    G. A. Edgar http://www.math.ohio-state.edu/~edgar/

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)