lit
    JINRLIB

PERMU -

V202

: F.Beck :

opaa PERMU a oooc o c oo pcao aao ocoaoc p.
o po oac aop pa oo.
aop pa oo oac a aop p, coco ooo a, a opao oo o c pcao N o, a ac ca aopa.

:

: - SUBROUTINE
: - PERMU

:

CALL PERMU(IA,N),

IA - (INTEGER) oop acc N;
N - (INTEGER) .

pcao p G1, G2,...,GM, co o oop c N1,N2,...,NM cooco, N1+N2+...+NM=N, ooo oc IA ocoao p: N1 o p G1, N2 o p G2 ..
ao opa PERMU a o pcao, oopa oac IA.
c c oo pcao cpa, o p c opa popaa oo IA(1)=0, o aa, o c aoo.
o o pcao N o, p opa PERMU ocaoo aa
IA(1)=0, aa a oca o acca.
o c pcaoo ooa c aa opa PERMU, pao oa o c a IA(1)=0.

1.
    accop pcao  co a po
    pooo.  5  co,  oop 3 o
    pa opa, 4 pac c,  oop 
     pa opa, 3 o c, oop
    pa.
    oa  a ca c opao:
       Y1  Y2  Y3  Y  Y  R1  R2  R  R  B  B  B
    pac  opopa  PERMU  c IA, copa
    c  ca:
          1 2 3 4 4 5 6 7 7 8 8 8  (N=12).
    ao opa  opopa a o pcao
    . popaa oo IA(1)=0 oc oa, co
    a oc ooo pcaoo, o aa, o
    c aoo.
2.
     ca pcao   co cp p
    o aa a  IA o 
           1 1 2 2 2
3.
      o c pcaoo  N poa
    o ooo aa co c
    ocoaoc:
           1 2 3 4 5 . . . . . N 
    oco o ca c o  opopa,
    oa caa cao  ocoaoc  IA, c
    popaa ac aa c IA (1)=0.


home up e-mail