OpenXM_contrib2/asir2000/lib/cyclic - diff

Return to cyclic CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / lib

version 1.2, 2000/08/21 08:31:41

version 1.4, 2001/10/12 06:07:05

Line 23

* shall be made on your publication or presentation in any form of the

* results obtained by use of the SOFTWARE.

* (4) In the event that you modify the SOFTWARE, you shall notify FLL by

* e-mail at risa-admin@flab.fujitsu.co.jp of the detailed specification

* e-mail at risa-admin@sec.flab.fujitsu.co.jp of the detailed specification

* for such modification or the source code of the modified part of the

* SOFTWARE.

Line 45

* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,

* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.

* $OpenXM: OpenXM_contrib2/asir2000/lib/cyclic,v 1.1.1.1 1999/12/03 07:39:11 noro Exp $

* $OpenXM: OpenXM_contrib2/asir2000/lib/cyclic,v 1.3 2000/08/22 05:04:21 noro Exp $

def mkc(L,N)

{

Line 62 def cyclic(N)

R = [];

for (L = 1; L <= N; L++) {

for (A = 0, I = 0; I <= N-1; I++) {

for (B = 1,J = I; J < L+I; J++) {

B *= mkc(J,N);

}

A += B;

}

A = ptozp(A);

if (L == N)

A += -1;

R = cons(A,R);

}

return R;

}

def rcyclic(N)

{

R = [];

for (L = 1; L <= N; L++) {

for (A = 0, I = 0; I < 3; I++) {

for (B = 1,J = I; J < L+I; J++) {

B *= mkc(J,N);

}