[Home] [prev] [up] [next]     ((test/species.as))

24.7 Test Cycle

The following test can be compared with the output of the following Mathematica commands.

S[x_, y_, n_] := Series[-Log[1 - x^n*y[n]], {x, 0, 10}]  
T[x_] := Series[Sum[EulerPhi[k]/k * S[t,x,k], {k,1,10}], {t,0,10}]  
T[x]//InputForm

637⟨test Cycle 637⟩≡   (626)
testCycle(): () == check(
    Cycle,
    [0,1,1,2,6,24,120,720,5040,40320,362880],
    [0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1],
    [
        0,
        x(1,1),
        (inv 2)*x(1,2) + (inv 2)*x(2,1),
        (inv 3)*x(1,3) + (2/3)*x(3,1),
        (inv 4)*x(1,4) + (inv 4)*x(2,2) + (inv 2)*x(4,1),
        (inv 5)*x(1,5) + (4/5)*x(5,1),
        (inv 6)*x(1,6) + (inv 6)*x(2,3) + (inv 3)*x(3,2) + (inv 3)*x(6,1),
        (inv 7)*x(1,7) + (6/7)*x(7,1),
        (inv 8)*x(1,8) + (inv 8)*x(2,4) + (inv 4)*x(4,2) + (inv 2)*x(8,1),
        (inv 9)*x(1,9) + (2/9)*x(3,3) + (2/3)*x(9,1)
    ]
);

Uses Cycle 96.

[Home] [prev] [up] [next]     ((test/species.as))